Extraction uniquement le temps de trajet (heure + min)

[parin44]

Bonsoir à tous,

Débutant dans les macros, je n'arrive à extraire le temps de trajet et l'indiqué dans une nouvelle cellule.
Ci-après ma macro.

Merci d'avance pour votre aide.
@+
Parin44



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éraires possibles")
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) = Right(X.Offset(0, 2), InStr(1, X.Offset(0, 2), " min")) 'Solution 2
End If
Next
End Sub

 

[Gurgeh]

Re : Extraction uniquement le temps de trajet (heure + min)

Salut parin44,

Afin de nous aider à t'aider, pourrais tu nous mettre un fichier exemple avec tes données et ta macro ?

Gurgeh