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

Faites appel à moi

pour vos formations chez vous pour les dpts 59, 62, 80, 81, 31, 82 et 11 ou à distance

pour vos développements bureautiques (tout Office)

 Communauté partenaire Microsoft

Créer un timer

Créer un timer

 Haut

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
   Impression Impression