Incrémenter un nom de fichier ?

Question

Mon souhait d'aujourd'hui est de créer une sauvegarde de mon fichier actif et de l'enregistrer sur un autre DD ("I:\Copies de sauvegarde Fichiers\"), afin de continuer a travailler dessus. J'ai fait plusieurs tentatives: une m'a permit d'obtenir une copie avec l'incrément derrière l'extension ( MonFichier. xlsm01 ). ce que je veux, c'est: MonFichier -V01.xlsm , l'incrément avant le point. Et que V01 s'incrémente a chaque enregistrement. Merci par avance a ceux qui pourraient m'aider. Mon fichier ...

galopin01 · Accepted Answer

J'ai pas trop le temps de relire ta prose mais si ça t'intéresse je te donne ce que j'utilise le plus fréquemment. Dans le classeur joint il y a 3 macros ZkVer() ZkSafe() et la 3ème CreateSOSMacro() qui installe les 2 précédentes dans le ThisWorkbook (Workbook_Open et Workbook_BeforeSave Les 3 macros sont dans mon Perso.xlam et la dernière dans mon ruban comme ça dès que je prend un classeur j'ai juste un clic à faire pour installer ZkSafe qui fait une copie de sécurité tous les matins quand j'ouvre le classeur pour la première fois. et ZkVer qui fait une copie versionnée à chaque sauvegarde et à chaque ouverture successive du classeur... Inutile de te dire qu'avec ça tu as intérêt à faire une macro qui fait le ménage périodiquement pour virer ce qui ne te sert plus... (surtout si tu as des classeurs de travail qui font plusieurs Mo !) Nota : Chez moi le dossier de sauvegarde s'appelle D:/SOS ! A+...

galopin01 · Answer

Non ! je ne sais pas s'il y avait déjà quelque chose dans le ThisWorkbook de ton Personal.xlsb mais à priori il n'y a rien à y mettre.

Mettre juste les 3 macros qui sont dans mon fichier dans Module1 ou...

Quand tu vas vouloir travailler sur "TonFichierPréféré" tu lanceras "Sub CreateSOSMacro" à partir de ton ruban et de "TonFichierPréféré" la macro installera 3 ou 4 lignes dans le ThisWorkbook de "TonFichierPréféré" et ensuite à chaque fois que tu le lanceras ou que tu feras des sauvegardes des copies versionnées viendront s'incrire dans ton I: (en utilisant "ZkVer" et "ZkSafe" de ton Personal.xlsb)

Seul point sensible si "TonFichierPréféré" possède déjà un Workbook_Open ou BeforeSave il faut bricoler un peu pour "concaténer" les Workboo_Open et/ou BeforeSave , car un classeur ne peut comporter 2 macros de même nom.

Dans ce cas il suffit de rajouter les lignes Run zkSafe ou/er Run zkVer dans ces macros "avec tes doigts !"

Le "On Error Resume Next" est destiné à éviter de provoquer une erreur si par hasard tu exportes ton fichier sur un autre ordinateur, bien sur il ne trouvera pas les macros ni ton i:SOS et ainsi il n'y aura pas d'erreur macro.

A+

fg2b · Answer

J'ai fait ce petit truc qui répond a ta demande Le dossier atlonia est a mettre a la racine de C: autrement il faudra changer les chemins dans la macro Bonne réception...

galopin01 · Answer

Désolé renumérote les lignes dans ton xlsb :

Sub CreateSOSMacro()
Dim x As Integer
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
x = .countOfLines
.insertLines x + 1, "Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)"
.insertLines x + 2, "On Error Resume Next"
.insertLines x + 3, "Run ""ZkVer"""
.insertLines x + 4, "End Sub"
.insertLines x + 5, "Private Sub Workbook_Open()"
.insertLines x + 6, "On Error Resume Next"
.insertLines x + 7, "Run ""ZkSafe"""
.insertLines x + 8, "Run ""ZkVer"""
.insertLines x + 9, "End Sub"
End With
End Sub

A+

galopin01 · Answer

Et si ça ne rentre pas dans la boucle if c'est que tu as merdé dans ton Path...

Simplifie mets "I:\SOS" comme ça tu peux pas te piéger tout seul...

Et rajoute un fichier (n'importe lequel) dans ton dossier de sauvegarde : Il faut que le prog trouve quelque chose dedans. sinon il croie s'être trompé de chemin...

Je sais c'est un peu capillo-tracté mais c'est à usage interne alors je ne me suis pas cassé la tête à fignoler... et puis normalement dans ce dossier il y a plutôt 500 fichiers que zéro...

A+

fg2b · Answer

Si tu as copié mon code dans ta macro, il faut que tu vires le "option explicit" au dessus de ta macro Savefile() , ca pourrait t'éviter ce problème. Cdlt...