Before close

Bonjour le forum et meilleurs voeux à tous,

Depuis quelques jours j'ai migré sous windows 10 et j'ai un soucis avec le code before close dans mon fichier excel. En fait j'ai l'impression qu'il n'exécute se que je lui demande que si je mets "Application.ScreenUpdating" en True alors que sous windows 7 aucun problème.

Voici le code en question:

Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Masquer les pages avant fermeture
    Application.ScreenUpdating = True
        Sheets("Login").Visible = True
        Sheets("GTA").Visible = 2
        Sheets("Récapitulatif").Visible = 2
        Sheets("Congés").Visible = 2
        Sheets("Feuille de paye").Visible = 2
        Sheets("Members").Visible = 2
End Sub

Merci d'avance pour votre aide

Bonjour,

Essaie ceci.

Cdlt.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim a As Variant, i As Long
    'Masquer les feuilles à la fermeture du classeur actif
    a = Array("GTA", "Récapitulatif", "Congés", "Feuille de paye", "Members")
    With Me
        .Worksheets("Login").Visible = -1
        For i = LBound(a) To UBound(a)
            .Worksheets(a(i)).Visible = 2
        Next i
        If .Saved = False Then .Save
    End With
End Sub

Jean-Eric a écrit :

Bonjour,

Essaie ceci.

Cdlt.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim a As Variant, i As Long
    'Masquer les feuilles à la fermeture du classeur actif
    a = Array("GTA", "Récapitulatif", "Congés", "Feuille de paye", "Members")
    With Me
        .Worksheets("Login").Visible = -1
        For i = LBound(a) To UBound(a)
            .Worksheets(a(i)).Visible = 2
        Next i
        If .Saved = False Then .Save
    End With
End Sub

thunder23.xlsm

Bonjour Jean-Eric,

L'essai est un succès tout fonctionne de nouveau, merci encore!!

Cdlt