Discussion :

[lucazzo]

Bonjour,

J'aimerais lancer chaque 3 secondes une procédure.
Voici le code que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Lancer()
    Interval = 3
    Application.OnTime Now + TimeSerial(0, 0, Interval), "ExecuterTimer"
End Sub
 
'   Pour démarrer le Timer
Private Sub Workbook_Open
    Lancer
End Sub
 
Sub ExecuterTimer()
    "...Execution de la procédure..."
End Sub

Seulement voilà..
Il ne le fait qu'une seule fois et non pas chaque 3 secondes comme prévu..
Qqun aurait une idée ?? Merci

[fring]

en fin de procédure, tu dois relancer le timer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub ExecuterTimer()
    "...Execution de la procédure..."
Lancer
End Sub

Il faut également prévoir de l'arrêter à la fermeture du classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime Now , "ExecuterTimer", , False
End Sub

[Godzestla]

Salut,
très intéressant. merci pour le truc.