Discussion :

[Gamal le Celte]

Bonjour,

Dans un classeur d'une dizaine de feuilles, j'ajoute un nombre aléatoire de feuilles par VBA. Je voudrai créer un autre classeur contenant les feuilles ajoutées en donnant un nom à ce classeur.

Pour donner le nom au classeur je peux employer

Code :

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

Application.Dialogs(xlDialogSaveAs).Show

Mais pour copier les feuilles je n'ai que

Code :

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

Sheets(Array("Feuil1", "Feuil2")).Move

Hors, les noms des feuilles sont aussi aléatoires

Y a t'il une autre solution ?
Merci.

[cafeine]

Hello,

tu peux, par exemple, facilement parcourir la collection des feuilles ...

Code :

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

1
2
3
For Each shit in Activeworkbook.Sheets
   MsgBox "Feuille : " & shit.Name & vbcrlf & "CodeName : " & shit.CodeName
Next shit

[Gamal le Celte]

Merci,

Je n'ai pas de problème pour parcourir les feuilles mais seulement créer un classeur avec toutes (et seulement) les feuilles sélectionnées en donnant un nom à ce classeur.

[cafeine]

Ok, mais comment VBA peut-il deviner quelle feuille est à copier et quelle feuille ne l'est pas ?
Autrement dit, quels sont tes critères ?

[Gamal le Celte]

Dans mon classeur "prog" j'ai une feuille "Data" qui recois le nom des feuilles ajoutées. Il me reste à reprendre ces noms dans une variable pour selectionner les feuilles. Le nombre de feuilles étant variable, je controle leur nombre avec une cellule incrémentée.
Donc je sais le nombre de feuilles et le nom de chaque feuille qui doivent composer mon nouveau classeur. Je connais aussi leur position dans le classeur, elles sont à la fin.