OVH Cloud OVH Cloud

Renommer un fichier ouvert sans le sauvegarder

1 réponse
Avatar
René Delcourt
Bonjour,
La demande peut paraître bizarre mais...
J'envoie par sendmail un fichier nommé "fifi020605" (Le nom est important
pour le traitement ultérieur)
Le destinataire le consulte en le détachant, pas de problème.
Mais si celui-ci l'ouvre à partir de la messagerie, le fichier prend un nom
du style ~123456.xls.
Ce fichier comprend un bouton de renvoi à mon adresse mais le fichier
attaché est affublé de ce nom barbare que je ne peux exploiter.
Mon idée est la suivante :
Dans la macro du bouton "Sendmail", je renomme le fichier comme je le veux
sans pour autant le sauvegarder sur la machine du destinataire.
Mais voilà, est-ce possible?
Merci
--
René Delcourt

1 réponse

Avatar
isabelle
bonjour René,

fait un essai en placant ces lignes de commande dans Workbook_Open

x = ThisWorkbook.FullName
y = ThisWorkbook.Path & "NouveauNom.xls"
ThisWorkbook.SaveAs Filename:=y
Kill x

isabelle


Bonjour,
La demande peut paraître bizarre mais...
J'envoie par sendmail un fichier nommé "fifi020605" (Le nom est important
pour le traitement ultérieur)
Le destinataire le consulte en le détachant, pas de problème.
Mais si celui-ci l'ouvre à partir de la messagerie, le fichier prend un nom
du style ~123456.xls.
Ce fichier comprend un bouton de renvoi à mon adresse mais le fichier
attaché est affublé de ce nom barbare que je ne peux exploiter.
Mon idée est la suivante :
Dans la macro du bouton "Sendmail", je renomme le fichier comme je le veux
sans pour autant le sauvegarder sur la machine du destinataire.
Mais voilà, est-ce possible?
Merci