Microsoft 365 Erreur 9 macro

[matmac]

Bonjour,
J'ai récupérer une macro pour calculer la distance entre 2 villes, que j'ai copier dans le fichier en pièce jointe. J'ai modifié les références des colonnes pour que ça corresponde à mon fichier, créé un bouton pour la macro (au niveau de la colonne L) mais lorsque j'exécute la macro, ca me retourne le message : erreur d'exécution '9' : L'indice n'appartient pas à la sélection.
Pouvez-vous m'aider à corriger cette erreur ?
Merci par avance

 

[Marc Vanlindt]

Bonjour.
La ligne :
.Range("L" & i).Value = Split(Split(Txt, "id=""distanciaRuta"">")(1), "</strong>")(0)
renvoie une erreur 9 lorsque le premier Split ne trouve pas "id=""distanciaRuta"">".
Dans ce cas, le tableau ne contient qu’un seul élément et vous essayez d’accéder au deuxième avec (1) → d’où l’indice en dehors de la plage.
Il faut donc gérer l'erreur. Voici un code qui marche (à partir de la boucle "for i ="
For i = 2 To lg
Url = DIST & .Range("G" & i).Value & "&destination=" & .Range("I" & i).Value
With CreateObject("WINHTTP.WinHTTPRequest.5.1")
.Open "GET", Url, False
.send
Txt = .responseText
End With
If InStr(Txt, "id=""distanciaRuta"">") > 0 Then
Dim partie As String
partie = Split(Txt, "id=""distanciaRuta"">")(1)

If InStr(partie, "</strong>") > 0 Then
.Range("L" & i).Value = Split(partie, "</strong>")(0)
Else
.Range("L" & i).Value = "Balise fermante manquante"
End If
Else
.Range("L" & i).Value = "Balise introuvable"
End If
Next i

 

[Marc Vanlindt]

Voici le fichier Excel corrigé...

 

[matmac]

C'est parfait, merci