Microsoft 365 Calcul de distance et de temps de trajet entre deux villes

laurent3372 à dit:

Quels sont les symptômes ? Qu'y a-t-il d'affiché dans les cellules contenant les formules ?

Cliquez pour agrandir...

laurent3372 à dit:

Bonjour,

J'ai utilisé l'API de Bing et j'ai codé des fonctions personnalisées en VBA.

VB:

Function GetDistance(adr1 As String, adr2 As String) As Variant
    Dim url As String
    Dim text As String
    Dim xhr As New MSXML2.XMLHTTP60
    Dim oRe As New RegExp
    Dim oMc As MatchCollection
    Dim repText As String
   
    oRe.Pattern = """travelDistance"":(\d+.\d+),"
    'On Error Resume Next
    Application.StatusBar = "Recherche distance en cours …"
    url = "http://dev.virtualearth.net/REST/v1/Routes/driving" & _
        "?key=AqfaTCi9xqn5pr_NHoTrpRy8g9x9VnHJqqQcCUTr8xG7kofvzNacQMEAg5GmvLII" & _
        "&Waypoint.0=" & URLCode(adr1) & _
        "&Waypoint.1=" & URLCode(adr2) & _
        "&maxSolutions=1" & _
        "&distanceUnit=km" & _
        "&routeAttributes=excludeItinerary"
    xhr.Open "GET", url, False
    xhr.send
    text = xhr.responseText
    Set oMc = oRe.Execute(text)
    If oMc.Count > 0 Then
        repText = oMc(0).SubMatches(0)
        GetDistance = CDbl(Replace(repText, ".", ","))
    Else
        GetDistance = "Non trouvé"
    End If
    Application.StatusBar = "Terminé."
End Function

Et ensuite, sur la feuille:

Code:

=GetDistance($C4;$E4)
=GetDurée($C3;$E3;"driving")

(Même principe pour les durées où mode="driving" (en voiture) ou "transit" (transports en commun)

Cordialement,
--
LR

Cliquez pour agrandir...