Optimisation de code (connexions multiple à Internet)
Bonjour à tous,
Je souhaiterais optimiser un code qui scanne une colonne dans laquelle se trouve des liens vers des cotations d'actions et trackers du site Boursorama, puis recherche la cotation actuelle et la reporte dans une autre colonne.
Le problème est que c'est très long ! En effet, les reports des cotations se font les unes après les autres...
Ne serait-il pas possible de tout traiter en même temps (j'ai une excellente connexion internet) ?
Exemple de lien :
http://www.boursorama.com/bourse/tra...symbole=1rTLQQ
Code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Sub MajCotations()
Dim i%, k%, URL$, COT
k = Cells(Rows.Count, 15).End(xlUp).Row - 3
Range(Cells(4, 20), Cells(3 + k, 20)).Clear
On Error Resume Next
For i = 1 To k
DoEvents
ReDim COT(1 To k, 1 To 1)
COT(1, 1) = Cells(3 + i, 15).Value
URL = Cells(3 + i, 16).Value
Application.StatusBar = "Mise à jour des cotations en cours …"
On Error Resume Next
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", URL, False
.Send
If .Status = 200 Then COT(i, 1) = Val(Split(.responseText, "cotation"">", 2)(1))
End With
Application.StatusBar = False
Cells(3 + i, 20).Value = COT(i, 1)
Next
End Sub |
Merci beaucoup.
