[XL-2010] vba google Maps

[modenofx]

Bonjour à tous,

Je suis en train de coder un programme en vba sous excel 2010 avec windows xp sp3 et internet explorer 8.

L'objectif du programme est de se connecter au service google maps avec un identifiant gmail et ensuite de creer une carte personnelle pour y stocker des adresses.

J'arrive à me loger et à acceder jusqu'à la page ou l'on a le bouton rouge sur notre gauche "creer une carte" mais après je n'ai pas réussi à trouvé le code nécessaire pour activer ou cliquer sur le bouton.

D'après ce que j'ai pu comprendre de mes recherches ce lien fait appel à javascript.

voici mon code :

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
 
Option Explicit
'Microsoft HTML Object Library
'Microsoft Internet Controls
 
Sub googleMaps()
 
Dim ie As InternetExplorer
Dim IEdoc As HTMLObjectElement 'HTMLObjectElement nécessaire pour avoir autocomplétion sur IEdoc
Dim DOCelement As Object
Dim Helem As IHTMLElement 'type variable pour fonction getattribute("href")
Dim maPageHTML As HTMLDocument 'type variable pour déclencher un javascript.
 
Set ie = CreateObject("InternetExplorer.Application")
 
With ie
    .navigate "https://accounts.google.com/ServiceLogin?service=local&hl=fr&nui=1&continue=http://maps.google.fr/maps/myplaces%3Fvpsrc%3D0%26ctz%3D-120%26abauth%3Da97a4e59:kPEvhF03FRog6EH01jjjugRUL-4%26vps%3D1%26jsv%3D368b%26sll%3D46.75984,1.738281%26sspn%3D7.10603,14.040527%26ei%3DVAp7TuSULo6XjweVzdTnCA%26num%3D10"
    .Silent = False
    .Visible = True
End With
 
Do Until ie.readyState = READYSTATE_COMPLETE
DoEvents
Loop
 
Set IEdoc = ie.document
 
IEdoc.getElementById("Email").Value = "********************"
 
IEdoc.getElementById("Passwd").Value = "******************"
 
IEdoc.forms(0).submit
 
Do Until ie.readyState = READYSTATE_INTERACTIVE
DoEvents
Loop
 
'jusqu'ici fonctionne parfaitement sous IE8 windowsXPsp3 excel 2010 et types : HTMLObjectElement + IHTMLElement
 
Set maPageHTML = ie.document
 
maPageHTML.parentWindow.execScript "'mp.createMap(essai_1)';", "javascript"
 
 
End Sub

Je suis débutant aussi bien en vba que pour les fonctions web, si vous avez des suggestions ou des conseils, n'hésitez pas.

Je vous remercie d'avoir pris le temps de me le lire.

Bonne programmation à tous.

[modenofx]

Une petite chose que je n'ai pas dit dans le message précédent.

Lorsque que sous internet explorer 8 web developper on pointe le 'bouton" en question on obtient ce code :

Code :

1
2
 
<a class="kd-button kd-button-red" href="javascript:void(0)" jsaction="mp.createMap" jstcache="0" __jstcache="[object Object]">

Et la ligne au dessus est :

Code :

1
2
 
<div id="mp-create-map" jsdisplay="myplaces.filter==0||myplaces.filter==3" jstcache="41" __jstcache="[object Object]" __jsaction="[object Object]">

A Bientot.