1 pièce(s) jointe(s)
Extraire des données de Google Maps (code postal) via VBA
Bonsoir à tous,
Je souhaite extraire via Google Maps, le code postal d'entreprises (listée dans une colonne excel figée)via VBA mais je rencontre un bugg au niveau de la string du code, car surement le tag que j'utilise (ici span) n'est pas le bon. Par ailleurs, j'ai inspecté google maps avec Chrome tandis que la référence de VBA est Internet Explorer (bien que les différences doivent légères sur la page html, je n'en suis pas certaine)
Ici le début de mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = Range("nom").Row And _
Target.Column = Range("nom").Column Then
Dim GM As New InternetExplorer
GM.Visible = True
GM.navigate "https://www.google.fr/maps/@43.3082377,5.4259519,17z?q=" & Range("nom").Value
Do
DoEvents
Loop Until GM.readyState = READYSTATE_COMPLETE
Dim doc As HTMLDocument
Set doc = GM.document
Dim sSPAN As String
sSPAN = Trim(doc.getElementsByTagName("span")(4).innerText)
MsgBox sSPAN
End If
End Sub |
L'erreur ci-dessus ligne 13 est
Citation:
"Run Titre Error 91 : object variable or with block variable not set
Le block concerné dans google maps est en piège jointe.
Je viens seulement de découvrir VBA, votre aide me serait extrêmement précieuse pour avancer !
Merci par avance,
Excellente soirée!Pièce jointe 502147
