Bonjour,

je fais souvent des cartes de pays pointant différentes villes avec google map.

Ceci prends naturellement beaucoup de temps lorsque le nombre de villes est élevé. Ce qui est mon cas (prochain travail : 700 villes).
Bref, comme toutes mes taches répétitives, je les ferai bien faire par une macro :
voilà ou j'en suis :
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
41
42
43
44
Function google(lig, col)
 
    lig_fin = Cells(55500, col).End(xlUp).Row
    MsgBox "Es tu connecté à ton compte google map et as tu créé une carte spécifique à ton projet ? !"
 
    col_ville = Val(InputBox("Dans quelle collonne se situe le nom des villes à cartographiées ?"))
    col_pays = Val(InputBox("Dans quelle collonne se situe le nom des Pays ?"))
 
 
For i = 2 To lig_fin
            ville = Cells(i, col_ville).Value
            Pays = Cells(i, col_pays).Value
            entree = "Metz, France"  'pour le test, on force "entree"    'ville & ", " & pays
 
                    Set IE = CreateObject("InternetExplorer.Application")
                   IE.Visible = 1
                    IE.navigate "http://maps.google.com/maps/ms?f=q&source=s_q&hl=fr&geocode=&g=dresden,+germany&ie=UTF8&hq=&hnear=Lyon,+Rh%C3%B4ne,+Rh%C3%B4ne-Alpes,+France&msa=0&ll=51.508742,-0.175781&spn=78.748124,157.324219&z=3"
                    On Error GoTo attendre_plus
attendre_plus:
                    'attente
                    Do While (IE.Busy)
                        Sleep 2000
                    Loop
                    'remplissage
                    Set Helem = IE.Document.GetElementById("q")      'case à remplir pour la recherche
               If Err = 91 Then
                        Err = 0
                        GoTo attendre_plus
                    End If
                    Helem.Value = entree
 
                    Set Helem = IE.Document.GetElementById("btnG")'bouton permettant de valider la recherche
                    Helem.Click
 
                    'Do While (IE.Busy)
                        Sleep 5000
                    'Loop
'Probleme à partir d'ici : je n'arrive pas à identifier le lien puis le bouton sur lequel valider --> voir ci -dessous explication
'
                    Set Helem = IE.Document.GetElementById("ssbarsavebutton")
                    Helem.Click
                    Sleep 5000
                  '  IE.document.Close
Next i
Voici le probleme : (à partir de la remarque dans le code)
Une fois la recherche aboutie, google propose d'enregistrer la ville pointée.
1. je n'arrive pas à trouver dans le code java la référence qui me permettrai de cliquer sur ce lien.
2. une fois ce lien cliquer, une confirmation apparait avec un bouton enregistrer. De nouveau, je n'arrive pas à trouver les références pour automatiser le click.

Quelqu'un peut il m'aider?
Merci