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.
A voir également:
- VBA fichier excel actif en PJ
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier .dat - Guide
2 réponses
Bonjour,
il faut ajouter :
il faut ajouter :
.Body = " Bonjour," & Chr(10) & "Vous trouverez ci joint le ........ " .attachments.Add "le chemin du fichier" .Display
