Rendre une partie d'une phrase : "variable&qu
voldo2142
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Bonjour,
Je sais pas si c'est fesable sur excel...
En gros mon fichier download directement de yahoo des cours boursier. Simplement dans mon code VBA, j'ai directement écrit le lien des adresses internet tel que :
Workbooks.Open Filename:= _
"http://ichart.finance.yahoo.com/table.csv?s=MSFT&a=02&b=13&c=1986&d=01&e=15&f=2008&g=m&ignore=.csv"
ActiveWindow.Visible = False
Windows("table.csv").Visible = True
Dans ce cas l'action en question est Microsoft (MSFT). Le top serait que MSFT soit une variable que je pourrais choisir dans la cellule A1.
Auriez vous des idées a proposer???
Merciiii
nmartin
Bonjour,
Je sais pas si c'est fesable sur excel...
En gros mon fichier download directement de yahoo des cours boursier. Simplement dans mon code VBA, j'ai directement écrit le lien des adresses internet tel que :
Workbooks.Open Filename:= _
"http://ichart.finance.yahoo.com/table.csv?s=MSFT&a=02&b=13&c=1986&d=01&e=15&f=2008&g=m&ignore=.csv"
ActiveWindow.Visible = False
Windows("table.csv").Visible = True
Dans ce cas l'action en question est Microsoft (MSFT). Le top serait que MSFT soit une variable que je pourrais choisir dans la cellule A1.
Auriez vous des idées a proposer???
Merciiii
nmartin
Configuration: Windows XP Firefox 2.0.0.12
2 réponses
-
-
Merci beaucoup,
Mais est ce qu'il y aurait une facon de le faire à travers vba comme je le souhaite??? c'est possible?
j'ai essayé ca :
Workbooks.Open Filename:= _
"http://ichart.finance.yahoo.com/table.csv?s=& range("b4").value & "& "&a=02&b=13&c=1986&d=01&e=15&f=2008&g=m&ignore=.csv"
ActiveWindow.Visible = False
Windows("table.csv").Visible = True
mais ca ne marche pas....
help help
-
-
Bonjour,
il faut bien mettre tes " "
Sub test()
Dim fich As String
fich = "http://ichart.finance.yahoo.com/table.csv?s=" & [A1].Value & "&a=02&b=13&c=1986&d=01&e=15&f=2008&g=m&ignore=.csv"
Workbooks.Open Filename:=fich
End Sub
eric
