Bonjour, 

J'essaie de créer un fichier excel (2010) qui calcule la distance entre deux adresses. J'ai trouvé une solution en utilisant Google Maps mais lorsque je test, google Maps me retourne l'erreur suivante : Please wait a moment while we launch our security service.

Voici le code, avez-vous une idée de comment résoudre ce problème ?

With Sheets("Feuil1").QueryTables.Add(Connection:="URL;http://maps.google.fr/maps?f=d&saddr=" & Depart & "&daddr=" & Arrivee, Destination:=Sheets("Feuil1").Range("G1"))
    .Name = "itinéraire"
    .BackgroundQuery = True
    .WebSelectionType = xlEntirePage
    .WebFormatting = xlWebFormattingNone
    .Refresh BackgroundQuery:=False
End With

Set Result = Sheets("Feuil1").Cells.Find("Nb km")
If Result Is Nothing Then
    Sheets("Feuil1").Range("E5") = "Itinéraire non trouvé !"
Else
    Sheets("Feuil1").Range("E5") = Result
    Sheets("Feuil1").Range("E5") = Result.Offset(1, 0)
    km = Split(Result.Offset(1, 0), " km")
    Sheets("Feuil1").Range("E6") = km(0)
End If

Merci d'avance

Bonjour,

Et en remplaçant dans l'adresse http par https ?