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
