rebonjour,
désolé pour la variable public ms il semble que le saveAs réinitialise tt.
Cependant, tu devrais essayer:
corps = vbLf & 'voici le lien du fichier' & ' ' & ThisWorkbook.Path & '\\' & ThisWorkbook.Name
à la place de du workbooks.fullname
cela devrai passer....
A moins que naturellement, le repertoire ou tu veux l'enregistrer n'existe pas.... Essaye ta macro sur ton systeme en éliminant la ligne application.displayalerts=false..... Car si le chemin n'est pas valide, Excel par défaut passe à C:\\MesDocuments
A+
DSA