Bonjour, je tiens à préciser que je suis nulle en VBA, j'ai trouvé cette macro sur internet qui m'aide à calculer la distance en Km d'un point de départ à un point d'arrivé, sur une cellule qui s'appelle résultat, à partir d'un site web, mais qui m'affiche le résultat sur une seule ligne, donc je veux dupliquer cette macro sur plusieurs ligne, afin quelle me calcul automatiquement la distance sur toutes les ligne du tableau qui se trouve sur la feuil "Guide" je vous prie de m'aider.
Public Const StrURL = "http://www.distance2villes.com/recherche?source=[Depart]&destination=[Destination]"
Sub CalculerDistanceEntre2Villes()
Dim objWINHTTP As Object
Dim Resultat As String
Dim Request As String
Set objWINHTTP = CreateObject("WINHTTP.WinHTTPREQUEST.5.1")
Request = Replace(StrURL, "[Depart]", Range("Depart").Value) ' cellule s'appelle Depart
Request = Replace(Request, "[Destination]", Range("Arrivee").Value) 'cellule s'appelle arrivee
With objWINHTTP
.Open "GET", Request, False
.send
Resultat = .responsetext
End With
Resultat = Split(Split(Resultat, "id=""distanciaRuta"">")(1), "</strong>")(0)
On Error Resume Next
Range("Resultat").Value = Resultat 'cellule s'appelle resultat
On Error GoTo 0
End Sub
Public Const StrURL = "http://www.distance2villes.com/recherche?source=[Depart]&destination=[Destination]"
Sub CalculerDistanceEntre2Villes()
Dim objWINHTTP As Object
Dim Resultat As String
Dim Request As String
Set objWINHTTP = CreateObject("WINHTTP.WinHTTPREQUEST.5.1")
Request = Replace(StrURL, "[Depart]", Range("Depart").Value) ' cellule s'appelle Depart
Request = Replace(Request, "[Destination]", Range("Arrivee").Value) 'cellule s'appelle arrivee
With objWINHTTP
.Open "GET", Request, False
.send
Resultat = .responsetext
End With
Resultat = Split(Split(Resultat, "id=""distanciaRuta"">")(1), "</strong>")(0)
On Error Resume Next
Range("Resultat").Value = Resultat 'cellule s'appelle resultat
On Error GoTo 0
End Sub
