XL 2010 Sauvegarde récurente a chaque jour

[GADENSEB]

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

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

 

[Staple1600]

Bonjour à tous

Je rejoins BrunoM45 qui a rejoint Dranreb 😉
A partir d'Excel 2013; Excel sait enregistrer plusieurs versions d'un fichier (1)
et récupérer les fichiers (2)

 

[JCGL]

Bonjour à tous,
Salut aux amis,

Je rejoins l'Agrafe qui a rejoint mon Nono qui a rejoint Bernard.
Si nos plus de 57000 réponses ont une valeur, notre ami aura compris...

A+ à tous

 

[GADENSEB]

Désolé je reviens aprés un we d'absence....
ok ok vous avez raison
Je vais tester l'enreg auto et le systeme de version !!
Merci à vous