Mail avec PJ à plusieurs destinataires sur liste filtrée

Bonjour,

Je souhaite envoyer un mail à différentes personnes. Dans ce mail, je souhaite y joindre le fichier Excel de la liste filtrée de références (colonne A) sur cette personne (colonne E). D'après mon fichier source, Paul va recevoir sa liste de 4 références dans le mail.

Chaque personne sera le destinataire de sa liste. J'ai trouvé plusieurs codes mais c'est dans le corps du mail et la liste étant importante je souhaite qu'elle soit en pièce jointe. Les codes étant complexes pour mon niveau je n'arrive pas à le modifier...

Pouvez-vous m'aider ?

Merci d'avance

Bonjour,

Je me permets de relancer le sujet. Je reste bloqué sur ce fichier, impossible de réaliser cette diffusion.

Merci !

Hello patsw,

Voici un code pour t'aider à commencer ton projet.

Pour ce qui est du filtre, tu devrais trouver beaucoup d'informations sur le forum car c'est un sujet récurrent.

Public Sub EnvoiMail()
On Error Resume Next

'ICI code pour filtrer les données voir créer nouvel onglet ?

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
Set wdDoc = OutMail.Getinspector.wordeditor

ThisWorkbook.Save

Application.ScreenUpdating = True
With OutMail
.To = "MonsieurMachin@mail.com"
.Subject = "Objet"
.htmlbody = "Bonjour," & "<br><br>" & "BLA BLA" & "<br><br>" & "Cordialement"
.Attachments.Add ThisWorkbook.FullName
.Display
End With
OutApp.Session.Logoff
Set OutMail = Nothing
Set OutApp = Nothing
Application.DisplayAlerts = True
End Sub

Attention détail important pour les pièces jointes, VBA ne peut envoyer uniquement une version qui est sauvegardé. d'où le ThisWorkbook.Save dans le code, peut être à adapter selon tes contraintes.

Si tu as des difficultés à adapter le code n'hésites pas à demander !

A+