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
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