Attacher un fichier joint sans distonction de nom

[Philippe]

Bonjour tout le monde 🙂

J'ai trouvé une petite macro efficace pour préparer des mail depuis excel qui se mettent en place direct dans outlook.
Mon seul probleme est le suivant

le "attachement.add" demande a etre suivi d'un nom de fichier précis, ce que j'aimerais c'est qu'il mette en fichier joint tout le contenu du dossier.
bref de
Attachement.add c:/mes documents/photo_du_week_end/vanessa.jpg
à
Attachement.add c:/mes documents/photo_du_week_end


merci de vos éventuelles réponses

 

[kloss]

hello

Sub AttachAll()
Dim fls As Object, f1 As Object
Set fls = CreateObject("scripting.filesystemobject").getfolder("c:\mes documents\photo_du_week_end").files
For Each f1 In fls
Attachement.Add f1.Path
Next f1
End Sub

++

 

[Philippe]

cool !

merci