Salut
L'application OnTime permet de lancer une procédure à une heure donnée.
Pour répéter une action à intervalles donnés, il ne faut donc pas que tu appelles ta procédure "EnregistrerEnPageWeb", mais que tu à nouveau ta procédure RafraichissementGraphe de manière à boucler.
Niveau code ça donnerai ça :
Sub RafraichissementGraphe()
' Définit l'intervalle avec l'heure actuelle + trente secondes
DansTrenteSecondes = TimeSerial(Hour(Time), Minute(Time), Second(Time) + 30)
' Appel récursif de la fonction RafraichissementGraphe
Application.OnTime DansTrenteSecondes, "RafraichissementGraphe"
' Appel de la fonction EnregistrerEnPageWeb
Call EnregistrerEnPageWeb
End Sub
parceque j'aimerais la stopper à 21HOO?
Merci d'avance
Sub RafraichissementGraphe() ' Définit l'intervalle avec l'heure actuelle + trente secondes DansTrenteSecondes = TimeSerial(Hour(Time), Minute(Time), Second(Time) + 30) If DansTrenteSecondes < "21:00:00" Then ' Appel récursif de la fonction RafraichissementGraphe Application.OnTime DansTrenteSecondes, "RafraichissementGraphe" ' Appel de la fonction EnregistrerEnPageWeb Call EnregistrerEnPageWeb End If End Sub