'*******************************************************************************
'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
'************************************************************************************