Sauvegarde automatique

[ngexcel]

bonjour à tous
je cherche a faire une sauvegarde automatique
je trouve l'option macro complemantaire à cocher pour mettre sauvegarde auto toutes les heures

ou si non voici ma macro "complete " mes elle me demande la confirmation d'ecraser cela ne me convient pas je veux pas repondre c oui par defaut

Sub auto_open()
Dim heure$
heure = "13:30:00"
Application.OnTime EarliestTime:=TimeValue(heure), Procedure:="ferme"
End Sub
Sub ferme()
ActiveWorkbook.Close savechanges = True
End Sub

Sub LanceSauvegarde()
Temps = Now + TimeValue("00:02:00")
Application.OnTime Temps, "LanceSauvegarde"
Sauvegarde 'nom de la macro à lancer
End Sub


Sub Sauvegarde()
Sheets("macpac").Select
Workbooks.Open Filename:="c:\test\ExtractCDC.xls"
Workbooks.Open Filename:="c:\test\test.xls"
Windows("CDC1.xls").Activate
Range("D239").Select
Selection.Copy
Range("C2").Select
ActiveSheet.Paste
Windows("ExtractCDC.xls").Activate
Range("F2:F39").Select
Application.CutCopyMode = False
Selection.Copy
Windows("CDC1.xls").Activate
Range("D2").Select
ActiveSheet.Paste
Windows("ExtractCDC.xls").Activate
Range("G2:G39").Select
Application.CutCopyMode = False
Selection.Copy
Windows("CDC1.xls").Activate
Range("F2").Select
ActiveSheet.Paste
Sheets("Urgent").Select
Range("B3:B40").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C3:C40").Select
Selection.ClearContents
Range("B3").Select
Windows("test.xls").Activate
Range("E2:E40").Select
Selection.Copy
Windows("CDC1.xls").Activate
Range("B3").Select
ActiveSheet.Paste
Range("C3").Select
Windows("test.xls").Activate
Range("B2:B40").Select
Application.CutCopyMode = False
Selection.Copy
Windows("CDC1.xls").Activate
Range("C3").Select
ActiveSheet.Paste
Range("B3").Select
Windows("test.xls").Activate
ActiveWindow.Close
Windows("ExtractCDC.xls").Activate
ActiveWindow.Close
Sheets("Feuil1").Select
Range("C1:E1").Select

Range("b2").Value = Format(Now, "dd/mm/yyyy hh:mm:ss")
ActiveWorkbook.SaveAs Filename:="C:\test\cdc1.xls"
End Sub


Sub StopSauvegarde() 'à associer pour stopper la relance de la procédure
On Error Resume Next
Application.OnTime Temps, "LanceSauvegarde", , False
End Sub