envoi fichier joint par excel

[Romu]

Bonjour,
Je cherche du code qui fonctionne pour envoyer des mails avec classeur joint.
Beaucoup d'essais et de code mais problème avec
Merci

 

[michael]

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