Sub Actualiser()
' Définit l'intervalle avec l'heure actuelle
uneheure = TimeSerial(Hour(Time), Minute(Time) + 2, Second(Time))
Workbooks("Tableau Inscription-Commande.xlsm").Activate
Sheets("Dates").exportdonnées
HeureExecution = Now + TimeSerial(0, 1, Interval)
' Appel récursif
Application.OnTime HeureExecution, "Actualiser"
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime uneheure, Procedure:="Actualiser", Schedule:=False
End Sub