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