Discussion :

[joyita17]

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 :

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

"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!