comment remplir des feuilles créées au fur et à mesure dES téléchargements ?

  • Initiateur de la discussion albert
  • Date de début
A

albert

Guest
Bonjour à tous et à toutes, forumiens, forumiennes,

Je cheche à obtenir trois feuilles contenant des données différentes, selon les critères situés en colonne L : ^FCHI - ACCP.PA - AIRP.PA
Donc,
Je télécharge en boucle sur des critères situés dans la colonne L : Symbole = Cells(n, 12)
J’installe un compteur en M1
compte = Cells(1, 13)
et je crée la boucle sur les critères
For i = 2 To compte 'Cells(1, 13)

J’écris : Symbole = Cells(i, 12)

Le téléchargement en boucle s’effectue correctement
"&s=" & Symbole & "&y= n*50& &g=d&" _

j’obtiens autant de page qu’il y a de critères dans la colonne L
For m = i To compte + 1
Worksheets.Add.Move After:=Sheets(ActiveWorkbook.Sheets.Count)

Mais dans chaque page il y a le même téléchargement
Je travaille sur i pour obtenir une feuille différente à chaque téléchargement, j’écris i = i + 1
Et jobtiens toujours le même résultat… toutes les tentatives échouent

Ma question : comment arriver à faire en sorte que les données soient téléchargées dans chaque page, à la suite l’une après l’autre ???

Merci d’avance

(toujours, toujours ces sacrées boucles)
smiley_219.gif


albert
 

Pièces jointes

  • PlusieursFeuilles.zip
    24.7 KB · Affichages: 17
  • PlusieursFeuilles.zip
    24.7 KB · Affichages: 17
  • PlusieursFeuilles.zip
    24.7 KB · Affichages: 19
A

albert

Guest
trouvé !!!
question de disposition du code
j'envoie la correction pour ceux qui seraient intéressés

'-----------mise en place des compteurs---------------
Sheets("Feuil1").Select
compte = Cells(1, 13)
For i = 2 To compte
For m = i To compte + 1
Symbole = Sheets("Feuil1").Cells(i, 12)
Cells(i, 12).Select
'----------------------création de pages----------------

Worksheets.Add.Move After:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = Symbole
 
M

matjor

Guest
Bonjour albert,

Merci de se creuser la tête mais je crois que c'est moi qui ne va pas suivre.
Que représente les deux lignes qui sont sous " création de pages "

Worksheets.Add.Move After:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = Symbole


Comment
Je télécharge en boucle sur des critères situés dans la colonne L : Symbole = Cells(n, 12) et comment que l'on doit écrire le téléchargement en boucle.

Je m'excuse mais je suis loin d'être un spécialiste et par moment c'est du chinois .
Encore une fois merci pour le travail que cela représente mais on dit ,c'est en travaillant qu'on apprend.!!!!
A bientôt .
 

Statistiques des forums

Discussions
312 332
Messages
2 087 361
Membres
103 530
dernier inscrit
Chess01