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