Onglets disparus

Bonjour j'ai un petit souci depui que j'ai fais ce code je ne vois plus mes onglets.

Quelqu'un a une idée?

Merci

Private Sub Workbook_Open()
    Dim lngWidth As Long
     Dim lngHeight As Long
     Dim ws As Worksheet

    'Référencer la feuille active
     Set ws = ActiveSheet
     Application.ScreenUpdating = False

    'Appel de l'API pour obtenir la définition de l'écran
     lngWidth = GetSystemMetrics32(SM_CXSCREEN)
     lngHeight = GetSystemMetrics32(SM_CYSCREEN)

    'Les dimensions suivantes sont adaptables selon
     'ton environnement....!

    '1680 x 945 = 120%
     '1280 x 720 = 91%
     ' 800 x 600 =  85%
     ' 640 x 480 =  75%

    Select Case lngWidth
         Case 1680
             Call ZoomAdapté(120)
             Feuil1.Rows("1:1").RowHeight = 103
             Feuil1.Rows("28:28").RowHeight = 13

         Case 1280
             Call ZoomAdapté(91)

         Case 800
             Call ZoomAdapté(85)
         Case 640
             Call ZoomAdapté(75)
         Case Else
             MsgBox "Dimension vidéo inconnue: AutoOpen !"
             Call ZoomAdapté(100)
     End Select

    ws.Activate
     Application.ScreenUpdating = True
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False

Le code est dans les différents call zoom(x)

le mieux est de le rétablir en rentrant le bon-unzoom

au pire si tu as le nom de tes onglets appel les, les uns apres les autres avec le code adequat

type

Sub ContrôleUP()

Sheets("le nom de ton onglet1").Visible = xlSheetVisible

Sheets("le nom de ton onglet2").Visible = xlSheetVisible

Sheets("le nom de ton onglet3").Visible = xlSheetVisible

ainsi de suite

Bonjour,

Meric j'ai trouvé

Ok met le en résolu....

Cordialement