VBA fichier excel actif en PJ

Signaler
-
 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.

2 réponses

Merci pour votre aide .
C'est ce qu'il me fallait.
Messages postés
1180
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
27 octobre 2020
117
Bonjour,
il faut ajouter :
.Body = " Bonjour," & Chr(10) & "Vous trouverez ci joint le ........ "
.attachments.Add "le chemin du fichier"
.Display


Messages postés
16677
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
28 octobre 2020
9 851
Bonjour,

Pour ne pas mettre le chemin du fichier en dur, et donc avoir "le droit" de déplacer son fichier, il suffit de mettre :
.attachments.Add ActiveWorkbook.FullName


C'est surtout intéressant si le classeur est un modèle à distribuer à d'autres personnes.

m@rina
Messages postés
1180
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
27 octobre 2020
117 >
Messages postés
16677
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
28 octobre 2020

Je ne connaissais pas cette procédure, merci M@rina :-)