Extraction site boursier

**valentin.b** · 19/01/2014, 22h37

Bonjour

Je souhaite savoir si il est possible d'extraire des données ciblées a partir d'un site ( je ne suis peut être pas dans la bonne rubrique )

Sur le site daily bourse j'aimerais partir du CAC ALL Share ( indice boursier qui se compose d'une liste de 520 sociétées ) puis extraire les données de bilan sous excel qui se trouvent sur le lien suivant dans la rubrique chiffres

ca donnerai quelquechose comme cela sous excel

;;;;;;;;;;;;; Cours / Colonne1 (Ex:ecart acquis) / Colonne2 (Immobilisati) ...
société 1
société 2
société 3
.....

Merci

**Jean-Philippe André** · 20/01/2014, 10h23

Bonjour,

la récupération des données boursières à partir de sites web est un sujet assez fréquemment évoqué.
Quelques liens :
http://www.developpez.net/forums/d11...es-manquantes/
http://www.developpez.net/forums/d14...-ticker-fixee/
http://www.developpez.net/forums/d12...donnees-yahoo/

Deux choses posent problème :
- les informations sur ces sites n'ont pas (forcément) vocation à être exploitées par extraction automatisée
- l'aspect juridique des données d'une part, et leur "fraicheur" d'autre part.

Au lieu de daily bourse, une majorité des étudiants utilisent les données de yahoo finance, car la granularité daily leur suffit.

Si tu veux descendre sur de l'intraday, il est plus que probable que tu aies à passer par un data provider payant

**valentin.b** · 20/01/2014, 11h19

merci jpcheck pour votre réponse rapide et vos recherches, la mise en œuvre de mon projet n'est pas évidente, j'ai encore la solution de faire à la mano mais c'est beaucoup de temps a y consacrer

Je pense que des logiciels existent mais payants

Bonne semaine a vous

**Marc-L** · 20/01/2014, 13h57

Bonjour, bonjour,

je n'ai pas compris le mélange d'un cours journalier avec des données de balance annuelle …

Sinon les données du site sont récupérables mais au prix peut-être d'une mini production gazière !

**valentin.b** · 20/01/2014, 17h04

les données de la balance me donnent une valeur calculée qui change une fois par an ( à la diffusion du nouveau bilan ) je la compare avec les cours qui eux changent tous les jours. cela me donne des ratios qui me permettent de sélectionner mes actions.

Je peux le faire manuellement pour les cours c'est simple je fais des copier coller du site boursier vers Excel sur une feuille et avec une recherche V ca s'actualise tout seul sur ma page de calculs par contre pour les bilans c'est environ 330 valeurs a calculer manuellement et je ne sais pas trop quand les bilans sont diffusés je ne vais pas les surveiller tous les jours.

Par exemple pour les bilans 2012 j'ai tout fait manuellement mais quand les 2013 vont apparaitre ... je vais pas surveiller tous les jours. A la limite à mi Juin 2014 la plupart seront surement diffusés mais j'aurais du retard

Effectivement je pense que le terme de production gazière est bien adapté

