Calcul de distance entre 2 villes
Bonjour,
J'utilise le script ci-dessous qui fonctionne plutôt bien mais présente un inconvénient, si la ville n'est pas trouvée le script s'arrête alors que je souhaiterais qu'il passe à la ligne suivante. Débutant en VBA je ne vois pas trop les instructions, la ligne qui doit être ajoutée.
Merci pour votre aide.
Vincent
Option Explicit
Public Const DIST = "le site distance2villes.com"
Sub Distance()
Dim lg As Integer, i As Integer
Dim Url As String, Txt As String, d, temps
With Sheets("Distance")
lg = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lg
If Range("B" & i).Value <> "" And Range("B" & i).Value <> 0 Then
Url = DIST & .Range("B" & i).Value & "&destination=" & .Range("C" & i).Value
With CreateObject("WINHTTP.WinHTTPRequest.5.1")
.Open "GET", Url, False
.send
Txt = .responseText
End With
.Range("D" & i).Value = Split(Split(Txt, "id=""distanciaRuta"">")(1), "</strong>")(0)
'en nombre
.Range("D" & i).NumberFormat = "##,##"
.Range("D" & i) = Val(Replace(.Range("D" & i), ",", ""))
End If
Next i
End With
MsgBox "Le calcul des KMs est terminé !"
End Sub
bonjour Bienvenue sur le forum, en écrivant
On Error Resume NextEn début de procédure le problème devrait être réglé ?
Merci, l'instruction répond parfaitement à mon attente.