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å