Bonjour le Forum,
Ca doit être tout bête mais dans la macro suivante, je n'arrive pas à récupérer la donnée 'kmslinearecta' car elle ne ressort pas dans la requête alors que sur le web elle bien présente.
Vous avez une idée svp ?
Merci pour vos réponses.
Ca doit être tout bête mais dans la macro suivante, je n'arrive pas à récupérer la donnée 'kmslinearecta' car elle ne ressort pas dans la requête alors que sur le web elle bien présente.
VB:
Public Const DIST = "http://www.distance2villes.com/recherche?source="
Sub Dstce()
Url = DIST & "Paris" & "&destination=" & "Lille"
With CreateObject("WINHTTP.WinHTTPRequest.5.1")
.Open "GET", Url, False
.send
Txt = .responseText
End With
Range("E2").Value = Split(Split(Txt, "id=""distanciaRuta"">")(1), "</strong>")(0)
Range("F2").Value = Split(Split(Txt, "id=""kmslinearecta"">")(1), "</strong>")(0) '--> ne récupère rien !? Grrrr
Range("G2").Value = Split(Split(Txt, "id=""tiempo"">")(1), "</span>")(0)
End SubVous avez une idée svp ?
Merci pour vos réponses.