Discussion :

[arnest]

Bonjour,
J'ai trouvé un code développé qui permet de calculer la distance entre des GPS, adressé .. simplement Il faut activer le XML 6. Il a fonctionné merveilleusement puis Il ne retourne plus de données, je ne sais pas qu'est-ce j'ai fais. Svp qui peut m'aider?

Cordialement

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
19
20
21
22
23
24
25
26
27
28
 
Function G_DISTANCE(Origin As String, Destination As String) As Double
' Requires a reference to Microsoft XML, v6.0
Dim myRequest As XMLHTTP60
Dim myDomDoc As DOMDocument60
Dim distanceNode As IXMLDOMNode
G_DISTANCE = 0
' Check and clean inputs
On Error GoTo exitRoute
Origin = WorksheetFunction.EncodeURL(Origin)
Destination = WorksheetFunction.EncodeURL(Destination)
' Read the XML data from the Google Maps API
Set myRequest = New XMLHTTP60
myRequest.Open "GET", "http://maps.googleapis.com/maps/api/directions/xml?origin=" _
& Origin & "&destination=" & Destination & "&sensor=false", False
myRequest.send
' Make the XML readable usign XPath
Set myDomDoc = New DOMDocument60
myDomDoc.LoadXML myRequest.responseText
' Get the distance node value
Set distanceNode = myDomDoc.SelectSingleNode("//leg/distance/value")
If Not distanceNode Is Nothing Then G_DISTANCE = distanceNode.Text / 1000
exitRoute:
' Tidy up
Set distanceNode = Nothing
Set myDomDoc = Nothing
Set myRequest = Nothing
End Function

[Alex70]

Bonjour

L'API de google est limitée en nombre de requête sur 24H.
Je l'utilise dans le cadre de mon travail, il me semble que c'est 2500 requêtes.

[davido84]

2 questions :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Function G_DISTANCE(Origin As String, Destination As String) As Double

Pour tester l'utilisation de cette fonction en nous donnant un exemple pour l'argument Origin et un exemple pour l'argument Destination.

D'autre part à quoi correspond

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WorksheetFunction.EncodeURL

?
VBA ne me la propose pas dans la liste des WorksheetFunction.

Quelle version d'Excel as-tu ?

A+

[Marc-L]

Salut David !

D'autre part à quoi correspond WorksheetFunction.EncodeURL ?

C'est une fonction apparue depuis la version 2013 d'Excel; pour les versions antérieures via du JScript comme le post #16 du lien …

_________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[davido84]

Salut Marc et merci !
C'est ce que je suspectais...d'où ma question concernant sa version d'Excel.
A+

[DenisHen]

Bonjour à tous.

Je suis extrêmement intéressé par cette fonction, mais que contient Origine et Destination ?