Discussion :

[melouille56]

Bonjour à tous,

je viens une fois de plus chercher de l'aide.

J'ai dans une feuille de mon classeur un certain nombre de lignes, avec un certain nombre de dates de valeurs (plusieurs lignes par valeur).
J'obtiens au cours de la procédure, à l'aide d'un compteur, le nombre de Dates de valeurs différentes qui existent dans ma feuille, ainsi que leur valeur.

Grâce à ce compteur, j'ai ajouté le nombre de feuilles correspondant.

A la fin de ma procédure, je souhaiterais copier ces nouvelles feuilles vers un autre classeur.

Mon problème est le suivant: je ne sais pas à l'avance combien de feuilles ont été créées, donc je ne sais pas comment les sélectionner avec array. La première feuille n'est jamais supprimée, je sais comment elle s'appelle, c'est fixe, et les éventuelles suivantes sont appelées pareil que la 1ère, suivi de "_1" et/ou "_2" en fonction de mon compteur.

Comment puis-je procéder ?

Merci

[patbou]

bonjour,

a la fermeture de ton classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub sheets_copy()
Dim fl As Worksheet
For Each fl In ActiveWorkbook.Worksheets
fl.Copy '......
Next fl
End Sub

[melouille56]

Merci pour ta réponse. Le souci c'est qu'elle ne correspond pas tout à fait à mon problème.

J'ai effectivement oublié de préciser que j'avais, mis à part ma base avec mes données et mes x nouvelles feuilles crées, plein d'autres onglets que je ne souhaite pas du tout copier.

C'est là donc que tout se complique.

[patbou]

si tes feuilles a copier ont le meme nom avec une extension

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub sheets_copy()
Dim fl As Worksheet
'exemple :si tes feuilles s appellent gestion_1 gestion_2 etc gestion_n
For Each fl In ActiveWorkbook.Worksheets
     If Left(fl1, 7) Like "gestion" Then
          fl.Copy '......
     end if
Next fl
End Sub