Re : Macro pour calculer la distance entre deux villes via google maps
Bonjour bruno,
Merci pour la réponse rapide.
J'ai testé sur un pc avec excel 2007 (et non un mac), mais j'ai une erreur : je suis vraiment nul ??
Sub InscriptionAdr()
Dim ShtS As Worksheet
Dim LigF As Long, sAdr As String, sVille As String, sTmp As String
' Définir la feuille de data source
Set ShtS = Sheets("DataGoogle")
' Inscrire les adresses trouvée
With Sheets("Itinéraire")
' Trouver l'adresse de départ
LigF = LigFinD(ShtS, "A", "start_address", True)
sTmp = ShtS.Range("A" & LigF).Value
sTmp = Mid(sTmp, InStr(1, sTmp, " : ") + 3)
sTmp = Replace(Left(sTmp, Len(sTmp) - 1), Chr(34), "")
If NoAdrDep Then
sAdr = "": sVille = sTmp
Else
sAdr = Left(sTmp, InStr(1, sTmp, ",") - 1)
sAdr = UTF8_Decode(sAdr) ' ### Modif du 17/11/2014
sVille = Mid(sTmp, Len(sAdr) + 3)
sVille = UTF8_Decode(sVille) ' ### Modif du 17/11/2014