Discussion :

[mask16]

Bonjour,

J'ai un code ci dessous pour ouvrir une page web et cliqué sur un bouton, mais le clique sur le bouton ne fonctionne pas ! J'ai aussi un autre soucis je n'arrive pas à récupérer le nom connexion de la page google, à l'inverse je récupére le lien html à la place

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
'''Library SHDocVw
'''C:\WINDOWS\system32\ieframe.dll\1
'''Microsoft Internet Controls
 
Const MY_URL As String = "https://www.google.fr/"
Const IDENTIFIANT As String = "12345678"
 
Sub PiloterInternet()
Dim IE As Object  'SHDocVw.InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")
With IE
  .Silent = False
  .Navigate MY_URL
  Do Until .ReadyState = 4
    DoEvents
  Loop
  .Document.all("q").Value = IDENTIFIANT
  .Document.all("btnK").Click
  Set Element = .Document.getElementById("gb_70") 'On récupère le nom écrit dans le bouton connexion, ici connexion
  .Visible = True
End With
Set IE = Nothing
End Sub

Si quelqu'un peu éclairer ma lanterne !
Merci d'avance

[davido84]

Bonsoir,
histoire de te faire avancer (mais à optimiser de ton côté) :

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
'cocher Microsoft Internet Controls et Microsoft HTML Object Library 
Const MY_URL As String = "https://www.google.fr/"
Const IDENTIFIANT As String = "12345678"
 
Sub PiloterInternet()
Dim IE As SHDocVw.InternetExplorer
Dim IEDoc As HTMLDocument
'Set IE = CreateObject("InternetExplorer.Application")
Set IE = New SHDocVw.InternetExplorer
 
 
With IE
  .Silent = False
  .Navigate MY_URL
  .Visible = True
  Do Until .readyState = 4: DoEvents: Loop
End With
 
 
Set IEDoc = IE.Document
 
 
Dim oQ As HTMLInputElement, oBtnK As HTMLInputElement
Set oQ = IEDoc.getElementsByName("q").Item(0)
oQ.Value = IDENTIFIANT
 
 
Set oBtnK = IEDoc.getElementsByName("btnK").Item(0)
 
 
oBtnK.Click
'là je n'ai pas compris...
'  Set Element = .Document.getElementById("gb_70") 'On récupère le nom écrit dans le bouton connexion, ici connexion
'  .Visible = True
 
 
 
 
Set IE = Nothing
End Sub

A+
David

[mask16]

Le code ne fonctionne plus, j'ai cette erreur

"erreur de compilation :
Type par l'utilisateur non défini"

[davido84]

le code fonctionne, je l'ai testé.
il est bien précisé de cocher dans les références les bibliothèques Microsoft Internet Controls et Microsoft HTML Object Library
A+