VB6 et Webbrowser (encore!)

Bonjour à tous et meilleurs vœux

Décidément j'ai du mal avec Webbrowser, je désire récupérer le code d'une page internet, devant les problèmes j'ai réduit le programme à sa plus simple expression:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Command1_Click() navigue ("http://www.allocine.fr/film/fichefilm-170209/photos/") End Sub Private Sub Command2_Click() navigue ("http://www.allocine.fr/recherche/?q=%23chef") End Sub Private Sub navigue(p$) WebBrowser1.Navigate p$ End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) If (pDisp Is WebBrowser1.object) Then DoEvents WebBrowser1.Stop MsgBox (WebBrowser1.Document.documentelement.innerhtml) End If End Sub

---

Avec la référence et le composant "Microsoft internet controls" en plus des habituels. Vous l'avez déjà déduit du texte du programme il n'y a que trois éléments: une fenêtre Webbrowser1 et deux boutons command1 et command2

Alors voilà les problèmes:
1- Peut-on empêcher le lancement d'une navigation sauvage de Webbrowser au démarrage ?
2- Pourquoi a-t-on une erreur qui n'a rien à voir dès que l'on touche à DoEvents ?
3- Comment faire pour traiter la page du second bouton malgré ses problèmes de script ?

Voilà, merci de votre attention

Je n'ai rien résolu mais pour le point 3, au cas où ça intéresserait quelqu'un, j'ai une mesure palliative:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Dim compte% Private Sub Command1_Click() navigue ("http://www.allocine.fr/film/fichefilm-170209/photos/") End Sub Private Sub Command2_Click() navigue ("http://www.allocine.fr/recherche/?q=%23chef") End Sub Private Sub navigue(p$) WebBrowser1.Silent = True compte% = 1 WebBrowser1.Navigate p$ End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) If compte% > 0 Then compte% = compte% + 1 If (pDisp Is WebBrowser1.object) Or compte% > 5 Then DoEvents WebBrowser1.Stop MsgBox (WebBrowser1.Document.documentelement.innerhtml) If compte% > 5 Then WebBrowser1.GoHome compte% = 0 End If End If

---