Discussion :

[acathla]

Bonjour,

Pour mon travail je cherche à créer un fichier qui me permette de calculer automatiquement la distance entre deux villes.

J'ai trouvé un code sur le net mais il ne semble pas fonctionner chez moi : il n'arrive pas à récuperer les données sur google maps on dirait.
Dans la page deux où les instructions devraient être collé il n'y a que marqué : "When you have eliminated the JavaScript, whatever remains must be an empty page."

On dirait que je dois activer qqch mais je ne sait pas quoi .... pouvez-vous m'aider ?

Le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Test()
For Each X In Sheets("Feuil1").Range("A2:" & Sheets("Feuil1").Range("A65536").End(xlUp).Address)
    Sheets("Feuil2").Cells.Clear
    Depart = X.Value
    Arrivee = X.Offset(0, 1).Value
    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")
    'Set Result = Sheets("Feuil2").Cells.Find("km")
    If Result Is Nothing Then
        X.Offset(0, 2) = "Itin?raire non trouv? !"
    Else
        X.Offset(0, 2) = Result.Offset(1, 0)
        km = Split(Result.Offset(1, 0), " km")
        X.Offset(0, 3) = km(0)
    End If
Next
End Sub

Je vous joint également le fichier source que j'ai récupéré sur le net.

Je vous remercie d'avance pour votre aide et vos conseils !!!

++