itinéraire avec excel

[gui59300]

Bonjour

J'avais trouvé il y a longtemps j'ai trouvé sur ce forum, un fichier excel qui permet des calculs d'itinéraire.

Ce fichier fonctionne tres bien sur excel 2003, je viens de changer d'excel, maintenant j'ai la version 2007.

Et il ne fonctionne plus quelqu'un sait pourquoi ?

Merci

 

[pierrejean]

Re : itinéraire avec excel

Bonjour gui59300

tester avec les modifications suivantes:

Sub Test()
Sheets("Feuil2").Cells.Clear
Depart = Sheets("Feuil1").Range("B1")
Arrivee = Sheets("Feuil1").Range("B2")
With Sheets("Feuil2").QueryTables.Add(Connection:="URL;http://maps.google.fr/maps?f=d&saddr=" & Depart & "&daddr=" & Arrivee, Destination:=Sheets("Feuil2").Range("A1"))
.Name = "itinéraire"
.BackgroundQuery = True
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
End With
Set Result = Sheets("Feuil2").Cells.Find("Itinéraire en voiture", LookIn:=xlValues, lookat:=xlPart)
If Result Is Nothing Then
Sheets("Feuil1").Range("A5") = "Itinéraire non trouvé !"
Else
Sheets("Feuil1").Range("A5") = Result.Offset(5, 0)
km = Split(Result.Offset(5, 0), " km")
Sheets("Feuil1").Range("A6") = km(0)
End If
End Sub

 

[gui59300]

Re : itinéraire avec excel

merci beaucoups