Public NomFichierPublic As String
Dim sRep As String 'Répertoire de sauvegarde
Dim sFilename As String 'Nom du fichier
Sub Sauvegarde_Journaliere()
Dim Répertoire As String, NomFichier As String
Répertoire = ActiveWorkbook.Path & "\BACKUP"
'Si le dossier BACKUP n'éxiste pas alors je le créer
If Dir(Répertoire, vbDirectory) = "" Then MkDir (Répertoire)
' Créer un nom de fichier unique par jour
NomFichier = ThisWorkbook.Name
NomFichier = Left(NomFichier, Len(NomFichier) - 5)
' NomFichier = NomFichier & "-" & Format(Date, "dd.mm.yyyy") & ".xlsm"
NomFichier = NomFichier & "-" & Format(Date, "yyyy.mm.dd") & ".xlsm"
' Vérifier si le fichier du jour n'existe pas
If Dir(Répertoire & "\" & NomFichier) = "" Then
'Sauvegarde une copie du fichier et ne touche donc pas au fichier en cours
ActiveWorkbook.SaveCopyAs Filename:=Répertoire & "\" & NomFichier
End If
End Sub