Créer un timer
4 mars 2014
Dans un module, tapez le code suivant :
Dim Lheure As Double Dim Interval As Integer Public Sub LancerTimer(NbS As Integer) 'L'application ExecutionTimer se lancera toutes les 0 heure, 0 minute et Interval seconde Interval = NbS ' la ligne suivante va lancer la procédure ExecutionTimer tous les intervalles secondes Application.OnTime Now + TimeSerial(0, 0, Interval), "ExecutionTimer" End Sub Public Sub ArretTimer() 'Pour arrêter le timer, il suffit d'appeler cette procédure. On Error Resume Next Application.OnTime Lheure, "ExecutionTimer", , False End Sub Public Sub ExecutionTimer() 'code à exécuter à la fin de chaque Interval secondes 'mettez ici votre code 'code obligatoire Lheure = Now + TimeSerial(0, 0, Interval) Application.OnTime Lheure, "ExecutionTimer" End Sub