Dim objIE Set objIE = CreateObject("InternetExplorer.Application") Sub GetDocIE_HTM_Text (sUrl, sHTM, sTxt) REM ======================================== REM = Récupère le texte d'une page Web aux 2 formats REM ======================================== On Error Resume Next 'ne pas instancier objIE ici sinon le processus iexplore.exe gonfle terriblement 'et fait planter la machine objIe.Navigate (sUrl) objIE.Visible = False Do While Not objIE.ReadyState = 4 ' Ne rien faire : boucle indispensable ! Loop sHTM = objIe.Document.Body.innerHTML sTxt = objIe.Document.Body.innerText End Sub