Discussion :

[Libesa]

Bonjour,

J'ai lu cette contribution.

Le tuto est vraiment génial mais environ 1 fois sur 4 ou sur 5 (de manière semble t il complétement alèatoire) lorsque j'execute j'ai un message d'erreur sur cette ligne:

Code :

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

Set htmlGeneric = IEDoc.body.all("event_num")

Quand je place un espion sur IEDoc.body.all("event_num"), il n'y a aucun probleme, le problème vient de l'affectation vers la variable htmlGeneric.

Une idée d'ou vient le problème et de sa résolution? C'est d'autant plus currieux qu'il ne bute jamais sur les autres affectations du même type dans le code, mais juste spécifiquement sur celle-ci.

Merci d'avance pour vos réponses éclairées.

[noftal]

Il me semble que c'est la manifestation d'un Wait IE qui n'a pas été efficace. Le code continue à se dérouler alors que la page web n'est pas prête.

Ce sujet a déjà été évoqué plus haut :
http://www.developpez.net/forums/d11...a/#post7453060

Je crois que la cause est encore assez obscure et aucune solution propre n'a été trouvée. Mais des parades existent : lire le post sus-indiqué et les suivants.

[Libesa]

Là ou c'est étrange c'est que je lui fait afficher le IE.ReadyState et que même dans les cas de plantage il m'affiche toujours ReadyState=4 (Complete)

[noftal]

C'est ce que je te disais (relire le post): on a constaté que le READYSTATE passe à COMPLETE alors que visiblement les infos ne sont pas encore accessibles.
Enfin, c'est comme si.
Si tu te mets juste à côté de ta box (en wifi) ou si tu as un réseau qui débite bien, ton waitIE suffit et je parie que tu ne plantes plus.
Mais dès que ta page web met du temps à s'afficher (quelle qu'en soit la raison), le code ne sait plus attendre suffisamment et ça plante.
Enfin... je le dis avec mes mots à moi

[Libesa]

Effectivement je suis pas très fan de boucler tant que la variable=nothing et de sortir au bout de x repetitions si ça marche tjs pas, mais comme ça semble la seule solution viable, on va faire comme ça.

Merci pour ta réactivité. Moins d'une minute sous controle d'huissier.

[Libesa]

Finalement, j'ai trouvé la methode qui me convient le mieux:

Code :

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

1
2
3
4
5
If IEDoc.body.all("filtres") Is Nothing Then
        IE.Visible = False
        MsgBox "Nous subissons un léger contretemps. Veuillez nous en excuser."
        IE.Visible = True
End If

Le temps d'afficher la msgbox, de la lire par l'utilisateur et de cliquer, ma page a fini de se charger complétement (en tout cas ça a été le cas sur chacun de mes essais).

[Libesa]

Merci, c'est exactement ce que je cherchais!

[AlainTech]

Bonjour à tous,

Je l'ai déjà mentionné dans de nombreuses discussion mais il me paraît utile de le dire ici.
Même quand IE a terminé, il se peut que le Document (le contenu de la page) n'ait pas fini de se charger.

Après chaque changement de page, il faut répéter la structure suivante:

Code :

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

1
2
3
    WaitIE IE
    Set IEDoc = IE.document
    WaitDoc IEDoc

avec les 2 procédures d'attente:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub WaitIE(IE As InternetExplorer)
  Do While Not IE.readyState = READYSTATE_COMPLETE
    DoEvents
  Loop
End Sub
 
Sub WaitDoc(doc As HTMLDocument)
  Do While Not doc.readyState = "complete"
    DoEvents
  Loop
End Sub

Testé et retesté dans de nombreux contextes...