[XL-2010] IE depuis Excel, clique sur element web. [Résolu]

[modenofx]

Bonjour à tous.

Je suis en train de coder un petit module sous excel 2010 en vba qui se connecte sur google maps depuis internet explorer et j'ai besoin de votre aide pour cliquer sur les éléments de la page.

Le code fonctionne de la manière suivante :
Excel creer l'object internet explorer, se connecter a un compte Gmail avec l'identifiant et le mot de passe puis, arrive sur la page google maps, saisie une recherche via le formulaire et affiche le repère sur la carte.

Jusqu'ici tous va bien, c'est pour la suite que j'ai besoin de vous.

Un fois le repére placé, je souhaiterais obtenir le "code html" que l'on peut intégrer à un site web. Ce code et disponible quand on clique sur l'icone lien en haut à droite de la page mais je ne sais pas comment cliquer sur les éléments de la page avec vba!

Vous le code que j'ai tappé jusque la :

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
Option Explicit
 
'Microsoft HTML Object Library
'Microsoft Internet Controls
 
Sub excelTOgoogleMaps()
 
Dim ie As InternetExplorer
Dim IEdoc As HTMLObjectElement
Dim DOCelement As Object
Dim strURLgoogleMaps As String
Dim strNomDomaineGmail As String
Dim strMotDePasseGmail As String
 
Const READYSTATE_INTERACTIVE = 3
Const READYSTATE_COMPLETE = 4
 
strURLgoogleMaps = "**********************"
strNomDomaineGmail = "********************"
strMotDePasseGmail = "********************"
 
Set ie = CreateObject("InternetExplorer.Application")
 
With ie
    .navigate strURLgoogleMaps
    .Silent = False
    .Visible = True
End With
 
Do Until ie.readyState = READYSTATE_COMPLETE
DoEvents
Loop
 
Set IEdoc = ie.document
 
Set DOCelement = IEdoc.getElementsByName("Email")
    DOCelement.Item.Value = strNomDomaineGmail
 
Set DOCelement = IEdoc.getElementsByName("Passwd")
    DOCelement.Item.Value = strMotDePasseGmail
 
    IEdoc.forms(0).submit
 
Do Until ie.readyState = READYSTATE_INTERACTIVE
DoEvents
Loop
 
'C'est ici que ça ne fonctionne pas j'ai une erreur "91"
IEdoc.Links().namedItem("link").Click
 
End Sub

Je n'ai pas mis la partie du code au je lance les recherches des adresses.
Je suis débutant en vba, je tourne sous windows 7 avec internet explorer 9.

Merci à tous ce qui prendrons le temps de me lire et encore merci à ce qui me conseillerons.

[bbil]

bonsoir pas besoin de cliquer ... un truc du genre :

Code :

1
2
3
4
5
'C'est ici que ça ne fonctionne pas j'ai une erreur "91"
'IEdoc.Links().namedItem("link").Click
Dim h As IHTMLElement 'A placer au début de ton code..
Set h = IEdoc.getElementById("link")
msgbox h.getAttribute("href")

[modenofx]

Bonsoir bbil,
Merci beaucoup pour ce petit bout de code c'était exactement la fonction dont j'ai besoin. Ca marche super.