Attacher fichier Excel mail

8okok.xlsm (17.72 Ko)

Bonjour à tous,

J'ai un petit souci sur la macro qui me permet d'envoyer de joindre un fichier excel et de l'envoyer.

Je n'arrive pas à comprendre pourquoi il ne trouve pas le fichier à attacher. Ci-dessous la macro

Ci-joint le fichier excel avec l'ensemble de mes destinataires et les adresses mails pour exemple.

Je précise que les fichiers sont bien en .xls et que les noms sont cohérents.

Merci à vous,

Sub aargh()

rep = "G:\Données"

With Sheets("Mails")

dl = .Cells(Rows.Count, 2).End(xlUp).Row

Set ol = CreateObject("outlook.application")

For i = 7 To dl

Set ml = ol.createitem(0)

ml.To = .Cells(i, 5)

ml.Subject = .Cells(3, 3)

ml.body = "Texte"

ml.attachments.Add (rep & "\" & .Cells(i, 6).Value) & ".xlsx" '

ml.display 'Afficher le mail

ml.send 'Envoyer le mail

Next i

End With

End Sub

Bonjour LeoGiGi

Et au moins tu peux nous donner ton message d'erreur !.

@+

Bonjour,

Essaie ainsi :

ml.attachments.Add rep & "\" & Worksheets("Mails").Cells(i, 6).Value & ".xlsx"

Merci beaucoup Jean-Eric ! Ca fonctionne

Rechercher des sujets similaires à "attacher fichier mail"