Bonjour,
J'ai trouvé sur le net un programme pour calculer les distances entre deux adresse à l'aide de google maps.
La macro envoie les requètes de cette façon :
Cette macro fonctionne très bien mais les requêtes envoyées trop rapidement se font bloquer par google :
Est-il possible d'ajouter un "timer" dans la boucle pour faire une requête toute les deux secondes par exemple ?
Je n'y connais rien en programmation alors j’espère qu'une bonne âme pourra m'éclairer.
J'ai trouvé sur le net un programme pour calculer les distances entre deux adresse à l'aide de google maps.
La macro envoie les requètes de cette façon :
Sub Test()
For Each X In Sheets("Feuil1").Range("A2:" & Sheets("Feuil1").Range("A65536").End(xlUp).Address)
Sheets("Feuil2").Cells.Clear
Depart = X.Value
Arrivee = X.Offset(0, 1).Value
With Sheets("Feuil2").QueryTables.Add(Connection:="URL;http://maps.google.com/maps/api/directions/json?origin=" & Depart & "&destination=" & Arrivee & "&sensor=false", Destination:=Sheets("Feuil2").Range("A22"))
.Name = "itinéraire"
.BackgroundQuery = True
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
End With
X.Offset(0, 2) = Sheets("Feuil2").Cells(2 ^ 16, 1).End(xlUp).Offset(-23, 0).Value
Next
End Sub
Cette macro fonctionne très bien mais les requêtes envoyées trop rapidement se font bloquer par google :
"status": "OVER_QUERY_LIMIT",
Est-il possible d'ajouter un "timer" dans la boucle pour faire une requête toute les deux secondes par exemple ?
Je n'y connais rien en programmation alors j’espère qu'une bonne âme pourra m'éclairer.