Optimisation de code (connexions multiple à Internet)

**Hexa82** · 25/01/2016, 11h09

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.

**Marc-L** · 25/01/2016, 13h31

Bonjour, bonjour !

Si tu sais un peu coder (au delà du Copier / Coller sans même griller une paire de neurones !),
voir dans les contributions Accélérer une requête sur des multiples pages Web …

Et revoir le code d'origine dont tu t'es largement inspiré car la ligne n°18 n'est pas à sa place !

______________________________________________________________________________________________________
Je suis Paris, Charlie, …

**Hexa82** · 25/01/2016, 14h21

Bonjour Marc,

Malheureusement, je débute tout juste et même si je préférerais savoir me débrouiller seule, aujourd'hui, c'est essentiellement du copier-coller.

J'ai quand même été voir ton post pour jeter un œil ! Mal m'en a pris. Je vais avoir un mal de crâne pendant quelques heures. C'est comme si j'avais tenté de déchiffrer des caractères cyrilliques...

Je t'en remercie car, au vu des explications, cela a l'air de faire gagner un temps fabuleux, mais je n'ai vraiment pas le niveau pour comprendre les 1/10èmes du code.

**Marc-L** · 25/01/2016, 17h11

Patrick aimant bien les abeilles …

**Sebphyto** · 25/01/2016, 17h43

Re Hexa et Bonjour Marc,

Hexa si en plus de Patrick, il y a Marc alors là tu seras fortement entouré, on peut les surnommer "les gourous des requêtes"

C grâce à eux que je m'en sors, pas parfaitement, car j'ai encore du chemin pour arriver à leur niveau, merci à vous deux en tout cas

A + seb