Ouvrir une page html avec vba

Version imprimable

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:

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

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

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
'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

31/03/2015, 18h51
mask16

erreur

Le code ne fonctionne plus, j'ai cette erreur

"erreur de compilation :
Type par l'utilisateur non défini"
31/03/2015, 20h54
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+