[VBA] recuperer code html

salut j ai la macro suivante
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Sub recup_codehtml(site, celul, macreau) Set IE = CreateObject("InternetExplorer.Application") With IE .Visible = False .Silent = True .Navigate site Do Until .ReadyState = READYSTATE_COMPLETE DoEvents Loop 'attend la fin du chargement Contenu = .Document.DocumentElement.innerHTML .Quit End With Set IE = Nothing 'Affichage Sheets("html").Select Range(celul).Value = Contenu If macreau = "europe" Then Call europe If macreau = "federal_fund_rate" Then Call federal_fund_rate If macreau = "england" Then Call england If macreau = "russie" Then Call russie If macreau = "canada" Then Call canada If macreau = "australie" Then Call australie If macreau = "norvege" Then Call norvege End Sub
cependant je fais appel plusieurs fois dans mon code a cette macro pour recuperer le code html de plusieurs sites et de temps en temps j ai ce message d'erreur qui apparait et fais planter ma macro

Citation:

erreur execution 2147023170(800706be)
erreur automation
echec de l'appel de procedure distante

a quoi est ce du a votre avis ?
est il possible de resoudre ce probleme ?

Il faut peut-etre ajouter qq temporisations en plus :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Set IE = CreateObject("InternetExplorer.Application")
With IE
    .Visible = False
    .Silent = True
    .Navigate site
        Do Until .ReadyState = READYSTATE_COMPLETE
             DoEvents
        Loop 'attend la fin du chargement
        Do While .document.ReadyState <> "complete"
             DoEvents
        Loop 'attend la fin du chargement du document
    Contenu = .Document.DocumentElement.innerHTML
    ' ou Contenu = .Document.body.innerHTML
    .Quit
End With
Set IE = Nothing

ca semble etre bon
merci