VBA fichier excel actif en PJ
CocoPSL
-
CocoPSL -
CocoPSL -
Bonjour,
J'ai crée l'envoi d'un mail en vba à partir d'un fichier excel.
Je souhaiterai y mettre ce fichier en pièce-jointe.
Voici mon code :
Private Sub CommandButton1_Click()
Dim LeMail As Variant
Set LeMail = CreateObject("outlook.Application") 'crétion d'un objet Outlook
With LeMail.CreateItem(olMailItem)
.Subject = "Compte rendu d'opération du"
.To = Range("B96")
.Body = " Bonjour," & Chr(10) & "Vous trouverez ci joint le ........ "
.Display
End With
End Sub
Que dois-je ajouter pour y insérer ce fichier car mes essais sont infructueux !!
Merci pour votre aide.
J'ai crée l'envoi d'un mail en vba à partir d'un fichier excel.
Je souhaiterai y mettre ce fichier en pièce-jointe.
Voici mon code :
Private Sub CommandButton1_Click()
Dim LeMail As Variant
Set LeMail = CreateObject("outlook.Application") 'crétion d'un objet Outlook
With LeMail.CreateItem(olMailItem)
.Subject = "Compte rendu d'opération du"
.To = Range("B96")
.Body = " Bonjour," & Chr(10) & "Vous trouverez ci joint le ........ "
.Display
End With
End Sub
Que dois-je ajouter pour y insérer ce fichier car mes essais sont infructueux !!
Merci pour votre aide.
