Macro pièce jointe email

Bonjour,

Vous trouverez en pièce jointe la macro que j'ai pu constituer sur le forum.

Il me reste un problème, j'aimerai que l'extension ci dessous puisse prendre en compte toute les références de la colonne B. De B5: à ...

Car dans le cas ci dessous il m'attache uniquement la référence 702251 dans mon email.

.Attachments.Add "G:\Echanges\Fiche produit 2016 Matfer et FLO\702251.pdf"

Merci pour votre aide

Bonjour,

Faire une boucle ainsi :

For i = 5 To DerL = Range("B" & Rows.Count).End(xlUp).Row

.Attachments.Add "G:\Echanges\Fiche produit 2016 Matfer et FLO\" & Range("B" & i)

Next i

A tester

Merci Bernard,

J'essaye ce matin et vous tiens informé.

Bonne journée

Bonjour Bernard,

Merci pour le coup de main.

Je viens d'essayer mais ça ne fonctionne pas, il n'y a pas les pièces jointes dans mon email.

Merci de votre aide

Bonsoir,

Un peu nul de ma part

Au lieu de

For i = 5 To DerL = Range("B" & Rows.Count).End(xlUp).Row

.Attachments.Add "G:\Echanges\Fiche produit 2016 Matfer et FLO\" & Range("B" & i)

Next i

Il faut mettre

DerL = Range("B" & Rows.Count).End(xlUp).Row

For i = 5 To DerL

.Attachments.Add "G:\Echanges\Fiche produit 2016 Matfer et FLO\" & Range("B" & i)

Next i

Désolé

Merci c'est parfait!