Discussion :

[csilas]

Bonjour,

Comme le titre du sujet l'indique, j'ai une erreur. Le type de l'erreur est la suivante : Erreur d'éxecution 91: Variable object ou variable bloc with non définie.

J'ai cherché sur la toile, mais je n'ai pas trouvé la solution. Pouvez-vous m'aider.

Je vous donne mon code :

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
 
Private Sub WebBrowserSrvCATP1_DownloadComplete()
    Dim pathString As String
    Dim codeSrc As String
    Dim vFind As Boolean
 
    vFind = False
    pathString = "Mode espion OK"
    codeSrc = WebBrowserSrvCATP1.Document.documentElement.innerHTML 'recupération du codesrc
    vFind = InStr(codeSrc, pathString)
 
    If vFind = True Then
        Call espionBamOK
    Else
        Call espionBamNonOK
    End If
End Sub

L'erreur se situe sur la ligne suivante :

Code :

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

codeSrc = WebBrowserSrvCATP1.Document.documentElement.innerHTML 'recupération du codesrc

Cordialement.

[l_autodidacte]

J'ai exécuté ton code et aucun message d'erreur n'est apparu.(Bien sûr j'ai mis en commentaire "Call espionBamOK" et "Call espionBamOK").
Mais au fait, as-tu ajouté le composant WebBrowser en référençant le fichier ieFrame.dll (Microsoft Internet Controls)depuis le dossier système ?

[csilas]

Bonsoir a toi l_autodidacte.

JE ne sais pas de quoi tu parle ^^. Pour ajouter le composant webBrowsern, je suis aller dans projet/Composant et j'ai cliquer sur Microsoft internet controls.. Voila.

Faut-il ajouter quelque chose d'autre?
Pour information, c'est la premiere fois que j'utilise le controle webBrowser.

PS: je viens de regarder le chemin d'accés de mon composant: C:\WINDOWS\system32\shdocvw.dll

Cordialement.

[l_autodidacte]

JE ne sais pas de quoi tu parle