Je suis parti sur daily bourse mais ce serait pas mal sur Boursorama aussi ( je pense qu'ils sont en avance sur les diffusions de bilans )

Ca vaut le coup de s'y pencher car la depuis le départ de mon portefeuille Virtuel le 04/12/13 je surperforme déjà de 7,8 % mon indicateur de référence

CLDT

**Marc-L** · 20/01/2014, 17h35

Envoyé par valentin.b

les données de la balance me donnent une valeur calculée qui change une fois par an ( à la diffusion du nouveau bilan ) je la compare avec les cours qui eux changent tous les jours. cela me donne des ratios qui me permettent de sélectionner mes actions.

Question de logique, donc scinder en deux procédures distinctes :

l'une annuelle pour la balance à lancer manuellement une fois changement d'exercice,

l'autre pour le cours journalier …

**valentin.b** · 20/01/2014, 17h52

Je ne sais pas si il serait possible d'effectuer la requête 2 fois par mois par exemple cela suffirait pour les bilans

Dans l'idéal il me faudrait les colonnes suivantes

Colonne 1 : Nom société ( ou code ISIN )
Colonne 2 : Chiffres au choix, par exemple Immobilisations ou créances ou capitaux propres ... du dernier bilan
Colonne 3 : identique Colonne 2
...
Colonne 6 : Nombre de titres

Pensez vous que cela est réalisable

**Marc-L** · 21/01/2014, 12h54

Déjà répondu ‼

Envoyé par Marc-L

Sinon les données du site sont récupérables …

Envoyé par Marc-L

l'une annuelle pour la balance à lancer manuellement …

Dans le deuxième lien fourni par Jean-Philippe, lire le tutoriel du premier lien de mon post
et voir aussi par exemple une discussion récente datant du début du mois (actuellement en page 7) …

**patricktoulon** · 21/01/2014, 15h35

Bonjour
je suis allez voir cette page de daily bourse pour le cac all
il se trouve qu'elle est construite dynamiquement par un script qui se met a jour tout les X secondes .tu risque pas d'y arriver en utilisant la librairie ie les fonction "WAIT" planteraient a tout va

je suis en train de voir une autre option avec ma méthode

au plaisir

**Marc-L** · 21/01/2014, 17h07

De toute manière, l'instance d'IE est la plus lente ! A utiliser en derniers recours …

Pas de souci avec la librairie MSXML2 par exemple comme dans le lien et la discussion …

La question posée est Est-ce réalisable ? La réponse est oui …

Mais au demandeur de monter son classeur puis le joindre tout en effectuant une présentation claire & exhaustive
sans oublier les liens des pages web à traiter …

**valentin.b** · 21/01/2014, 17h22

Merci à vous tous pour vos recherches aidant à la réalisation de mon projet

Je vais étudier le MSXLM2, le langage n'est pas évident car j'y connais rien

**patricktoulon** · 21/01/2014, 17h26

re

voila

ouvre un nouveau fichier vierge

colle ca dans un module standard

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Option Explicit
Dim Destination As String  'variable pour le chemin complet du fichier de destination
Dim l_URL As String        ' variable pour le lien de la page html
Dim Lapage_en_HTML         'variable pour l'object "Microsoft.XMLHTTP"( l'object XML)
Public Function GetCodeSource(sURL)
    Set Lapage_en_HTML = CreateObject("Microsoft.XMLHTTP")    'instancie l'object
    Lapage_en_HTML.Open "GET", sURL    'ouvre l'url dans l'object
    Lapage_en_HTML.Send
    Do: DoEvents: Loop While Lapage_en_HTML.ReadyState <> 4    'attendre que la page soit chargée
 
    GetCodeSource = Lapage_en_HTML.ResponseText
 
End Function
Sub recuperation()
Dim url As String, page As String, tablo As Variant, i As Long, oldtime, bartitre As Variant
Range("a1:g1000") = ""
bartitre = Array("NOM", "DATE", "COUR", "VARIATION", "OUVERTURE", "PLUS HAUT", "PLUS BAS")
For i = 0 To UBound(bartitre)
Cells(1, i + 1) = bartitre(i)
 
Next
oldtime = Time
url = "http://www.daily-bourse.fr/indice-bourse-CAC-ALL-SHARES-cotation-QS0010989141.php"
page = Split(Split(GetCodeSource(url), "blocblanc clear")(1), "Composition CAC ALL SHARES")(1)
tablo = Split(page, "title=""")
For i = 1 To UBound(tablo)
'récuperation des noms
Cells(i + 1, 1) = Split(Split(Split(tablo(i), " href=")(0), """>")(1), "</a>")(0)
'recuperation des dates
Cells(i + 1, 2) = Split(Split(tablo(i), "txtright"">")(1), "</td>")(0)
'récupération du cours
Cells(i + 1, 3) = Split(Split(tablo(i), "txtright"">")(2), "</td>")(0)
'récupération de variation
Cells(i + 1, 4) = Split(Split(Split(tablo(i), "txtright"">")(2), ">")(2), "<")(0)
'récupération de ouverture
Cells(i + 1, 5) = Split(Split(tablo(i), "txtright"">")(3), "</td>")(0)
'récupération de plus haut
Cells(i + 1, 6) = Split(Split(tablo(i), "txtright"">")(4), "</td>")(0)
'récupération de plus bas
Cells(i + 1, 7) = Split(Split(tablo(i), "txtright"">")(5), "</td>")(0)
Next
MsgBox "operation terminé en  " & Format(Time - oldtime & " secondes", "ss")
End Sub

reviens a l'affichage du sheets

une fois ca fait lance la macro récupération et laisse faire la machine

moins de 2 seconde chez moi pour récupérer les données de 521 valeur a la bourse

c'est beau la vie non?

Au plaisir

**Marc-L** · 21/01/2014, 17h55

Salut Patrick !

3s de mon côté en Wi-Fi … Mais c'est la partie visible de l'iceberg !

Cela fait quand même une base en plus du tutoriel et des divers exemples dans les discussions …

Si tu te rappelles de la discussion de début janvier dans laquelle ton Split avait bien raccourci le temps total,
j'ai divisé encore par 6 la durée (de plus de 120s à moins de 25s)
mais j'attends une réponse de l'intéressé sinon j'en ferais profiter quelqu'un d'autre …

Tiens Patrick, on peut simplifier les lignes n°17 à 20 par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
[A1].CurrentRegion.Clear
[A1:G1].Value = Array("NOM", "DATE", "COUR", "VARIATION", "OUVERTURE", "PLUS HAUT", "PLUS BAS")

**patricktoulon** · 21/01/2014, 18h16

oui on va attendre la reponse de valentin b

oui marcel on peut encore simplifier c'est un premier jet
je n'ai pas utilise un tableau général en variable car de 2 a 10 seconde c'est un temps raisonnable pour moi
il est vrai que ton écriture ma séduit la dernière fois il faudrait que je revienne un peu dessus

**valentin.b** · 21/01/2014, 18h17

Un grand merci Patrick pour ce travail cala fonctionne parfaitement

C'est vraiment très sympa,

En échange je ferais parvenir mes performances en bourse si cela vous intéresse, je vous enverrais cela par des mails hebdomadaires et si vous voulez me suivre je vous enverrais aussi les contenus de mes portefeuilles.

C'est du beau boulot

Sans vouloir abuser de tes compétences, penses tu qu'il soit possible d'aller chercher les données de bilans qui se trouvent plus loin dans les fiches valeurs par exemple si on clique sur la première AB Science on affiche la page suivante puis dans l'onglet chiffres on a les données de la balance :

Ecart d'acquisition 484
Immobilisations incorporelles 734
Immobilisations corporelles 421
Actifs financiers non courants 160
Stocks et travaux en-cours 1130
Créances clients et comptes rattachés 2351
Autres actifs 1791
Trésorerie et équivalents de trésorerie 564
Total actif 7635
Capitaux propres 1523
Provisions pour risques et charges non courantes 234
Dettes financières non courantes 1457
Dettes financières courantes 784
Fournisseurs et comptes rattaches 1780
Autres passifs 1857
Total passif 7635

pour finir le résultat net - 2462 qui se trouve un peu plus haut

J'ai seulement besoin du dernier bilan ( 2012 dans l'exemple AB science )

Je suis conscient de la complexité de ma demande, ce qui m'a déjà été fourni est génial

**patricktoulon** · 21/01/2014, 18h50

re
impossible n'est pas Français comme on dit chez nous
je vais regarder

est que c'est de ca que tu parle ?

**valentin.b** · 21/01/2014, 19h04

oui tout a fait

quand 2013 sera diffusé je n'aurais plus besoin des chiffres 2012

Merci

**patricktoulon** · 21/01/2014, 19h11

ca y est je crois que j'ai trouvéce que tu veux

la réponse est oui c'est possible

**valentin.b** · 21/01/2014, 19h30

Ton image correspond bien à ce que je désire, avec en plus le résultat Net, renvoyant les chiffres du bilan le plus récent

Je suis impressionné par ton talent car c'est très technique

Je veux pas solliciter trop de ton temps ...

Tout cela ayant une valeur importante pour mes travaux, je suis conscient que ca me couterais de l'argent si je faisait appel à un prestataire

Je peux te rémunérer si tu le souhaite, ce qui serait normal

**Marc-L** · 21/01/2014, 19h34

Envoyé par valentin.b

Ton image correspond bien à ce que je désire, avec en plus le résultat Net, renvoyant les chiffres du bilan le plus récent

Franchement c'est la page du site, à croire que tu le découvres ‼
Voilà pourquoi je demandais à raison des liens …

Pour rappel, c'est un site de développeurs, pas de j'y viens passer commande sans daigner développer la moindre ligne !

Extraction site boursier

Macros et VBA Excel

Discussions similaires

Partager

Partager