Cours de Bourse dans feuille Excel

Bonjour,

Depuis peu je n'arrive plus a récupérer mes cours de Bourse dans ma Feuille EXCEL (Via BOURSORAMA)

Il faut dire que BOURSORAMA a aussi changer son site

Même en changeant le lien Hypertexte cela ne fonctionne pas

Avez vous une solution afin de les récupérer ça serait vraiment super de votre part

1'952long-terme-2018.xlsm (30.84 Ko)

Vous trouverez ci-joint mon fichier

Merci par avance de votre aide

Cdt

CHY

Bjr,

sujet déjà évoqué

https://forum.excel-pratique.com/viewtopic.php?f=2&t=77216&start=10

en effet

https://www.boursorama.com/accueil-nouveau-portail/

Je ne sais pas si boursorama l'a fait pour nous embêter et éviter les aspirateurs de données, mais c'est raté

Certes les méthodes modernes ou pro telles que getElementsByTagName, getElementsByID, voire QueryTables, ne fonctionnent plus.

Plutôt que de faire travailler le serveur avec un programme php, c'est le poste client qui doit travailler en javascript, et les données sont fournies au format json

{"@context":"http:\/\/schema.org","@type":"Product","name":"SAFRAN","offers":{"@type":"Offer","price":86.72,"priceCurrency":"EUR"}}

Mais mes bonnes vieilles méthodes de trituration de texte ont encore eu raison ...

note bien que les URL ont également changé !

Merci pour votre réponse.

Mais pour Exemple :

AFER SFER Code ISIN FR0000299634 le lien est :

https://www.boursorama.com/bourse/opcvm/cours/MP-829936/

et la il ne me renvoi pas la valeur dans mon fichier XLS

et c'est la ou j'ai un problème

Merci par avance

Cdt

CHY

Bonjour,

Un aperçu des résultats avec Power Query (natif Excel 2016, add-in Microsoft gratuit pour Excel 2010 & 2013).

Cdlt.

2'262cac-40-boursorama.xlsx (29.64 Ko)
snip 20180323135749

AFER SFER Code ISIN FR0000299634 le lien est :

https://www.boursorama.com/bourse/opcvm/cours/MP-829936/

C'est le seul ? car en effet la source n'est pas codée de la même façon

et dans la (superbe) solution de Jean-Eric (merci, il faut que je progresse ...)

Bonjour

Hélas non dans le fichier que je vous adressé il ne me renvoie aucune valeur même en m’étant le nouveau lien

Pourtant c’est exactement la même opération que j’effe En volant le lien Hypertexte

Suis perdu à ce stade

Cdt

CHY

@ chi,

pour ton cas de figure

mais vois aussi la solutoin de Jean-Eric

1'189long-terme-2018.xlsm (33.05 Ko)

@ Jean-Eric,

est-ce que Power Query fonctionne aussi ici ?

https://www.boursorama.com/cours/1rPUG/

Re,

@ Steelson :

Cela fonctionne.

Pour chaque page, il y 6 éléments :

1 Document (!?)

5 tables (de 0 à 5 ; la 5ème !?)

Je n'ai pas retraité les données.

Cdlt.

1'252peugeot.xlsx (35.98 Ko)

Re,

Un nouvel exemple avec des taux de change au comptant.

Cdlt.

merci

il faut que je m'y mettes

Un grand merci

Cela fonctionne très bien maintenant pour mes Sicav

Me reste plus qu'a trouvé pourquoi le CAC40 - DJ & Nickey ne fonctionnent pas

Mais en tout cas UN TRES TRES GRAND MERCI POUR VOTRE TRAVAIL

Cdt

CHY

change les URL

edit : légère modif dans le VBA aussi

350long-terme-2018.xlsm (33.42 Ko)

Re,

Voir fichier pour les indices boursiers France et internationaux.

Cdlt.

Ok

Concernant les Indices j'avais trouvé.

Mais par contre MERCI BEAUCOUP pour les Décimales c'est beaucoup mieux

Top de chez Top

Cdt

CHY

tu as maintenant 2 méthodes (et moi je prends gout à PowerQuery, même si je n'ai pas encore réussi avec un json)

et un p'tit cœur à tous les deux, cela ferait plaisir

Re,

@ Steelson,

Ce n'est bien de quémander.

Bon weekend.

Ce n'est bien de quémander.

hé hé, mais c'est notre seul salaire !

Bonjour à tous,

J'ai vécu le même problème récemment pour actualiser mes cours boursiers, depuis le changement du site BOURSORAMA, et vos explications m'ont permis de résoudre parfaitement mon souci.

Merci à tous.

J'ai cependant une autre question.

J'ai adapté ce code pour d'autres requêtes internet mais dont la solution doit donner plusieurs réponses:

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(i, [Cotation].Column).Value = COT(i, 1)

Comment faire "boucler ce code" pour me donner toutes les réponses à cette recherche ?

Merci par avance

Rechercher des sujets similaires à "cours bourse feuille"