Bonjour,

J'utilise ce code pour envoyer automatiquement des mails via outlook :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub e()
Dim appoutlook As Outlook.Application
Dim email As String
Dim monmessage As Object
Dim texte As String
Set appoutlook = New Outlook.Application
Set monmessage = appoutlook.createitem(olmailitem)
 
email = "xx.xxx@yy.fr"
With monmessage
.To = email
.Subject = "essai eric"
texte = "essai texte"
 
.display
.Attachments.Add "C:\essais\fiche.pdf"
End With
End Sub
Mon problème, c'est que suivant ma requête, il y a parfois plusieurs pièces jointes à joindre.
J'ai pensé à mettre
Code : Sélectionner tout - Visualiser dans une fenêtre à part
.Attachments.Add "C:\essais\fiche.pdf" & "C:\essais\fiche2.pdf" etc....
mais comme parfois j'ai 1 pièce à joindre, parfois 2, parfois 10...je ne peux pas le mettre à chaque fois....

J'ai essayé
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
For i = 1 To c
d = Cells(i, 2) & ".pdf"
monmessage.attachments.Add "C:\essais\d"
Next i
Et la ligne "monmessage.attachments.Add "C:\essais\" ne reconnait pas le "d"....j'ai essayé en mettant "& d" et ça ne fonctionne pas non plus...

Une idée ?

Merci,
A+