Bonsoir à tous,
Je souhaite extraire de 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 et ne détecte pas mon adresse. 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 et me permet de vous demander)
Ici le début de mon code:
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 en gras est “Run Titre Error 91 : object variable or with block variable not set”
Le block concerné dans google maps est en piège jointe. J’aimerai ainsi extraire de la string concernée le code postale de chaque entreprise repertoriée dans mon fichier.
Je viens seulement de découvrir VBA, votre aide me serait extrêmement précieuse pour avancer !
Merci beaucoup, excellente soirée!
Attachments:
You must be
logged in to view attached files.