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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Nom : Capture.JPG Affichages : 830 Taille : 38,2 Ko

Pour info:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Set shtData = Sheets("Itinéraires")
Set shtRqt = Sheets("Requête Google Maps")
Voilà voilà à votre bon cœur et joyeux noël