Bonjour à tous,
Merci pour ce partage d'informations. J'ai réussi à m'en sortir pour plusieurs cas d'utilisations, en revanche je bloque sur l'un d'entre eux. Notamment j'utilise les fonctions split pour extraire la partie d'un code html qui m'intéresse.
Le problème se pose sur le site suivant :
www. investing. com/equities/gaya-abadi-sempurna-consensus-estimates
Avec le code suivant :
Sub MajCotations()
Dim i%, k%, URL$, COT
k = Cells(Rows.Count, [www].Column).End(xlUp).Row
Range(Cells(2, [Cotation].Column), Cells(k, [Cotation].Column + 1)).ClearContents
On Error Resume Next
For i = 2 To k
DoEvents
ReDim COT(1 To k, 1 To 2)
COT(1, 1) = Cells(i, [Cotation].Column).Value
URL = Cells(i, [www].Column).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(Split(Split(.responseText, "Moves below")(1), "placeholder=""")(1), "")(0))
End If
End With
Application.StatusBar = False
Cells(i, [Cotation].Column).Value = COT(i, 1)
Cells(i, [Cotation].Column + 1).Value = COT(i, 2)
Next
End Sub
Je souhaiterais obtenir le cours de bourse qui est actuellement de 5,XXX IDR MAIS le programme me renvoit seulement le 5 et pas ce qu'il y a après la virgule. Alors que si j'effectue la même opération pour une action côtée comme peugeot, je récupère le string complet. J'imagine que le spit doit séparer les deux parties du chiffre avant et après la virgule dans deux cellules différentes, mais je n'arrive à afficher les deux..
Dans un soucis d'équité, le must serait d'avoir un code qui permettrait de sortir les cours de bourse complets qu'il ait une virgule ou non dans le string extrait.
Aussi, il m'arrive quelque fois d'avoir une erreur de type '424' (object required) sur les lignes suivantes:
k = Cells(Rows.Count, [www].Column).End(xlUp).Row
Range(Cells(2, [Cotation].Column), Cells(k, [Cotation].Column + 1)).ClearContents
Merci,