A
albert
Guest
bonjour à tous et à toutes, forumiens, forumiennes…
Je cherche à télécharger un historique couvrant la période allant de 2 janvier 2003 jusqu’au 19 avril 2004
J’obtiens 2 périodes :
1/ du Apr-16-04 au Jul-07-03
http://chart.yahoo.com/d?a=0&b=1&c=2003&d=3&e=18&f=2004&g=d&s=ACCP.PA
2/ du Jul-04-03 au Jan-02-03
http://chart.yahoo.com/d?a=0&b=1&c=2003&d=3&e=18&f=2004&s=ACCP.PA&y=200&g=d
dans la macro, il y a 2 adresses semblables(bouton feuille 1) :
- du Apr-16-04 au Jul-07-03 où ACCP.PA&y=0
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://chart.yahoo.com/d?a=0&b=1&c=2003&d=3&e=18&f=2004&s=ACCP.PA&y=0&g=d" _
, Destination:=Range("A1"))
.Name = "d?a=0&b=1&c=2003&d=3&e=18&f=2004&s=ACCP.PA&y=0&g=d"
- et du Jul-04-03 au Jan-02-03 où ACCP.PA&y=200
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://chart.yahoo.com/d?a=0&b=1&c=2003&d=3&e=18&f=2004&s=ACCP.PA&y=200&g=d" _
, Destination:=Range("A218"))
.Name = "d?a=0&b=1&c=2003&d=3&e=18&f=2004&s=ACCP.PA&y=200&g=d"
----------
je suppose donc qu’il est possible de boucler sur y= 1 To 200
dans ce cas le téléchargement s’effectue 200 fois…
Je réduis la boucle y= 1 To 2 on a 2 téléchargements, mas seul le 1er apparaît : Apr-16-04 au Jul-07-03 (bouton feuille 2)
J’ai essayé u = Range("A1").End(xlDown).Offset(1, 0).Address pour Destination:=Range(u))
Dans ce cas la page reste vide
----------
Quelqu’un aurait une idée pour obtenir le deux séries à la suite l’une de l’autre ??
Merci d’avance
pièce jointe TelechargeBoucle.zip
albert
Je cherche à télécharger un historique couvrant la période allant de 2 janvier 2003 jusqu’au 19 avril 2004
J’obtiens 2 périodes :
1/ du Apr-16-04 au Jul-07-03
http://chart.yahoo.com/d?a=0&b=1&c=2003&d=3&e=18&f=2004&g=d&s=ACCP.PA
2/ du Jul-04-03 au Jan-02-03
http://chart.yahoo.com/d?a=0&b=1&c=2003&d=3&e=18&f=2004&s=ACCP.PA&y=200&g=d
dans la macro, il y a 2 adresses semblables(bouton feuille 1) :
- du Apr-16-04 au Jul-07-03 où ACCP.PA&y=0
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://chart.yahoo.com/d?a=0&b=1&c=2003&d=3&e=18&f=2004&s=ACCP.PA&y=0&g=d" _
, Destination:=Range("A1"))
.Name = "d?a=0&b=1&c=2003&d=3&e=18&f=2004&s=ACCP.PA&y=0&g=d"
- et du Jul-04-03 au Jan-02-03 où ACCP.PA&y=200
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://chart.yahoo.com/d?a=0&b=1&c=2003&d=3&e=18&f=2004&s=ACCP.PA&y=200&g=d" _
, Destination:=Range("A218"))
.Name = "d?a=0&b=1&c=2003&d=3&e=18&f=2004&s=ACCP.PA&y=200&g=d"
----------
je suppose donc qu’il est possible de boucler sur y= 1 To 200
dans ce cas le téléchargement s’effectue 200 fois…
Je réduis la boucle y= 1 To 2 on a 2 téléchargements, mas seul le 1er apparaît : Apr-16-04 au Jul-07-03 (bouton feuille 2)
J’ai essayé u = Range("A1").End(xlDown).Offset(1, 0).Address pour Destination:=Range(u))
Dans ce cas la page reste vide
----------
Quelqu’un aurait une idée pour obtenir le deux séries à la suite l’une de l’autre ??
Merci d’avance
pièce jointe TelechargeBoucle.zip
albert