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 : 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
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