[COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]
[COLOR=NAVY]Option Explicit
Dim[/COLOR] Tps [COLOR=NAVY]As Date[/COLOR]
[COLOR=NAVY]Sub[/COLOR] Tempo()
[COLOR=GREEN]'Programmation de l'évènement toutes les heures[/COLOR]
Tps = Now + TimeValue("01:00:00")
Application.OnTime Tps, "Tempo"
[COLOR=GREEN]'Traitement[/COLOR]
[COLOR=GREEN]'Les instructions de TA MACRO ICI...[/COLOR]
[COLOR=GREEN]'...[/COLOR]
[COLOR=GREEN]'...[/COLOR]
[COLOR=NAVY]End Sub[/COLOR]
[COLOR=NAVY]Sub[/COLOR] StopTempo()
[COLOR=NAVY]On Error Resume Next[/COLOR]
[COLOR=GREEN]'Stopper la gestion de l'évènement OnTime en cours[/COLOR]
Application.OnTime Tps, "Tempo", , [COLOR=NAVY]False
End Sub[/COLOR]