Microsoft 365 Réaffichage onglet sur ancien fichier

[tben08]

Bonsoir à tous,

J'avais fait un fichier de suivi de temps de travail il y a un peu moins de 10 ans chez mon ancien employeur.

Mon fichier existe toujours et on me demande d'afficher les onglets. j'avais créé une macro permettant de les afficher ou masquer tous en même temps mais cela ne semble plus fonctionner.

Si quelqu'un pouvait me conseiller ce serait top!!

voici le lien pour le fichier : https://sendeyo.com/show/9dbc390fa7

Merci à vous

 

[job75]

Bonsoir tben08,

Sub Afficher()
Dim s As Object
For Each s In Sheets
    s.Visible = xlSheetVisible
Next
End Sub

Sub Masquer()
Dim s As Object
For Each s In Sheets
    If s.Name <> ActiveSheet.Name Then s.Visible = xlSheetHidden 'xlSheetVeryHidden
Next
End Sub

Bonne nuit.

 

[tben08]

Bonjour job75, il ne se passe rien, je ne vois toujours pas les onglets.

 

[Cousinhub]

Bonjour,
Dans les options d'Excel, "Options avancées", vérifier que l'affichage des onglets est bien coché...
Bonne journée

 

[job75]

Bonjour tben08, bhbh, le forum,

Effectivement vous avez parlé d'onglets donc utilisez :

Sub Afficher()
Dim s As Object
For Each s In Sheets
    s.Visible = xlSheetVisible 'affiche chaque feuille
Next
ActiveWindow.DisplayWorkbookTabs = True 'affiche les onglets
End Sub

Sub Masquer()
ActiveWindow.DisplayWorkbookTabs = False 'masque les onglets
End Sub

A+

 

[tben08]

Bonjour,
Dans les options d'Excel, "Options avancées", vérifier que l'affichage des onglets est bien coché...
Bonne journée

J’ai oublié de te répondre et en effet tu avais la solution j’avais oublié cette option dans Excel!! Merci beaucoup

 

[tben08]

Bonjour tben08, bhbh, le forum,

Effectivement vous avez parlé d'onglets donc utilisez :

Sub Afficher()
Dim s As Object
For Each s In Sheets
    s.Visible = xlSheetVisible 'affiche chaque feuille
Next
ActiveWindow.DisplayWorkbookTabs = True 'affiche les onglets
End Sub

Sub Masquer()
ActiveWindow.DisplayWorkbookTabs = False 'masque les onglets
End Sub

A+

super ça fonctionne aussi! merci