Bonjour,
Je souhaiterais modifier une fonction mais je patauge un peu.
Je vais récupérer des données sur internet (environ 6000 lignes) et de temps en temps ma fonction waitie bug un peu : la page met du temps à charger et je souhaiterais si, au bout de 3 secondes, la page n'est pas totalement chargée que la fonction waitie (actualisation de la page) se recharge automatiquement jusqu'à ce qu'elle soit parfaitement chargée. Je ne sais pas si c'est possible, c'est pour cela que je fais appel à vos lumières.
Voici le code que j'ai repris a arkham46 :
Merci d'avance pour vos retours pour savoir où je peux toucher et si je dois toucher le code dans la fonction ou alors juste apres avoir indiquer WAITIE IE dans le code
Je souhaiterais modifier une fonction mais je patauge un peu.
Je vais récupérer des données sur internet (environ 6000 lignes) et de temps en temps ma fonction waitie bug un peu : la page met du temps à charger et je souhaiterais si, au bout de 3 secondes, la page n'est pas totalement chargée que la fonction waitie (actualisation de la page) se recharge automatiquement jusqu'à ce qu'elle soit parfaitement chargée. Je ne sais pas si c'est possible, c'est pour cela que je fais appel à vos lumières.
Voici le code que j'ai repris a arkham46 :
Code:
'*******************************************************************************
'FONCTION : ATTENDRE CHARGEMENT COMPLET DE LA PAGE INTERNET
Public Function WaitIE(IE As InternetExplorer, Optional pTimeOut As Long = 0) As Boolean
Dim lTimer As Double
lTimer = Timer
Do
DoEvents
If IE.readyState = READYSTATE_COMPLETE And Not IE.Busy Then Exit Do
If pTimeOut > 0 And Timer - lTimer > pTimeOut Then
WaitIE = True
Exit Do
End If
Loop
End Function
'************************************************************************************
Merci d'avance pour vos retours pour savoir où je peux toucher et si je dois toucher le code dans la fonction ou alors juste apres avoir indiquer WAITIE IE dans le code