VBA envoyer par mail en modifiant le nom

[Valérie55555555]

Bonjour,

Je souhaite envoyer par mail un document en modifiant son nom mais uniquement dans le mail pas dans le fichier de base. C'est-à-dire que je veux qu'une copie de mon fichier source soit envoyé non pas l'original.

Private Sub CommandButton5_Click()



Set myApp = CreateObject("Outlook.Application")
Set myItem = myApp.CreateItem(olMailItem)
myItem.Subject = "Test RGA : " & Range("H10")
myItem.Body = "Veuillez trouver ci-joint le document de l'inspection " & Range("H10")
myItem.Attachments.Add ActiveWorkbook.FullName
myItem.to = "xxxxx@a"
myItem.Display
myItem.Send



MsgBox "The email is sent"

End Sub


Merciii

 

[Hieu]

Bonjour,

Je n'ai rien compris à ta demande ^^
Peux-tu fournir un fichier exemple ?

Sinon, ta demande semble etre dans le meme esprit que celle-ci : https://www.excel-downloads.com/thr...-vba-avec-un-objet-different-resolu.20027979/

 

[Valérie55555555]

Salut,

J'aimerais bien que mon fichier actif soit envoyer par mail, jusque là j'ai trouvé.
Mais j'aimerais que ce fichier soit renommer en tant que pièce jointe avec un nom que j'aurais déterminé.
Est-ce que vous pensez que c'est possible ?

myItem.Attachments.Add ActiveWorkbook.FullName
En clair, j'aimerais donné un nom à mon travail pour changer son nom dans la pièce jointe