XL 2016 Onglets très masqués VBA à chaque réouverture de fichier

[Fanny754]

Bonjour à tous,
Je galère sur un fichier Excel dans lequel j'ai 4 onglets très masqués (collaborateur clé / collaborateur prometteur / collaborateur performant / futur manager).
Je suis allée sur VBA pour les positionner en visible.
A chaque réouverture du classeur, les onglets redeviennent masqués. Or je voudrais qu'ils soient affichés en permanence, fermeture / réouverture comprise.
Pouvez-vous m'aider svp ?

 

[Eric C]

Bonsoir le forum
Bonsoir Fanny754

Fichier modifié

Bonne soirée
Eric c

 

[laurent950]

Bonsoir,

Insérez ce code dans le module ThisWorkbook.

Ce code utilise deux procédures :
- AfficherOnglets pour rendre les onglets visibles
- MasquerOnglets pour les masquer.

La procédure Workbook_Open est déclenchée lors de l'ouverture du classeur
La procédureWorkbook_BeforeClose est déclenchée avant la fermeture du classeur.

Ces procédures assurent que les onglets appropriés sont toujours visibles.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' Appel de la procédure avant la fermeture du classeur
    MasquerOnglets
End Sub

Sub AfficherOnglets()
    ' Afficher les onglets nécessaires
    Sheets("collaborateur clé").Visible = xlSheetVisible
    Sheets("collaborateur prometteur").Visible = xlSheetVisible
    Sheets("collaborateur performant").Visible = xlSheetVisible
    Sheets("futur manager").Visible = xlSheetVisible
End Sub

Sub MasquerOnglets()
    ' Masquer les onglets non nécessaires
    Sheets("collaborateur clé").Visible = xlSheetVeryHidden
    Sheets("collaborateur prometteur").Visible = xlSheetVeryHidden
    Sheets("collaborateur performant").Visible = xlSheetVeryHidden
    Sheets("futur manager").Visible = xlSheetVeryHidden
End Sub

 

[Fanny754]

Bonsoir le forum
Bonsoir Fanny754

Fichier modifié

Bonne soirée
Eric c

Bonsoir Eric C,
Un grand merci ! Vous êtes au top ! Cela fonctionne parfaitement 👍
Bonne soirée
Fanny754

 

[Fanny754]

Bonsoir,

Insérez ce code dans le module ThisWorkbook.

Ce code utilise deux procédures :
- AfficherOnglets pour rendre les onglets visibles
- MasquerOnglets pour les masquer.

La procédure Workbook_Open est déclenchée lors de l'ouverture du classeur
La procédureWorkbook_BeforeClose est déclenchée avant la fermeture du classeur.

Ces procédures assurent que les onglets appropriés sont toujours visibles.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' Appel de la procédure avant la fermeture du classeur
    MasquerOnglets
End Sub

Sub AfficherOnglets()
    ' Afficher les onglets nécessaires
    Sheets("collaborateur clé").Visible = xlSheetVisible
    Sheets("collaborateur prometteur").Visible = xlSheetVisible
    Sheets("collaborateur performant").Visible = xlSheetVisible
    Sheets("futur manager").Visible = xlSheetVisible
End Sub

Sub MasquerOnglets()
    ' Masquer les onglets non nécessaires
    Sheets("collaborateur clé").Visible = xlSheetVeryHidden
    Sheets("collaborateur prometteur").Visible = xlSheetVeryHidden
    Sheets("collaborateur performant").Visible = xlSheetVeryHidden
    Sheets("futur manager").Visible = xlSheetVeryHidden
End Sub

Bonsoir Laurent950,
Un grand merci pour la formule et votre rapidité pour la réponse ! Vous êtes super ! 👍
Bonne soirée
Fanny754