Discussion :

[Tournament]

Bonsoir

J utilise le code suivant pour masquer des feuilles à l'ouverture d'un classeur Excel

Code :

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

1
2
3
4
5
6
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
' Masque les feuilles
Sheets("nom de la feuille").Visible = xlVeryHidden
 
End Sub

a l inverse quelle serait la procédure pour qu'à l ouverture du classeur il n y ait qu'une seule feuille ("MENU") visible et toutes les autres feuilles existantes dans ce classeur soient masquées ?

Je prévois la possibilité d'afficher la ou les feuilles masquées par le code

Code :

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

Sheets("nom de la feuille").Visible = xlSheetVisible

Merci d'avance pour votre aide

[Philippe Tulliez]

Bonjour,
Boucle sur la collection des feuilles du classeur en masquant les feuilles sauf celle qui se nomme MENU par une structure conditionnelle telle qu'un IF.
Exemple

Code :

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

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
 Dim sh As Worksheet
 For Each sh In ThisWorkbook.Worksheets
  With sh
   If Not .Name = "MENU" Then .Visible = xlSheetVeryHidden
  End With
 Next
End Sub

Idéalement, il serait préférable d'utiliser le CodeName de la feuille MENU

[clementmarcotte]

Dans la même liste déroulante que pour Workbook_BeforeClose, il y a, comme par hasard, Workbook_Open

Code :

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

1
2
3
Private Sub Workbook_Open()
 
End Sub

[Tournament]

merci beaucoup pour ta célérité
C'est nickel !!
bonne soirée

[Citrax]

Tournament voulais surement dire qu'il utilise son code a la fermeture d'excel, pour que les feuilles soient masquées a l'ouverture.
C'est ce que je vois avec "woorkbook_before close"

Mais ce n'est peut etre pas tres important.
Merci a tous.