Discussion :

[antoinesop]

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.

[Daniel.C]

Bonjour,

En admettant que C8 soit sur la feuille active :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[antoinesop]

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.

[Daniel.C]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[antoinesop]

Merci,

çà marche !