Bonjour à tous.
Je cherche pour mon classeur boursier à créer une macro qui se déclencherait toutes les 5 minutes entre 8h45 et 17h45.
Je suis arrivé aux deux résultats, mais sans pouvoir les imbriquer.
Un peu d'aide svp ?
Sub LancementAutomatique()
Depart = #8:45:00 AM# 'heure de départ souhaitée
Arret = #5:45:00 PM# 'heure de fin souhaitée
Go = TimeSerial(Hour(Time), Minute(Time), Second(Time))
Application.OnTime Go, "LancementAutomatique"
Do While Go > Depart And Go < Arret
MajCotations ' Fonction à déclencher
Range("B1") = Time ' affichage de l'heure
Go = TimeSerial(Hour(Time), Minute(Time) + Range("A1"), Second(Time)) 'en A1 valeur 5 pour 5 minutes
Loop
End Sub
Je cherche pour mon classeur boursier à créer une macro qui se déclencherait toutes les 5 minutes entre 8h45 et 17h45.
Je suis arrivé aux deux résultats, mais sans pouvoir les imbriquer.
Un peu d'aide svp ?
Sub LancementAutomatique()
Depart = #8:45:00 AM# 'heure de départ souhaitée
Arret = #5:45:00 PM# 'heure de fin souhaitée
Go = TimeSerial(Hour(Time), Minute(Time), Second(Time))
Application.OnTime Go, "LancementAutomatique"
Do While Go > Depart And Go < Arret
MajCotations ' Fonction à déclencher
Range("B1") = Time ' affichage de l'heure
Go = TimeSerial(Hour(Time), Minute(Time) + Range("A1"), Second(Time)) 'en A1 valeur 5 pour 5 minutes
Loop
End Sub