Discussion :

[ricoree78]

salut j ai la macro suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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 ?

[dadavyvy]

Il faut peut-etre ajouter qq temporisations en plus :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ricoree78]

ca semble etre bon
merci