anthoYS
XLDnaute Barbatruc
.. du carbu(rant).
Bonjour,
Fichier obsolète, je suis incapable de le mettre à jour.
Je me tourne vers vous. Et archivé sur le web, il pourra être utile à d'autres comme moi (curieux et impatient de gagner du temps).
En module 1 :
Merci
à+
Source : Itinéraires ViaMichelin: trajets en France et à l'étranger
Bonjour,
Fichier obsolète, je suis incapable de le mettre à jour.
Je me tourne vers vous. Et archivé sur le web, il pourra être utile à d'autres comme moi (curieux et impatient de gagner du temps).
En module 1 :
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
Merci
à+
Source : Itinéraires ViaMichelin: trajets en France et à l'étranger