Discussion :

[patheo2]

Bonsoir à tous,
J'ai fait le code suivant avec pour but de remplir automatiquement le champ d'un formulaire dans une page Internet explorer puis lancer un clic automatique du bouton "OK"
Mais je reçois le message d'erreur suivant : "Variable objet ou variable de bloc With non définie"

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
   Dim IE As InternetExplorer
    Dim IEDoc As HTMLDocument
    Dim InputPart As HTMLInputElement
    Dim GoBnt AS HTMLInputElement
 
    Set InputPart = IEDoc.all("part")
    'j'attribue un contenu au champ
    InputPart.Value ="Texte"
 
    Set GoBnt = IEDoc.all("btn")
    'j'exécute le submit
    GoBnt.click

NB: J'ai coché au préalable dans Outils/Références : "Microsoft HTML Object Library" et "Microsoft Internet Controls"

Merci

[mercatog]

ça c'est tout ton code?

[issoram]

Bonjour,
Essaie peut être comme ça:

Code :

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

1
2
3
Dim IEDoc As MSHTML.HTMLDocument
Dim InputPart As MSHTML.HTMLInputElement
Dim GoBnt AS MSHTML.HTMLInputElement

[parmi]

Je pense qu'il manque un Set pour IEDoc
Il ne doit pas être reconnu ici...

Set InputPart = IEDoc.all("part")

[patheo2]

En fait voici tout le code (le script permet de se connecter automatiquement à un compte sur le site avant de avant de remplir un champ)

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub connexion()
 
    Dim IE As New InternetExplorer
    Dim IEDoc As HTMLDocument
    Dim partInput As HTMLInputElement
    Dim goBtn As HTMLButtonElement
    Dim cost As String
    Dim url As String
 
    'Set IE = CreateObject("InternetExplorer.application")
    IE.Visible = True
    url = "http://www.monurl.com"
    IE.Navigate (url)
 
     ' attente de fin de chargement
    Do Until IE.ReadyState = 4
         DoEvents
     Loop
 
    Set IEDoc = IE.document
 
'''''''''''''''''''''''''''
     'login
     Set user = IEDoc.all("user_login")
      user.Value = "login" 
 
     'password
     Set Password = IEDoc.all("user_mdp")
      Password.Value = "mdp" 
 
     'connexion
     Set login = IEDoc.all("OkLogin")
      login.Click
 
     Do Until IE.ReadyState = 4 
         DoEvents
     Loop
 
    Set partInput = IEDoc.all("part")
        partInput.Value = "Texte"
 
     Set goBtn = IEDoc.all("btn")
        goBtn.Click
 
End Sub

le problème est que dès que la connexion au compte est établie, l'url est modifié et le script apparemment n'arrive pas comprendre cela et a tendance à chercher mes éléments HTML sur l'url de départ. c'est ce que je pense mais je n'arrive pas à résoudre le problème

[EngueEngue]

Teste un petit timer à la main des fois le readystate déconne

Code :

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

1
2
3
4
5
6
7
Sub wait3secs()
PauseTime = 3 ' Set duration in seconds
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop
End Sub

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
Dim url As String
 
    'Set IE = CreateObject("InternetExplorer.application")
    IE.Visible = True
    url = "http://www.monurl.com"
    IE.Navigate (url)
 
     ' attente de fin de chargement
    Do Until IE.ReadyState = 4
         DoEvents
     Loop
 
call wait3secs
 
    Set IEDoc = IE.document

[patheo2]

Merci pour ta réponse. Mais le problème reste posé.

[mercatog]

Si tu postais ton code en entier, tu auras des réponses précises