Erreur d'éxecution 91 / Probléme avec l'éxecutable

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:

---

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:

---

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

---

Cordialement.

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 ?

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.

Citation:

---

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

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.

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.

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:

---

1 2 3 4 5

(..) While WebBrowserSrvCATP1.ReadyState = READYSTATE_LOADING DoEvents Wend codeSrc = WebBr(..)

---

Bonjour a tous,

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

Citation:

---

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.

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

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 :

Citation:

---

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:

---

1 2 3 4

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

---

Code:

---

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.

oups ...

déjà c'est quoi cela :

Code:

---

Call WebBrowserSrvCATP1_DownloadComplete

---

:koi:


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:

---

"MON ADRESSE IP"

---

n'est pas une bonne adresse IP !

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

Citation:

---

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:

---

1 2 3 4 5 6

set objDoc=WebBrowserSrvCATP1.Document if typename(objDoc)<>"Nothing" then codesrc=objDoc.documentElement.innerHTML else ' Problem endif

---

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.

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 :

Citation:

---

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.

Bonjour a tous,

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

Code:

---

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.