Re : Erreur: l'indice n'appartient pas à la sélection
Bonjour Gorfael,
C'est un code que j'ai trouvé sur le Forum, il y a longtemps.
A+
Bonjour à tous !
Je suis nouveau sur le forum
Je début en VBa mais je me permet de penser que la solution proposée n'est pas solution au vrai problème.
Je m'explique :
Quand on ouvre le fichier de catrice "itinéraire2" ( je pense que c'est le code initial dont tu parles j'utilise le même) on remarque dans la feuille ou la page google map est copié il y a une différence de forme par rapport à celles du moment.
En effet catrice recherche la cellule contenant "itinéraire" quelquechose ( je ne me souviens pas exactement).
J'ia résolu le problème en recherchant la cellule contenant (1. 1.)
Je poste le code de catrice que j'ai modifié.
J'accepte volontier les remarques et conseil.
bonne journée à tous !
Sub ITIN()
Range("O6
21").ClearContents
Range("l20").End(xlUp).Offset(1, 0).Value = Range("L6").Value
Set Fin = Sheets("Simulation").Cells.Find("Fin itinéraire")
For Each x In Sheets("Simulation").Range("L6:" & Fin.Offset(1, 0).Address)
If Not IsEmpty(x) Then
Sheets("Itin").Cells.Clear
Depart = x.Value
Arrivee = x.Offset(1, 0).Value
With Sheets("Itin").QueryTables.Add(Connection:="URL;http://maps.google.fr/maps?f=d&saddr=" & Depart & "&daddr=" & Arrivee, Destination:=Sheets("Itin").Range("A1"))
.Name = "itinéraire"
.BackgroundQuery = True
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
End With
Set result = Sheets("Itin").Cells.Find("1. 1.")
If result Is Nothing Then
Else
km = Split(result.Offset(3, 0), " km")
x.Offset(1, 3) = km(0)
x.Offset(1, 4) =
result.Offset(1, 0)
End If
Else
End If
Next
End Sub
Les codes important concernant le code initial sont en rouges.
J'ai ajouté la dernière ligne car dans le nouveau format de google map les kms et le temps de trajet sont séparés.