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