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