Discussion :

[Dan.exe]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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


Merci !

[Theze]

Bonjour,

Un truc dans le genre ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[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

[Theze]

Re,

Tu parle d'Url comme ceci :

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

et ensuite comme cela :

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

Ce sera comment les prochaines ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.