Bonjour
J'ai effectué une macro avec l'aide d'un ami concernant l'envoi d'un fichier Excel via Macro.
Cependant , j'aimerais ce jour ajouter une ligne pour "Save" le fichier avant que celui ci ne soit expédié.
Voici ma macro :
Sub Sendings()
Dim Chemin As String
Chemin = Workbooks(ActiveWorkbook.Name).FullName
MonCorps = "<p>Bonjour ,<p>" & "<p>Merci de prendre connaissance de la demande de transport<p>" & "<p>Cordialement<p>"
With CreateObject("Outlook.Application")
With .createitem(0)
.To = "xx@xx"
.Subject = "Demande de transport"
.HTMLBody = MonCorps & MaSignature
.Attachments.Add (Chemin)
.Display
End With
End With
End Sub
Je seche un peu sur ou je dois rajouter la ligne et quel ligne en fait
Pouvez vous m'aider ?!
Merci