VBA envoyer mail avec pièce jointe nom variable.

Bonjour,

J’ai la macro suivante qui permet d’envoyer un mail avec une pièce jointe un fichier xls à partir de la feuille active Destinaires.
Je voudrai savoir comment modifier dans la macro pour pouvoir envoyer la pièce jointe avec un nom de fichier variable sans modifier le nom de la cellule C8, par exemple "Compte 31_01_2016.xls".

En vous remerciant de votre aide.

Bonjour,

En admettant que C8 soit sur la feuille active :

Code:

---

msg.Attachments.Add ActiveWorkbook.Path & "\" & [C8]

---

Merci pour ta réponse,


Est-ce que je dois changer le nom de la cellule C8 en "Compte*.xls" pour que que soit le fichier "Compte XX_XX_2016" soit pris comme pièce jointe ?

Dans le fichier que j'ai joint comme exemple, je dois modifier manuellement le nom de la cellule C8 en "Compte 31_01_2016.xls" pour que ce fichier "Compte 31_01_2016.xls" soit pris comme pièce jointe.

Cordialement.

Effectivement, j'ai été un peu vite. Mets "Compte*.xls" en C8. Remplace la boucle par :

Code:

---

1 2 3 4 5 6

Do While Not IsEmpty(ActiveCell) nf = ActiveWorkbook.Path & "\" & ActiveCell.Value fich = Dir(nf) msg.Attachments.Add ActiveWorkbook.Path & "\" & fich ActiveCell.Offset(1, 0).Select Loop

---

Merci,

çà marche !:lol: