Dim t# 'mémorisation
'à l'ouverture du fichier
Private Sub Workbook_Open()
Enregistrer
End Sub
'à la fermeture du fichier
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Save 'enregistrement
On Error Resume Next
Application.OnTime t, "ThisWorkbook.Enregistrer", , False
End Sub
Sub Enregistrer()
Me.Save 'enregistrement
't => heure d'horloge suivante + 1 minute
t = Application.Floor(Now + 1 / 24, 1 / 24) + 1 / 1440
Application.OnTime t, "ThisWorkbook.Enregistrer"
End Sub