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 ?