Erreur d'exécution 91 après compilation

Bonjour, j'ai fait un petit programme qui a pour objectif de récupérer le code source d'une page HTML dans un fichier texte dons voici les quelques lignes:

    Dim strsrc As String

    Private Sub Command1_Click()
    strurl = TxtUrl.Text
    WebBrowser1.Navigate strurl
    End Sub

    Private Sub WebBrowser1_DownloadComplete()
    strsrc = WebBrowser1.Document.documentElement.innerHTML
    Open "c:\1.txt" For Output As #1
    Print #1, strsrc
    Close #1
    End Sub

le programme fonctionne correctement tant que je ne l'ai pas compilé, cependant après compilation lorsque je lance mon exécutable, l'erreur suivante apparaït: "Erreur d'exécution '91': Variable objet ou variable bloc With non définie"
Quelqu'un pourrait-il m'éclairer sur les raisons de cette erreur?

Salut,

Je ne pense pas que ce soit lié mais bon, sait-on jamais :

Dim strsrc As String   '<= pourquoi pas strurl aussi ?
Dim strurl As String   ' là c'est mieux !  lol

    Private Sub Command1_Click()
    strurl = TxtUrl.Text
    WebBrowser1.Navigate strurl
    End Sub

@++

  --Mortalino--
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

Merci pour vos réponses, d'habitude j'utilise toujours Option Explicit mais là j'avais vite retapé le code sans faire attention.

Sinon, j'ai retappé le code dans un nouveau projet et l'erreur se manifeste effectivement avant la compilation cette fois-ci.

L'erreur est effctivement dûe au fait que WebBrowser1.Document = Nothing.

Tout fonctionne lorsque l'on agit de la sorte:

        Option Explicit
        Dim strsrc As String
        Dim strurl As String

        Private Sub Form_Load()
        WebBrowser1.navigate ""
        End Sub

        Private Sub Command1_Click()
        strurl = txturl.Text
        WebBrowser1.navigate strurl
        strsrc = WebBrowser1.document.documentElement.innerHTML
        End Sub

        Private Sub WebBrowser1_DownloadComplete()
        Open "c:\1.txt" For Output As #1
        Print #1, strsrc
        Close #1
        End Sub

Cependant ce procédé ne me semble pas très coorect étant donné que la procédure WebBrowser1_DownloadComplete() s'effectue inutilement  au démarrage.
Enfin c'est déjà un moindre mal mais si quelqu'un a mieu à me proposer je suis toujours prenneur

Oui effectivement... C'était la moindre des choses
Merci beaucoup, ca fonctionne impec maintenant....