L'informatique à votre portée
L'informatique prêt-à-porter

Faites appel à moi pour vos formations
sur les dpts 81, 31, 82, 11 et 67 (Strasbourg)
Confiez moi vos développements Office

FacebookTwitterGoogle BookmarksLinkedin

Créer un timer

Imprimer E-mail
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