Enregistrer par version

[flo2002]

Re bonjour,

une petite macro qui prend deux minutes pour celui qui connais:

je voudrai faire un bouton de sauvegarde pour forcer à faire des versions.

J'ai en page de garde le nom du fichier (ex:"aaa")

je voudrai en cliquant sur le bouton qu'il enregistre dans le meme repertoir le fichier avec le nom


Date/Heur/XXX.xls

Je pense ca doit etre facil pour vous, mais beaucoup moins pour moi!

merci d'avance!

 

[Kobaya]

Re : Enregistrer par version

coucou flo,

quelquechose comme ça :

ActiveWorkbook.SaveAs Format(Date,"yymmdd") & format(Time,"hhmmss") & Range("NomFichier").Value & ".xls"

j'ai pas testé, mais ça devrait pas êter loin.. 🙂

 

[Creepy]

Re : Enregistrer par version

Bonjour le Forum, Flo,​

Crée un bouton sur ta page de garde et affecte lui le code suivant :​

[LEFT]Dim Savename As String
Savename = ThisWorkbook.Path & "\" & Format(Date, "dd/mm/yyyy") & "_" & Format(Time, "hh:mm:ss") & "_" & ThisWorkbook.Name
ActiveWorkbook.SaveAs Filename:=Savename, FileFormat:=xlWorkbookNormal, CreateBackup:=False, AddToMru:=True[/LEFT]

Et voila le tour est joué. ATTENTION pour que ca marche correctement tu dois la première fois sauvegarder manuellement le fichier. ​

@+​

Creepy

EdIt : Hello Kobaya, réponse simultanée !!!​

 

[flo2002]

Re : Enregistrer par version

Merci ca a lair de ressembler a ce que je cherchais!

Merci Creepy et Kobaya!

 

[Kobaya]

Re : Enregistrer par version

salut Creepy,

pas sûr que ta macro fonctionne : les antislashs sont pas acceptés dans un nom de fichier ; les deux points, je sais pas...
à toi de tester flo 😱

 

[flo2002]

Re : Enregistrer par version

re

j'ai mis:

Dim ZZZ As String
ZZZ = Sheets("Garde").Range("B5").Value

ActiveWorkbook.SaveAs Format(Date, "yymmdd") & Format(Time, "hhmmss") & Range("ZZZ")

et ca plante
peut etre un pb avec le format date et heur?

dsl je suis une tete de linotte!
range(ZZZ)??? >>> ZZZ direct pour la variable

merci a tous!