XL 2010 creer un nouveau classeur et copier des feuilles cachées (xlSheetVeryHidden)

ced91300

XLDnaute Occasionnel
Bonjour à tous,

j'ai un classeur avec userform et des feuilles cachées, je voudrais créer un bouton pour qu'il crée un nouveau classeur et copie certaines feuilles

j'ai un soucis dans le vba et je ne trouve pas ma solution. Celui-ci fonctionne il créer bien le nouveau classeur, me copie bien les feuilles dans le nouveau classeur, mais à la fin me masque les feuilles du nouveau classeur au lieu masquer à nouveau celles du classeur d'origine ou se trouve le vba.

Merci de votre aide

Cordialement.


Private Sub CommandButton2_Click()
Sheets("Entrée").Visible = True
Sheets("Sortie").Visible = True
Sheets("Inventaire").Visible = True

Worksheets(Array("Entrée", "Sortie", "Inventaire")).Copy
Dim WkNouveau As Workbook, ShNouveau As Worksheet
Range("A1:z36000").HorizontalAlignment = xlCenter
Range("A1:z36000").VerticalAlignment = xlBottom
Columns.AutoFit
Unload Me
Sheets("Entrée").Visible = False
Sheets("Sortie").Visible = False
Sheets("Inventaire").Visible = False

End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 889
Membres
101 831
dernier inscrit
gillec