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

[ced91300]

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

 

[Dranreb]

Bonsoir.
Je conseille de spécifier une expression Workbook devant, sinon il assume ActiveWorkbook.
Si c'est le classeur qui porte la macro, ThisWorkbook serait pas mal.

 

[ced91300]

Bonsoir.
Je conseille de spécifier une expression Workbook devant, sinon il assume ActiveWorkbook.
Si c'est le classeur qui porte la macro, ThisWorkbook serait pas mal.

Bonjour,
Merci pour votre réponse, effectivement ça fonctionne beaucoup maintenant.

Cordialement.