finance de marché

[bob]

salut

Comment faire des macros, pour chercher des cours de valeurs boursiéres sur internet /

Merci.

 

[ALBERT]

bonjour bob,
qu'est-ce que tu veux télécharger comme cours ? et sur quel site ?

 

[bob]

je veux télécharger le cours de Thomson sur abcbourse

 

[albert]

sur abc bourse, il n'est pas possible de téléchargrer automatiquement. Il faut sauvegarger le fichier en texte sur le disque dur :

tu peux mettre un code pour ouvrir abc
Sheets('Feuil1').Select
Range('B19').Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
', TextToDisplay:= _
'Les marchés en direct avec AbcBourse.com, l'indispensable pour investir en bourse'
Range('B19').Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

mais là, il faut faire un choix dans un tableau et tu ne peux pas charger plus de 2 mois

thomson sicovam 18453

le téléchargement est en fichier texte. Il faut le sauvegarder sur le disque dur puis utiliser une macro qui va chercher le fichier sauvegardé
----------------------------------------------------
ChDir 'C:\\BLABLA'
Workbooks.OpenText Filename:='C:\\BLABLA\\tonFichier.txt', Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 4), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1))

à partir de là, tu as les cours dans excel, tu peux les travailler.
Mais si tu veux avoir un téléchargement plus rapide, il vaut mieux utiliser yahoo ou bourso

exemple sur yahoo :
Sub Macro1()
Cells.Select
Selection.Clear

With ActiveSheet.QueryTables.Add(Connection:= _
'URL;http://fr.finance.yahoo.com/q/hp?s=TMS.PA&b=3&a=10&c=1999&e=2&d=02&f=2005&g=d' _
, Destination:=Range('A1'))
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
End With
End Sub

voilà pour un début
bon courage
albert

 

[bob]

Merci pour le coup de main. mais j'ai un autre probléme avec ma macro, elle me prend toutes les données qu'il y a sur la page web alors que je ne veux que les cours.De plus iils sont en orde croissant.
Ensuite je n'arrive pas à insérer une autre macro quiira me prendre des warrant, que je choisirait, sur yahoo.Et une autre macro qui fera un lien automatique avec des tableaux et des graphs, de strategies et résultats de strats.
Donc si vous pouviez m'aider la dessus,

Merci d'avance

 

[albert]

bonjour bob, le forum,
tu ajoutes une ligne, .WebTables = '30'
ce qui donne :
Sub Macro1()
Cells.Select
Selection.Clear

With ActiveSheet.QueryTables.Add(Connection:= _
'URL;http://fr.finance.yahoo.com/q/hp?s=TMS.PA&b=3&a=10&c=1999&e=2&d=02&f=2005&g=d' _
, Destination:=Range('A1'))
.WebFormatting = xlWebFormattingNone
.WebTables = '30'
.Refresh BackgroundQuery:=False
End With
End Sub
ensuite il faut transformer les dates avant de faire un tri décroissant
pour les warrants, il n'y en a pas sur yahoo, tu peux aller sur bourso ou directement sur le site de l'emetteur
pour les résultats de stratégies, il faut être plus précis, je ne vois pas ce que tu veux.
pour trouver des idées, tu peux aller sur le site de cyberpapy, il va mettre en ligne les fichier de sa conférence au salon AT, tu peuxy prendre des idées
la présentation est en ppt, dans quelques jours il y aura les fichiers excel
http://perso.wanadoo.fr/cyberpapy/

en tous cas, pour aller plus avant dans les macros, il faut que tu donnes des précisions, que tu envoies un zip avec le début de ton travail, qui semble plus compliqé qu'un simple téléchargement

bon courage
albert