Macro pour afficher toutes les feuilles masquées

Bonjour,

J'ai un pb pour afficher les feuilles dans ce classeur. Je ne comprends rien à la programmation et je voudrai si possible pouvoir les afficher avec une macro ou modifier la macro du programmeur dans VBA .

Bonjour,

Pas de feuilles masquées ! Ce sont seulement les onglets qui ne sont pas affichés !

Cordialement.

Hello

Ta macro fait une erreur, je pense que tu dois au préalable déclarer ta variable :

Private Sub Workbook_Open()
    Application.ScreenUpdating = False

    Dim ch as Worksheet

'je libere la feuille
    For Each ch In ActiveWorkbook.Worksheets
        If ch.Name <> "Analyse" And ch.Name <> "donees graphiques" Then
            ch.Visible = True
        End If
    Next ch
Application.ScreenUpdating = True
forme
Sheets("Accueil").Activate
Application.SendKeys ("^{F1}")
End Sub

Du coup toutes tes feuilles devrait être visibles à l'ouverture du fichier.

MFerrand a écrit :

Bonjour,

Pas de feuilles masquées ! Ce sont seulement les onglets qui ne sont pas affichés !

Cordialement.

Comment faire pour qu'elles s'affichent j'ai beau allers dans options avancées mais toujours rien

Kit a écrit :

Hello

Ta macro fait une erreur, je pense que tu dois au préalable déclarer ta variable :

Private Sub Workbook_Open()
    Application.ScreenUpdating = False

    Dim ch as Worksheet

'je libere la feuille
    For Each ch In ActiveWorkbook.Worksheets
        If ch.Name <> "Analyse" And ch.Name <> "donees graphiques" Then
            ch.Visible = True
        End If
    Next ch
Application.ScreenUpdating = True
forme
Sheets("Accueil").Activate
Application.SendKeys ("^{F1}")
End Sub

Du coup toutes tes feuilles devrait être visibles à l'ouverture du fichier.

j'ai remplacé par ta macro mais toujours rien les conglets ne s'affichent toujours pas

bonjour

tu a du boulot surtout si maitrise pas le VBA

dans la macro Forme

mettre ActiveWindow.DisplayWorkbookTabs = a True

Sub forme()
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
End Sub

A+

Maurice

Re,

Tu peux toujours désactiver entièrement le Workbook_Open, enregistrer et refermer le classeur, puis ouvrir à nouveau...