Raccourcir les répétitions d'un code avec URL qui change

Version imprimable

Salut à tous !

Voilà j'ai ce code qui se répète avec plusieurs variables qui changent (l'URL, numéro du nom de la donné, numéro de la cellule de destination)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 URL = "http://www.url1.com" code = GetCodeSource(URL) donnee1 = Split(Split(code, "<span"">")(1),"<")(0) Sheets("DONNEE").Range("A1") = donnee1 URL = "http://www.url2.com" code = GetCodeSource(URL) donnee2 = Split(Split(code, "<span"">")(1),"<")(0) Sheets("DONNEE").Range("A2") = donnee2 URL = "http://www.url3.com" code = GetCodeSource(URL) donnee3 = Split(Split(code, "<span"">")(1),"<")(0) Sheets("DONNEE").Range("A3") = donnee3 ....ect
quelle est la formule magique afin de raccourcir le schmilblick, j'ai entendu "boucle", mais je nage :ouin:

Merci !

Bonjour,

Un truc dans le genre ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub Test()
 
    Dim I As Integer
    Dim X As Integer
    Dim Pref As String
    Dim Suf As String
 
    'à adapter
    X = 3
    Pref = "http://www.url"
    Suf = ".com"
 
    With Worksheets("DONNEE").Cells(I, 1)
 
        For I = 1 To X
 
            .Value = Split(Split(GetCodeSource(Pref & I & Suf), "<span"">")(1), "<")(0)
 
        Next I
 
    End With
 
End Sub

Hervé.

Oups,

Plutôt comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub Test()
 
    Dim I As Integer
    Dim X As Integer
    Dim Pref As String
    Dim Suf As String
 
    'à adapter
    X = 3
    Pref = "http://www.url"
    Suf = ".com"
 
 
    For I = 1 To X
 
        With Worksheets("DONNEE").Cells(I, 1)
 
            .Value = Split(Split(GetCodeSource(Pref & I & Suf), "<span"">")(1), "<")(0)
 
        End With
 
    Next I
 
End Sub

Hervé.

16/02/2014, 14h25
Dan.exe

merci

ça se rapproche certainement de cela sauf pour les url

disons que ces url sont plutot comme ça (ou il n 'y a aucun lien logique entre le suivant et le précédent) :

http://www.url.com/5126542/fvf=

http://www.url.com/4561516/fvf=

http://www.url.com/9723441/fvf=

il faudrait rentrer que ces numéros dans une liste dans la macro

Merci encore :)

Re,

Tu parle d'Url comme ceci :

Citation:

URL = "http://www.url1.com"
URL = "http://www.url2.com"
URL = "http://www.url3.com"

et ensuite comme cela :

Citation:

http://www.url.com/5126542/
http://www.url.com/4561516/
http://www.url.com/9723441/

Ce sera comment les prochaines ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Sub Test() Dim Tbl As Variant Dim I As Integer Dim X As Integer Dim URL As String Tbl = Array("http://www.url.com/5126542/", "http://www.url.com/4561516/", "http://www.url.com/9723441/") For I = 0 To UBound(Tbl) With Worksheets("DONNEE").Cells(I + 1, 1) .Value = Split(Split(GetCodeSource(Tbl(I)), "<span"">")(1), "<")(0) End With Next I End Sub
Hervé.