J'ai mis ça dans ThisWorkbook: Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ScreenUpdating = False Worksheets("MENU").Visible = True For I = 2 To Worksheets.Count Worksheets(I).Visible = False Next Me.Save End Sub Ça le fait bien Mais je voudrais rendre visible à l'ouverture du fichier les 3 autres feuilles Mais comme j'ai d'autres Private dans ThisWorkbook conflit Merci pour vos éventuels retours...

Afficher les 3 autres feuilles à l'ouverture du fichier

J'ai mis ça dans ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.ScreenUpdating = False

Worksheets("MENU").Visible = True

For I = 2 To Worksheets.Count

Worksheets(I).Visible = False

Me.Save

End Sub

Ça le fait bien

Mais je voudrais rendre visible à l'ouverture du fichier les 3 autres feuilles

Mais comme j'ai d'autres Private dans ThisWorkbook conflit

Merci pour vos éventuels retours

Bonjour,

montre nous tes "autres private"' que l'on comprenne de quel conflit il s'agit ...!

pierre.jy a écrit :
Bonjour,
montre nous tes "autres private"' que l'on comprenne de quel conflit il s'agit ...!

C'est qu'un bout du premier code:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Dim N As Integer, Couleur As Integer, Indice As Integer

Dim X As String

Dim Tb, TbCoul

2ème code:

Private Sub Workbook_Open()

Init_Feuilles

End Sub

Ça bloque sur le 2ème car deux fois Private Sub Workbook_Open()

Après réflexion aucun intêret