Extraction de donnée bourse sur le site de Boursorama
Bonjour à tous,
J'ai trouvé dans le forum, le code ci-dessous pour pouvoir avoir le cours d'une action via le site de Boursorama :
Cela fonctionne très bien et merci aux créateurs :
Sub MajCotations()
Dim i%, k%, URL$, COT
k = Cells(Rows.Count, [REF].Column).End(xlUp).Row
Range(Cells(2, [Cotation].Column), Cells(k, [Cotation].Column)).Clear
avant = "</div><div class=""c-ticker__item c-ticker__item--value"">"
apres = "</span class=""c-ticker__currency"">"
On Error Resume Next
For i = 2 To k
DoEvents
ReDim COT(1 To k, 1 To 1)
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(.responseText, avant)(1), apres)(0))
End With
Application.StatusBar = False
Cells(i, [Cotation].Column).Value = COT(i, 1)
Next
End SubAyant quasi aucune base en programmation, j'essaie mais sans succès de trouver un code qui permet d'extraire les données suivante :
* Ouverture
* Clôture veille
* + Haut
* + Bas
Malgré mes multiples recherchent sur le forum, je n'arrive pas à trouver un code.
J'aimerais rajouter au code qui récupère le cours de l'action, la récupération de ces 4 valeurs dans les colonnes qui suivent celle du cours.
Je fais appel à la communauté pour une aide pour pouvoir compléter ce code .
Je vous remercie d'avance à tous.
Bryan
Bonjour,
D'après votre code, il semblerait que vous utilisiez un tableau structuré, dans ce cas, il serait souhaitable de nous le mettre à disposition (exempt de toutes données confidentielles) . On a besoin de connaître certaines positions de cellules, colonnes ou autres.
Partant de là, on verra ce qu'il est possible de faire.
Cdlt
Bonjour,
Voici le fichier
Cdlt
Bonsoir,
Top Merci ! c'est exactement ça.
Une petite demande de correctif, stp, car je n'arrive pas trouver moi-même.
Lorsque j'ai plusieurs cotations, la dernière ligne ne garde pas les caractéristiques de le cellule (arial, couleurs, sigle monétaire, etc..) que j'ai définis.
La dernière ligne reste toujours en noir sans les caractéristiques de le cellule
Serais-tu voir à cela ?
Je te remercie d'avance,
Bien à toi
Bonsoir,
Voici la modif
Cdlt
Bonjour,
Désolé de déterrer ce sujet, mais c'est pour la bonne cause
Le super code fait par Arturo83 ne fonctionne plus correctement aujourd'hui,
j'ai donc créé une fonction de traitement de la valeur de cotation
Si cela peut être utile à d'autres
Bonjour à tous,
Existe-t-il un code pour avoir le cours d'une action via le site de JustEtf ?
Merci beaucoup.