GADENSEB
XLDnaute Impliqué
Hello le Forum
J'ai cette petite macro qui tourne parfaitrement :
Elle a pour but de sauvegarder le fichier courant (elle se déclenché à l'enregistrement) en créant des version VI, VII ......
Cela créer bcp de version , et du coup , je souhaiterais que la sauvegarde de version ne se fasse qu'une fois par journée et non plus X version par jour
exemple :
V1 - 07/09/2016
V2 - 08/09/2016
V3 - 09/09/2016
Je suppos q'il faut faire un test sur le précédent enregistrement pour voir la date de création, mais je sais pas ou le placer.
QQn aurait une idée?
j'ai fais un fichier crashtest
Merci
Bonne journée
J'ai cette petite macro qui tourne parfaitrement :
Elle a pour but de sauvegarder le fichier courant (elle se déclenché à l'enregistrement) en créant des version VI, VII ......
Cela créer bcp de version , et du coup , je souhaiterais que la sauvegarde de version ne se fasse qu'une fois par journée et non plus X version par jour
exemple :
V1 - 07/09/2016
V2 - 08/09/2016
V3 - 09/09/2016
Je suppos q'il faut faire un test sur le précédent enregistrement pour voir la date de création, mais je sais pas ou le placer.
QQn aurait une idée?
j'ai fais un fichier crashtest
Code:
Public NomFichierPublic As String
Dim sRep As String 'Répertoire de sauvegarde
Dim sFilename As String 'Nom du fichier
Sub SAUVEGARDE()
Dim Répertoire As String, Nf As String, NomFichier As String
Dim N As Long
Répertoire = ActiveWorkbook.Path & "\OLD"
'Si le dossier OLD n'éxiste pas alors je le créer
If Dir(Répertoire, vbDirectory) = "" Then MkDir (Répertoire)
'et j'incrémente le n° de fichier pour les 2 cas
NomFichier = ThisWorkbook.Name
Nf = Dir(Répertoire & "\" & NomFichier & "*" & ".xlsm")
N = 0
Do While Nf <> ""
N = N + 1
Nf = Dir
Loop
'Sauvegarde une copie du fichier et ne touche donc pas au fichier en cours
ActiveWorkbook.SaveCopyAs Filename:=Répertoire & "\" & NomFichier & " - V" & N + 1 & ".xlsm"
End Sub
Merci
Bonne journée