Comment lancer une Form toutes les demi heures par exemple

kllmm Messages postés 35 Date d'inscription jeudi 7 février 2002 Statut Membre Dernière intervention 5 octobre 2003 - 5 mars 2002 à 00:08
kllmm Messages postés 35 Date d'inscription jeudi 7 février 2002 Statut Membre Dernière intervention 5 octobre 2003 - 6 mars 2002 à 10:32
salut a tous , je cherche a lancer une form toutes les demi heures (ou heures) et evidemment la fonction 'Timer' est assez limité (1mn)....

2 réponses

cs_LUDEr Messages postés 27 Date d'inscription mardi 12 février 2002 Statut Membre Dernière intervention 21 juin 2002
5 mars 2002 à 08:48
Voici un exemple:

Option Explicit
Dim NbrMinute As Integer

Private Sub Form_Load()
  NbrMinute = 0
  Timer1.Interval = 60000  'un déclenchement de timer par minute
End Sub

Private Sub Timer1_Timer()
  NbrMinute = NbrMinute + 1
  If NbrMinute = 30 Then
    NbrMinute = 0
    ' suite du programme à lancer toutes les 30 minutes
    ' etc
  End If
End Sub
0
kllmm Messages postés 35 Date d'inscription jeudi 7 février 2002 Statut Membre Dernière intervention 5 octobre 2003
6 mars 2002 à 10:32
Merci a toi LUDEr , ai pas encore essayé mais j'y vais de ce pas , thankkkkkkkkkkkk !!!!
0
Rejoignez-nous