Eh bien du sujet que tu as invoqué.
As-tu renommé le composant ajouté sur la feuille comme indiqué dans ton code WebBrowserSrvCATP1 ?
Le test que j'ai réalisé n'a rien demandé(d'autre), donc tu n'as besoin de rien d'autre(à mon avis et d'après ce que j'ai pu constater).

Bonne journée

[csilas]

Oui, j'ai bien renommer le composant sur le formulaire comme indiqué dans mon code WebBrowserSrvCATP1.

Je ne comprend pas pourquoi sur mon ordi, il y a une erreur d'éxecution. Je vais continuer a chercher.

Cordialement.

[l_autodidacte]

Salut

Eh bien il se trouve que l'objet Document ne possède pas de sous-objets ou propriétés.
C'est pour cela que tu as ce message d'erreur.

Dans la fenêtre code, fais un clic droit sur le mot Document puis choisis Définition et tu auras l'explorateur d'objet pointant sur ce mot.

[SfJ5Rpw8]

l'erreur apparait à quel moment ? au chargement du page html particulière ?

[Edit]

bon j'arrive aussi a provoquer le problème quelque-fois comme si l'événement "download_complete" été généré avant le chargement complet de la page pour corriger cela tu peut rajouter au début de la fonction :

Code :

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

1
2
3
4
5
(..)
While WebBrowserSrvCATP1.ReadyState = READYSTATE_LOADING
    DoEvents
 Wend
codeSrc = WebBr(..)

[csilas]

Bonjour a tous,

Deja merci pour votre aide, je vais tester ton code bbil et je vous tiens au courant.

l'erreur apparait à quel moment ? au chargement du page html particulière ?

L'erreur se produit lorsque l'application compile. Je m'explique, Si je pose un point d'arret sur la toute premiere ligne de mon code (exemple dans le Form_Load()). Mon application compile pour l'executer, s'arrete sur le point d'arret, j'appuie ensuite sur le bouton executer et la je n'ai pas l'erreur.

Donc je suppose, que mon probleme provient du fait que mon premier webBrowser n'a pas le temps de se charger complétement.

Cordialement.

[SfJ5Rpw8]

tu as essayé d'appliquer la modification que je t'ai proposé ?

[csilas]

Bonjour bbil,

Je viens de tester ton code. Ton code a supprimer le message d'erreur que j'avais. Par contre, maintenant j'ai un nouveau message d'erreur.

Le message est le suivant :

Erreur d'éxecution -217024726(800700aa):
LA méthode NAvigate de l'objet IWebBrowser2 a échoué.

L'erreur s'arrete sur cette ligne de code:

Code :

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

1
2
3
4
With WebBrowserSrvCATP1
        .Navigate "MON ADRESSE IP" 'Erreur sur cette ligne
        Call WebBrowserSrvCATP1_DownloadComplete
    End With

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
22
Private Sub WebBrowserSrvCATP1_DownloadComplete()
    Dim pathString As String
    Dim codeSrc As String
    Dim vFind As Boolean
 
    vFind = False
    pathString = "Mode espion OK"
 
    While WebBrowserSrvCATP1.ReadyState = READYSTATE_LOADING
        DoEvents
    Wend
    With WebBrowserSrvCATP1.Document
        codeSrc = .documentElement.innerHTML 'recupération du codesrc
    End With
 
    vFind = InStr(codeSrc, pathString)
    If vFind = True Then
        Call espionBamSrvCATP1OK
    Else
        Call espionBamSrvCATP1NonOK
    End If
End Sub

Pour mon adresse IP, j'utilise des servlets. Le probleme, peut-il venir de la?

Cordialement.

[SfJ5Rpw8]

oups ...

déjà c'est quoi cela :

Code :

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

 Call WebBrowserSrvCATP1_DownloadComplete

tu ne nous avez pas montré cela, tu n'as pas a appeler la procédure WebBrowserSrvCATP1_DownloadComplete , c'est une procédure associé a un événement du webbrowser son appel est géré par le webbrowser !




ensuite :

Code :

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

"MON ADRESSE IP"

n'est pas une bonne adresse IP !

[DarkVader]

Bonjour,
D'une manière générale, les empilements à rallonge de propriétés du style

WebBrowserSrvCATP1.Document.documentElement.innerHTML

sont risqués pour peu que l'un des objets intermédiaires ne soit pas affectés
(cas fréquent de l'object Document du webbrowser si le document est incomplètement chargé).
De manière générale il est utile de tester l'affectation des objects intermédiaires

Code :

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

1
2
3
4
5
6
set objDoc=WebBrowserSrvCATP1.Document
if typename(objDoc)<>"Nothing" then
  codesrc=objDoc.documentElement.innerHTML
else
    ' Problem
endif

[csilas]

Bonjour a vous,

Merci pour votre aide. J'ai réussi a faire ce que je voulais grace a votre aide. J'ai recommencer un nouveau projet et la deuxieme erreur que j'ai pu constater a disparu.

Merci encore.

Cordialement.

[csilas]

Bonjour a tous,

Je viens vers vous car j'ai un petit probléme que je n'arrive pas à resoudre. Voila, j'ai developpé une application qui marche. Cependant, mon application étant terminé je créer l'executable. Le .exe se crée, mais lorsque je double-clique sur l'exe j'ai l'erreur suivante :

Erreur d'éxecution '91' : Variable objet ou variable bloc With non définie

Je ne comprend pas pourquoi j'ai cette erreur alors que lorsque je fais Execution -> Executer avec compilation complète je n'ai aucun probléme. D'ou peut venir le probléme?

Pour information, j'utilise dans mon programme plusieurs WebBrowser. L'erreur peut-elle provenir de la? Lors de l'éxecution le webBrowser n'a pas finit de se charger ce qui entraine une erreur?

Cordialement.

[csilas]

Bonjour a tous,

Je viens de trouver mon erreur de compilation. Il fallait tous simplement mettre ceci :

Code :

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

1
2
3
4
5
6
 
Private Sub WebBrowserSrvCATP1_DownloadComplete()
    If WebBrowserSrvCATP1.LocationName <> "" Then
        WebBrowserSrvCATP1.Document.body.setAttribute "scroll", "no"
    End If
End Sub

Cordialement et encore merci a tous.