Discussion :

[talrashha]

Bonjour,

J'ai un souci auquel je ne comprend rien.
Voici déjà un petit bout de code :

Code :

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

1
2
3
4
5
6
 
            Set HTML_res = doc.body
            On Error GoTo reload
            'Cas d'un mauvais chargement, on reload la page
 
            monHTML = HTML_res.outerHTML

Ce morceau de code est placé autour d'une grosse procédure qui effectue une recherche sur un site internet des informations. Elle reconstite la procédure que ferait un humain... qui consiste à saisir les critères de recherches et d'appuier sur le bouton "rechercher".
Les 3 lignes de code précedentes représentent la récéption du code source de la page de resultat de la recherche.

Le bug se produit sur la derniere ligne (monHTML = HTML_res.outerHTML)... Lorsque l'erreur se produit, la variable HTML_res vaut "Nothing".... alors qu'aucune autre instruction se trouve entre l'affectation et l'utilisation de cette variable...

De plus, si je met un point d'arret sur la ligne Set HTML_res = doc.body, et que j'appuie sur F5 pour continuer l'execution, tout fonctionne bien...

Enfin, je ne comprend pas pourquoi l'erreur n'est pas réceptionnée par la ligne On Error GoTo reload...

Merci d'avances pour vos idées...

[LedZeppII]

Bonjour,

tu as peut-être un problème de temporisation/synchronisation.
Si tu utilises un objet InternetExplorer pour charger une page web, la méthode Navigate n'attend pas que la page soit chargée pour passer à la ligne de code suivante.

Dans ton code je dirai que doc ou son membre body sont Nothing.

Ce n'est pas infaillible mais voici comment je procède.

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
' Référence VB utilisées
' Microsoft Internet Controls   : Library SHDocVw (\WINDOWS\system32\shdocvw.dll)
' Microsoft HTML Object Library : Library MSHTML (\WINDOWS\system32\MSHTML.TLB)
Dim IE As SHDocVw.InternetExplorer
Dim htDoc As MSHTML.HTMLDocument
 
' Création navigateur web et ouvrir http://access.developpez.com/
Set IE = New SHDocVw.InternetExplorer
' ou
'Set IE = CreateObject("InternetExplorer.Application")
 
IE.Visible = True
IE.navigate "http://access.developpez.com/"
 
' Attendre chargement complet de la page
Do
  DoEvents
Loop Until IE.Busy = False And IE.ReadyState = READYSTATE_COMPLETE
 
' Récupérer l'objet Document de la page
Set htDoc = IE.Document

La boucle

Code :

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

1
2
3
Do
  DoEvents
Loop Until IE.Busy = False And IE.ReadyState = READYSTATE_COMPLETE

est sensée garantir le chargement complet de la page.
Elle ne fonctionne pas dans le cas d'une redirection vers une autre page.

En tout cas une chose est sûre. Tant que la page n'est pas complètement chargée, Document vaut Nothing.

En espèrant que ça t'aide un peu. A+

[talrashha]

Salut,

Ah, ben manifestement t'as raison... personnellement je ne connaissais que

Code :

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

1
2
3
4
 
While IE.Busy 
  DoEvents
Wend

Je fais encore quelques tests mais ça a l'air bon.

Merci