Variable objet ou variable de bloc With non définie

Version imprimable

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:

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

01/10/2013, 21h07
mercatog

ça c'est tout ton code?

Bonjour,
Essaie peut être comme ça:

Code:

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

02/10/2013, 14h57
parmi

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

Citation:

Set InputPart = IEDoc.all("part")

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:

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

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

Code:

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:

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

02/10/2013, 16h21
patheo2

Merci pour ta réponse. Mais le problème reste posé.
02/10/2013, 18h58
mercatog

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

Bonjour,

Essaie ça:

Code:

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
46
47
48
49
50
51
52
53
54
55
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 = READYSTATE_COMPLETE
    DoEvents
  Loop
 
  Set IEDoc = IE.document
 
  Do Until IEDoc.readyState = "complete"
    DoEvents
  Loop
 
  '''''''''''''''''''''''''''
  '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 = READYSTATE_COMPLETE
    DoEvents
  Loop
 
  Set IEDoc = IE.document
 
  Do Until IEDoc.readyState = "complete"
    DoEvents
  Loop
 
  Set partInput = IEDoc.all("part")
  partInput.Value = "Texte"
 
  Set goBtn = IEDoc.all("btn")
  goBtn.Click
 
End Sub