Bonjour,
Tu as deux solutions :
ThisWorkbook.SendMail Recipients:="email@mail.com"
Où tu peux remplacer ThisWorkbook pas n'importe quel autre fichier ouvert (je crois)
Ou
Set oOutlook = CreateObject("Outlook.Application")
Set oNewMail = oOutlook.CreateItem(olMailItem)
With oNewMail
.Attachments.Add sPath '<-Ici le chemin du fichier
.Recipients.Add sAdress '<-l'adresse du/des destinataires
.Subject = "sujet du message"
.Body = "texte du message"
.display '<-ou .Send si tu veux l'envoyer directement
End With
Michael