Add attachment et erreur automation

Bonjour,,

j'ai un soucis lors de l'envoi d'un mail avec pièce jointe

j'ai le code suivant qui me permet de choper le nom d'un fichier dont je ne connais pas tout le chemin d'avance

chemin = ThisWorkbook.Path & "\"
fichier = "Rapport au*"
S = Dir(chemin & fichier)
MsgBox (S)

si je tente un msgbox ca m'affiche bien le nom et chemin complet

seulement si je fais

.Attachments.Add (chemin & fichier)

ca me retourne erreur d'automation .. syntaxe fichier

une idée svp

mercu

Bonjour,

Si vous faites Attachments.add S alors ça devrait marcher car S contient le nom complet tandis que fichier ne contient que le début du nom de fichier et ne sert qu'à trouver le vrai nom de fichier qui intéresse.

Cdlt,