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.