XL 2016 renommer fichier avant envoi

[JANO]

Bonsoir le Forum,
D'habitude j’envoie sans renommer avec :
myItem.Attachments.Add ActiveWorkbook.fullname 'fichier en cours d'utilisation envoyé en attaché
là je souhaiterai le renommer avec la cellule O3 :
myItem.Attachments.Add ActiveWorkbook & (Sheets("Paramètres").Range("O3")) 'fichier en cours d'utilisation envoyé en attaché
Mais CA bug.
Vous auriez une idée
Merci

 

[kingfadhel]

Salut le fil,
d'abord il faut le sauver avec le nouveau nom ensuite tu l'attaches.

un bout de code pour la sauvegarde que tu le met avant l'attachement


ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & Sheets("Paramètres").Range("O3") .Value, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

 

[Hasco]

Bonjour,

Si c'est une copie du fichier que vous voulez envoyer il existe la méthode "Worbook.SaveCopyAs" qui ne changera pas le nom de votre fichier original mais qui créera seulement une copie de celui-ci.

Cordialement