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 !