Enregistrer sous dans un dossier le même fichier plusieurs fois en changeant son nom

  • Initiateur de la discussion Initiateur de la discussion adi399
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

adi399

XLDnaute Occasionnel
Bonjour à tous, voila mon nouveau problème!! :

J'ai un fichier sur lequel j'ai un bouton avec une macro qui l'enregistre automatiquement dans un dossier définie.

J'aimerais pouvoir enregistrer automatiquement ce fichier plusieurs fois dans ce même dossier (en cliquant sur le même bouton), en modifiant son nom à chaque fois afin de ne pas l'écraser. Je m'explique:

Mondossier/Monfichier (après un premier clique sur mon bouton)
/Monfichier.2 ( après un 2° clique)
/Monfichier.3 ( après un 3° clique)
/ etc...
voici mon code d'enregistrement:

Private Sub CommandButton1_Click()
Application.Quit
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\*****\Bureau\mondossier\monfichier.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.Quit
End Sub


Merci d'avance de vos réponses !!!
 
Re : Enregistrer sous dans un dossier le même fichier plusieurs fois en changeant son

Bonjour,

Une commande que tu peux adapter

Code:
FileSVG = Application.GetSaveAsFilename(InitialFileName:=FileJour, fileFilter:="Fichiers Excel (*.xls), *.xls", Title:="Enregistrer avec le nom proposé...")
 
Re : Enregistrer sous dans un dossier le même fichier plusieurs fois en changeant son

Tous d'abord merci beaucoup de votre réponse, j'ai malheureusement bcp de mal à comprendre votre code je suis encore un peu trop novice...
Je vais encore essayer mais sans vouloit abuser de votre temps, pouvez-vous m'éclairer une petit peu plus?

Merci bcp
 
Re : Enregistrer sous dans un dossier le même fichier plusieurs fois en changeant son

Bonjour,

Voici un complément.
Code:
Sub EnregistrerAvecVersion()
    NomCourt = Mid(ActiveWorkbook.Name, 1, Len((ActiveWorkbook.Name)) - 4)
    FileSVG = Application.GetSaveAsFilename(InitialFileName:=NomCourt & _
        "-Version X.xls", fileFilter:="Fichiers Excel (*.xls), *.xls", _
        Title:="Enregistrer avec le nom proposé ?")
    ActiveWorkbook.SaveAs Filename:=FileSVG, FileFormat:=xlNormal, Password:="", _
        WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour