Page d'accueil

Bonjour,

Tu peux cacher toutes les feuilles manuellement par le menu options en décochant les onglets de feuilles, et ensuite faire l'ouverture uniquement sur la page d'acceuil, en mettant dans :

ThisWorkbook la procédure suivante :

Private Sub Workbook_Open()
Worksheets('Home').Activate
End Sub

A la fermeture si tu le souhaites, un retour sur la page home

Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets('Home').Activate
End Sub


Tu peux creer aussi une barre de menu ou un menu pour circuler dans tes pages et/ou donner l'opportunité d'enlever ou de remettre les onglets directement par les users :

Sub Macro3()
With ActiveWindow
.DisplayWorkbookTabs = Not .DisplayWorkbookTabs
End With
End Sub

(si pas de menu, créer un bouton pour la macro)

Celeda

Bonjour,

C'est simple comme bonjour. J'ai dû regarder trop loin et je n'ai pas vu la forêt devant moi. Merci de votre aide. Il y a de ces jours......;-))

Michel