Discussion :

[candyneige]

Bonjour toi.

Je veux profiter de ta gentillesse pour te demander de l'aide. Voila. je dois joindre les factures en question dans un emails. et je peux en avoir plusieurs pour un seul client (compagnie).

j'ai réussi la macro qui me permet d'afficher les chemins d’accès aux différentes factures dans un tableau excel.

je me suis dis que je devais créer une variable concaténer ou je concatène le contenu de chaque ligne du tableau avec un ";" pour les séparer. et cette variable va me servir de pièce à attacher:
exemple dans la colonne "M"

Code :

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

1
2
3
4
5
6
7
8
9
10
M1 = "S:\facture\piecejointe.pdf"
M2 = "S:\facture\piecejointe1.pdf"
M3 = "S:\facture\piecejointe2.pdf"
M4 = "S:\facture\piecejointe3.pdf"
M5 = "S:\facture\piecejointe4.pdf"
 
for i=2 to z
    concatene=range("M1").value
    concatene=concatene & ";" & range("M"& i).value
next i;

j'aurai donc
concatène= S:\facture\piecejointe.pdf ; S:\facture\piecejointe1.pdf ; S:\facture\piecejointe2.pdf" ; S:\facture\piecejointe3.pdf" ; "S:\facture\piecejointe4.pdf"


mais ca ne marche pas.

c'est pas possible egalement de faire plusieurs attachements.add vu qu'on ne maitrise pas le nombre de pieces à ajouter

Du coup, comment je peux faire?

Merci beaucoup pour ton aide

[Menhir]

Petite remarque liminaire : quand tu proposes un code, fais de préférence un copier/coller du code que tu as tapé dans VBE plutôt de que le retaper sur le site, ce qui peut entrainer des différence entre les deux et faire apparaitre/disparaitre les causes de problème.

Code :

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

1
2
3
4
for i=2 to z
concatene=range("M1").value
concatene=concatene & ";" & range("M"& i).value
next i;

Essaye de te mettre à la place de VBA qui tourne dans cette boucle et demande-toi ce qui se passe.

Si tu fais ça, tu te rendras compte qu'à chaque tour, ta variable concatène est réinitialisée avec la valeur de "M1", ce qui te fait perdre tout ce que tu as pu y mettre au tour précédent.

Autre petit détail : que vient faire ce ";" après le next i ?

Donc, en supposant que la variable "z" a été renseignée préalablement :

Code :

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

1
2
3
4
concatene = Range("M1").Value
For i = 2 To z
    concatene = concatene & ";" & Cells(i ,"M").Value
Next i

[candyneige]

Bonjour,

Pardon pour le temps mis avant le retour.

Merci encore Menhir pour ton aide.

je mettrai le code final une fois prêt.