Erreur de compilation (code calcul distance GoogleMap)

[anthoYS]

Bonjour,

Voici le code :

Sub Test()
For Each x In Sheets("Trajet").Range("A2:" & Sheets("Trajet").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")
    If Result Is Nothing Then
        x.Offset(0, 2) = "Itinéraire non trouvé !"
    Else
        x.Offset(0, 2) = Result.Offset(1, 0)
        'X.Offset(0, 3).FormulaR1C1 = "=LEFT(RC[-1],FIND("" km"",RC[-1]))*1" 'Solution 1
        x.Offset(0, 3) = Left(x.Offset(0, 2), InStr(1, x.Offset(0, 2), " km")) 'Solution 2
    End If
Next
End Sub

Lorsque j'appuis sur le bouton de commande, voici ce qui en résulte :



Merci par avance aux intervenants qui m'aideront.

 

[JCGL]

Re : Erreur de compilation (code calcul distance GoogleMap)

Bonjour à tous,

Soit tu enlèves Option Explicit en début de code
Soit tu déclares tes variables

Ici Dim x as Long

A+ à tous

 

[anthoYS]

Re : Erreur de compilation (code calcul distance GoogleMap)

re,



merci

 

[Guest]

Re : Erreur de compilation (code calcul distance GoogleMap)

Bonsoir,

Hello JC

Dim x As Range

Puisque tu parcours des cellules
A+

 

[JCGL]

Re : Erreur de compilation (code calcul distance GoogleMap)

Bonjour à tous,

Il est préconisé Variant ou Object donc Dim x (le Variant est implicite)

A+ à tous

Édition : Salut Ges

 

[anthoYS]

Re : Erreur de compilation (code calcul distance GoogleMap)

re,

d'accord, merci à vous.

Bonne fin de WE !