Bonjour le forum,

Et ravi d'être parmi vous,

Je viens vers vous afin de sollicité votre savoir en programmation VBA.

J' ai besoin de récupérer des données de plusieurs pages sur un site internet, avec une fin d'adresse changeante.

Comment faire évoluer celle-ci?

En sachant que j'ai entre 8,9 ou 10 pages de données à extraire et que l'adresse change en prenant +1 à chaque fois

Ex:
Http://.../../temp?id=155176--->+1
Http://.../../temp?id=155177--->+1
Http://.../../temp?id=155178--->+1
Http://.../../temp?id=155179--->+1.....Etc

Peut-on par interaction HTML, récupérer ce morceau "155176" et le faire évoluer en sachant également que ce numéro peut évoluer d'un jour à l'autre.
Par exemple passer de çà "155176" à "189566" ou tout autre numéro.

En faite je crois que je dois extraire du code source le num "155176", peu important le num, et lui appliquer +1 à chaque fois

MerKi pour vos conseils

A tchao

Salut le Forum

Tu peux te servir de la fonction SPLIT

ID = Split(URL, "id=")

Pour URL  = "Http://.../../temp?id=155176"

ID(0) va te retourner Http://.../../temp?

ID(1) va te retourner 155176

Mytå

Bonjour le forum

Bonjour Myta

Merci de t'interesser au sujet

Pourrais-tu me donner plus d'informations, car je ne vois pas très bien comment faire évoluer ce morceau d'adresse web?

En autre ici

Pour URL  = "Http://.../../temp?id=155176"

ID(0) va te retourner Http://.../../temp?

ID(1) va te retourner 155176

Merci d'avance

Re le Forum

Un exemple avec une boucle FOR...NEXT

Sub Boucle_Url()
Dim Idx As Byte, Url As String, Tablo

    Url = "Http://.../../temp?id=155176"
    Tablo = Split(Url, "id=")

    For Idx = 0 To 5
        MsgBox Tablo(0) & "id=" & Tablo(1) + Idx
    Next Idx

End Sub

Mytå

Bonjour le forum

Et bonjour Myta,

Merci pour cette info, je la teste et reviens vers toi pour te dire si j'ai réussi à l'adapter.

Bonne journée