Import fichier JSON via requête

Bonjour à tous,

je travaille en environnement W10 et office 365 sur un script pour récupérer des données JSON depuis GoogleMaps.
Et je sèche sur ma requête qui ne renvoie rien dans Excel, alors que si je colle l'url dans mon navigateur j'ai bien mon fichier

Code:

---

1 2 3 4 5 6 7 8 9 10

'Création de la requête Rqt = "URL;https://maps.google.fr/maps/api/directions/json?origin=" & D_AdrRqt & "&destination=" & A_AdrRqt & "&sensor=false" & APIKEY Cells(2, 1) = Rqt 'contrôle URL With shtRqt.QueryTables.Add(Connection:=Rqt, Destination:=shtRqt.Range("A1")) .Name = "RequeteGoogleMaps" .BackgroundQuery = True .WebSelectionType = xlEntirePage .WebFormatting = xlWebFormattingNone .Refresh BackgroundQuery:=False End With

---

Pièce jointe 436653

Pour info:

Code:

---

1 2	Set shtData = Sheets("Itinéraires") Set shtRqt = Sheets("Requête Google Maps")

---

Voilà voilà à votre bon cœur et joyeux noël