Je voudrais calculer des distances entre villes avec Google maps.
Apr=E8s une recherche sur le forum et sur le net, j'ai trouv=E9 un code qui=
en 2004 semblait fonctionner.
Sub Test()
For Each X In Sheets("Feuil1").Range("A2:" & Sheets("Feuil1").Range("A65536=
").End(xlUp).Address)
Sheets("Feuil2").Cells.Clear
Depart =3D X.Value
Arrivee =3D X.Offset(0, 1).Value
With Sheets("Feuil2").QueryTables.Add(Connection:=3D"URL;http://maps.go=
ogle.fr/maps?f=3Dd&saddr=3D" & Depart & "&daddr=3D" & Arrivee, Destination:=
=3DSheets("Feuil2").Range("A1"))
.Name =3D "itin=E9raire"
.BackgroundQuery =3D True
.WebSelectionType =3D xlEntirePage
.WebFormatting =3D xlWebFormattingNone
.Refresh BackgroundQuery:=3DFalse
End With
=20
Set Result =3D Sheets("Feuil2").Cells.Find("Itin=E9raire en voiture")
If Result Is Nothing Then
X.Offset(0, 2) =3D "Itin=E9raire non trouv=E9 !"
Else
X.Offset(0, 2) =3D Result.Offset(1, 0)
km =3D Split(Result.Offset(1, 0), " km")
X.Offset(0, 3) =3D km(0)
End If
Next
End Sub
Moyennes nationales: Petites routes de campagne, entre deux villages : 1/25 m Routes nationales : 1/100 m Autoroutes : pas de nids, mais des joints et des ornières de camion (couche de tarmac trop fine)
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "MichD" a écrit dans le message de groupe de discussion : lc3i1r$geo$
Maintenant, j'ai une petite question pour toi...
Quelle formule utilisée pour calculer le nombre de nids de poule entre 2 villes?
;-)
Moyennes nationales:
Petites routes de campagne, entre deux villages : 1/25 m
Routes nationales : 1/100 m
Autoroutes : pas de nids, mais des joints et des ornières de camion (couche
de tarmac trop fine)
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"MichD" a écrit dans le message de groupe de discussion :
lc3i1r$geo$1@speranza.aioe.org...
Maintenant, j'ai une petite question pour toi...
Quelle formule utilisée pour calculer le nombre de nids de poule entre 2
villes?
Moyennes nationales: Petites routes de campagne, entre deux villages : 1/25 m Routes nationales : 1/100 m Autoroutes : pas de nids, mais des joints et des ornières de camion (couche de tarmac trop fine)
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "MichD" a écrit dans le message de groupe de discussion : lc3i1r$geo$
Maintenant, j'ai une petite question pour toi...
Quelle formule utilisée pour calculer le nombre de nids de poule entre 2 villes?
