Téléchargement d'un fichier dont l'URL est dynamique - Boucle défectueuse

Bonjour,

Je cherche à télécharger des fichiers issus de requêtes.

Je m'explique. J'ai un fichier Excel qui contient des URL qui donne des itinéraires sur google maps.
-Colonne A : l'URL de Google Maps
-Colonne B : identifiant de l'itinéraire mais également nom du futur fichier de sortie.

Mes liens fonctionnent et me donnent bien mon itinéraire entre chaque point d'origine et de destination.

J'envoie ce lien sur un site qui le transforme en trace (itinéraire) avec l'extension .gpx
L'objectif étant par la suite de visualiser ces itinéraires dans un logiciel SIG.

Je vous mets le code que j'ai bâti en compilant plusieurs sources.

ça fonctionne quasiment, c'est juste la boucle qui ne fonctionne pas car j'aimerais que la requête traite les éléments des cellules A1 et B1 puis A2 et B2.

Là, la boucle

Contenu fictif du tableur :

Code

Sub fichiergpx()
    Dim ReQ As Object, ie As Object
    Dim TheCellURL As Range
    Dim TheCellNumeroSalarie As Range
    Set ie = CreateObject("InternetExplorer.Application")
    ie.navigate "3w gpsvisualizer point com/convert_input"
        ie.Visible = True
    While ie.Busy Or ie.readyState < 4: DoEvents: Wend
    Loca = ie.LocationURL

With Feuil1
    'On boucle sur les cellules de la colonne A
   For Each TheCellURL In .Range("A1", .Cells(.Rows.Count, "A").End(xlUp))
    ie.document.getElementById("convert_format:gpx").Checked = True
    ie.document.getElementById("remote_data_input").Value = TheCellURL.Value
    ie.document.getElementsByName("submitted")(0).Click
    Do: DoEvents: Loop Until ie.LocationURL <> Loca
    Application.SendKeys "{ENTER}"    'au cas ou l'explorer demande de cliquer sur le message de changement de page
    Set tds = ie.document.getElementsByTagName("td")

    For i = 0 To tds.Length - 1
        If tds(i).getElementsByTagName("iframe").Length > 0 Then
            If InStr(tds(i).getElementsByTagName("iframe")(0).src, "-data.gpx") > 0 Then linkfichier = tds(i).getElementsByTagName("iframe")(0).src
        End If
    Next

    'Les erreurs ne sont pas gérées
    On Error Resume Next

    With Feuil1
    'On boucle sur les cellules de la colonne B
    For Each TheCellNumeroSalarie In .Range("B1", .Cells(.Rows.Count, "B").End(xlUp))
    'On lui donne le chemin du fichier, son nom et l'extension
     chemin = ThisWorkbook.Path & "\" & TheCellNumeroSalarie.Value & ".gpx"
    Set ReQ = CreateObject("Microsoft.XMLHTTP")
    ReQ.Open "get", linkfichier, False
    ReQ.send
    x = FreeFile
    Open chemin For Output As #x
    Print #x, Replace(ReQ.responseText, ">", ">" & vbCrLf),
    Close #x
    ie.Quit

    Next

    End With
    Next
    End With

End Sub

Je vous remercie par avance.

bonjour;

tu utilises une variable linkfichier qui semble ne pas être initialisée. Cela ne devrait-il pas être chemin ?

Elle fonctionne.

Quand je fais le pas à pas avec la touche F8, je vois bien l'URL apparaitre dans le "linkfichier"

Le problème est juste après,

    chemin = ThisWorkbook.Path & "\" & TheCellNumeroSalarie.Value & ".gpx"
    Set ReQ = CreateObject("Microsoft.XMLHTTP")
    ReQ.Open "get", linkfichier, False
    ReQ.send
    x = FreeFile
    Open chemin For Output As #x
    Print #x, Replace(ReQ.responseText, ">", ">" & vbCrLf),
    Close #x
    ie.Quit

    Next

Après le "Next", il revient sur "chemin = ThisWorkbook.Path & "\" & TheCellNumeroSalarie.Value & ".gpx""

Sujet Clos

j'ai eu ma réponse.

    chemin = ThisWorkbook.Path & "\" & TheCellURL.Offset(, 1).Value & ".gpx" 'this has been changed.