Enregistrement automatisé

[Chris57]

Bonsoir à tous,

au boulot j'ai créé un fichier qui, lorsqu'on appuie sur un bouton, propose l'enregistrement dans un dossier précis et sous un nom prédéfinit.

ça fontionne à merveille sauf lorsque le nom choisit existe déjà. Dans ce cas pas de message genre "le fichier existe déjà...", rien ne se passe. L'ancien fichier n'est pas ecrasé et rien n'est enregistré.

Voici le code :

NOMfichier = DOSSIERdeSAUVEGARDE.Text & "\" & NOMdeSAUVEGARDE.Text
ActiveWorkbook.SaveAs Filename:=NOMfichier, FileFormat:=xlText, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

Y a t'il un moyen de corriger ça ?

 

[JNP]

Re : Enregistrement automatisé

Bonjour Chris57 🙂,
Depuis octobre 2005, tu n'a pas encore trouver le "#" au dessus de tes posts pour mettre le code propre 🙄 ?

NOMfichier = DOSSIERdeSAUVEGARDE.Text & "\" & NOMdeSAUVEGARDE.Text
On Error Resume Next
Kill NOMfichier
On Error GoTo 0
ActiveWorkbook.SaveAs Filename:=NOMfichier, FileFormat:=xlText, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

devrait fonctionner, sauf si le fichier est déjà ouvert.
Kill va effacer ton ancien fichier. Je l'ai mis entre l'annulation des erreurs et la remise en route des erreurs, car si le fichier n'existe pas, ça en déclencherait une 😉.
Bon WE 😎