Affichage des onglets standards

Bonjour a tous,

Je suis un étudiant en première année de Master en logistique en alternance. Dans le cadre de mes missions en entreprise on me demande d'automatiser un fichier xlsm fin de l'améliorer. Dans ce fameux fichier les onglets de menu tels que affichage ou autre n'apparaissent pas et la fonction personnaliser le ruban est désactivé, par le biais d'un autre classeur je parviens à accéder au Visual Basic.

Je souhaiterais trouver un code pour réafficher les onglets du classeur sachant qu'actuellement seuls deux onglets personnalisé s'affichent.

Merci d'avance en ésperant trouver une solution au plus tot.

Bonjour,

Fournir le classeur pour examen SVP.

... Mais vous pouvez en effacer la majorité des "données sensibles"

A+

Merci de votre reponse, ce sont des données assez confidentielle je vais essayer de vous procurer une version vide de donnée dans la journée.

Bonjour

Essayer ce code

Sub AfficherOnglets()

Dim Onglet As Worksheet

For Each Onglet In Worksheets
Onglet.Visible = True
Next Onglet

End Sub

???

A+

Nous ne parlions pas des mêmes onglets

Post inutile

Me revoilà

Quand tu ouvres ton fichier, tu dois avoir dans le coin en haut à gauche le petit x vert d'excel

Tu cliques dessus et tu fais restaurer

J'espère que cela marche dans ton cas

A+

Bonjour

tu a aussi

Sub DeCacheFeuil()
   For Each Feuil In Worksheets
      Feuil.Visible = -1
   Next
    With Application
        .DisplayFullScreen = False
        .DisplayFormulaBar = True
    End With
    With ActiveWindow
        .DisplayGridlines = True
        .DisplayHeadings = True
        .DisplayOutline = True
        .DisplayZeros = True
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
    End With
End Sub

A+

Maurice