SergiO
XLDnaute Accro
Bonjour à tous,
J'ai développé une appli qui permet de récupérer des infos sur le Web afin de créer des tableaux automatiquement.
Cela fonctionne correctement avec Excel 2000 et Excel 2003 mais plante avec Excel 2007 :
Erreur 462 : Le serveur distant n'existe pas ou n'est pas disponible.
Après des recherches infructueuses, je me tourne vers vous.
Voici la partie du code qui pose problème :
Merci d'avance
J'ai développé une appli qui permet de récupérer des infos sur le Web afin de créer des tableaux automatiquement.
Cela fonctionne correctement avec Excel 2000 et Excel 2003 mais plante avec Excel 2007 :
Erreur 462 : Le serveur distant n'existe pas ou n'est pas disponible.
Après des recherches infructueuses, je me tourne vers vous.
Voici la partie du code qui pose problème :
Code:
Dim IE As Object
Dim Cible As HTMLAnchorElement
Dim Doc As HTMLDocument
Set IE = CreateObject("InternetExplorer.application")
Sheets("Req2").Cells.ClearContents
Lig = 0
For Pg = 0 To 100
IE.Navigate "monsite" [COLOR=Red]'Ca fonctionne jusqu'ici, ensuite la ligne qui renvoie l'erreur est aléatoire[/COLOR]
IE.Visible = False
Do Until IE.readyState = READYSTATE_COMPLETE
Pause
DoEvents
Loop
For L = 0 To 100
Set Doc = IE.Document
Set Cible = Doc.Links(L)
If Cible Is Nothing And L = 0 Then GoTo Fin
If Cible Is Nothing Then GoTo Suivant1
'...
Merci d'avance