bonsoir Joan
l'exemple ci-dessous créée des copies de sauvegardes du fichier dans un repertoire specifique
les deux premieres procedures sont à placer dans ThisWorkbook pour lancer et arreter automatiquement les macros de sauvegarde
Private Sub Workbook_Open()
Call Temporisation
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Finir
End Sub
les procedures suivantes sont à placer dans un module du fichier
dans l'exemple une copie de sauvegarde est effectuée toutes les 20 minutes ( il reste à adapter le repertoire et la periode )
si tu souhaites arreter manuellement les sauvegrades , lance la procedure "Finir"
Dim Periode As Date
Sub Temporisation()
ThisWorkbook.Save ' enregistrement du fichier
ThisWorkbook.SaveCopyAs _
Filename:="C:\Documents and Settings\excel\sauvegarde " & Format(Date, "yyyy mmmm d") & " " & Format(Time, "h mm ss") & ".xls" 'copie
Periode = Now + TimeValue("00:20:00") '20 minutes
Application.OnTime Periode, "Temporisation"
End Sub
Sub Finir()
On Error Resume Next
Application.OnTime Periode, "Temporisation", , False
End Sub
bonne soirée
michel
