Sub NearByWithvVoisines(cp, rayon)
Dim http As Object, objDom As Object, res As Object
Dim params, Url, commune
Const BaseURL = "https://www.villes-voisines.fr/getcp.php?"
Set http = CreateObject("MSXML2.XMLHTTP")
Set objDom = CreateObject("MSXML2.DOMDocument.6.0")
params = "cp=" & cp & "&rayon=" & rayon
Url = BaseURL & params
' Debug.Print Url
' On Error Resume Next
With http
.Open "GET", Url, False
.Send
Set res = JsonConverter.ParseJson(.responseText)
End With
Set http = Nothing
For Each commune In res.Keys()
Debug.Print CStr(res(commune)("nom_commune")) & "|" & _
CStr(res(commune)("code_postal")) & "|" & _
CStr(res(commune)("distance"))
Next
End Sub
Sub TestNearBy()
NearByWithvVoisines "06560", 15
End Sub