copie de sauvegarde

Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:\test.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, [B]CreateBackup:=True[/B]
End Sub

Sub test() 
    ThisWorkbook.Save 
    Application.DisplayAlerts = False 
    NOM=InputBox("Nom de la copie?")
    ThisWorkbook.SaveAs filename:=NOM & ".xls"
    Application.Quit 'pas obligatoire peut etre mis een commentaire
End Sub

Option Explicit 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'auteur: Bob Phillips   
    ThisWorkbook.SaveCopyAs "C:\Backups\" & _ 
     Format(Date, "yyyy-mm-dd") & " - " & ThisWorkbook. Name 
'on peut changer le format, ex:
'Format(Date, "mm-dd") & " - " & ThisWorkbook. Name 
End sub

Sub backupBYDATE()
'AUTEUR macro originale :makako
'auto save by date
'decommenter la ligne ci-dessous pour activer la sauvegarde un jour particulier
'ici le mardi
'If evaluate("=WEEKDAY(TODAY())" ) <> 3 then: exit sub
Dim dname As String, strTest As String, tStamp As String
dname = "C:\" & Format(Now(), "yy_mmdd") 'ici adapter la lettre du lecteur
tStamp = Format(Time, "hh-mm-ss")
strTest = Dir(dname, vbDirectory)
'test de l'existence du répertoire
If (strTest = "") Then MkDir (dname) 'création du répertoire si inexistant ex: 07_0614
ActiveWorkbook.SaveCopyAs dname & "\" & tStamp & ActiveWorkbook.Name
ActiveWorkbook.Save 'also save current file
End Sub