Changer le nom d'un fichier qui se creer via copy pour courriel

Bonjour,

J'espère que vous allez bien.. via un userform je créer un bon de commande, quand je l'envoie par courriel ça creer une copie de ma feuille

Seulement dans le courriel ça envoi un fichier : ce qui ne me dérange pas en soit. Seule chose c'est que le fichier se nomme : classeur1 , ..

Y'a t'il un moyen de changer le nom du fichier?
je voudrais mettre : = "PO" & Sheets("BDCCOURRIELF").Cells(6, 9)

j'utilise : Excel 2003 et Outlook

Sub EnvoiBonCommandeFrançais()
Dim Destinataires(2) As String, Sujet As String
Dim AccuseReception As Boolean
Destinataires(1) = "info@cymtek.ca"
Destinataires(2) = Cbox_adressecourriel.Value
Sujet = "Ci-joint bon de commande Cymtek #" & Sheets("BDCCOURRIELF").Cells(6, 9)
AccuseReception = False
ThisWorkbook.Sheets("BDCCOURRIELF").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
End Sub

J'ai essayé workbook.name =
mais ça me donne une erreur..le fichier qui se créer est en lecture seule je crois..cela peut-il être le problème?


merci à l'avance
Mélanie