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