Enregistrer sous le même dossier avec le même nom plus version
NathanZ
Messages postés
1
Statut
Membre
-
Orbital38 Messages postés 76 Statut Membre -
Orbital38 Messages postés 76 Statut Membre -
Bonjour,
La maccro en question permet via un userform de parcourir les dossier et sélectionner un fichier puis d'y appliquer des modifications. Le chemin complet du fichier sélectionné s'inscrit dans Textbox1
J'aimerais qu'une fois toutes les modifications effectuées, le fichier ouvert soit enregistré sous le même dossier que le fichier d'origine et avec le même nom + un numéro de version à la fin.
Nom du fichier avant modifications:
D:\Documents and Settings\Bureau\Dossier1\Fichier de test.xls
Nom de la copie de fichier après modifications:
D:\Documents and Settings\Bureau\Dossier1\Fichier de test_v2.0.xls
Merci pour votre aide
La maccro en question permet via un userform de parcourir les dossier et sélectionner un fichier puis d'y appliquer des modifications. Le chemin complet du fichier sélectionné s'inscrit dans Textbox1
J'aimerais qu'une fois toutes les modifications effectuées, le fichier ouvert soit enregistré sous le même dossier que le fichier d'origine et avec le même nom + un numéro de version à la fin.
Nom du fichier avant modifications:
D:\Documents and Settings\Bureau\Dossier1\Fichier de test.xls
Nom de la copie de fichier après modifications:
D:\Documents and Settings\Bureau\Dossier1\Fichier de test_v2.0.xls
Merci pour votre aide
A voir également:
- Vba enregistrer sous un autre nom
- Audacity enregistrer son pc - Guide
- Comment enregistrer un mail - Guide
- Comment enregistrer une conversation - Guide
- Enregistrer son ecran - Guide
- Nom de l'adresse - Forum Jeux vidéo
1 réponse
Bonjour,
Mettre ceci dans ThisWorkBook:
Mettre ceci dans ThisWorkBook:
Option Explicit
Dim chemsave, nom As String
Private Sub Workbook_BeforeClose(Cancel As Boolean)
nom = Split(ActiveWorkbook.Name, ".")(0)
chemsave = ActiveWorkbook.Path & "\" & nom & "_v2.0.xls"
ActiveWorkbook.SaveAs Filename:=chemsave, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Avec les Right, Left, InStr et Split tu devrais t'en sortir.
Pour te simplifier la vie je te conseille de mettre _v1.0 de base à tes fichiers. De cette manière tu n'as pas à gérer l'ajout d'une chaine de caractère puis la mise à jour de la version, mais seulement la mise à jour du numéro de version.
Sauf si tu ne comptes faire que des v1 (qui n'apparaissent pas dans le nom) et des v2.