XL 2019 Plein écran seulement à l'ouverture du fichier

bauerjackob

XLDnaute Junior
Bonjour, le code suivant ne marche pas sur mon feuille qui s'ouvre au premier . S'il Ya d'autres?

Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub

Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub
 
Solution
Bonjour,

Bonjour, le code suivant ne marche pas sur mon feuille qui s'ouvre au premier . S'il Ya d'autres?

Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub

Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub
Si tu veux que ça passe en plein écran uniquement à l'ouverture, à mon avis il ne faut pas mettre ton code dans Workbook_Activate mais plutôt dans Workbook_Open.

Et si tu veux que ça passe en plein écran pour chaque feuille, je dirais qu'alors il faut mettre ton code dans Workbook_SheetActivate.

TooFatBoy

XLDnaute Barbatruc
Bonjour,

Bonjour, le code suivant ne marche pas sur mon feuille qui s'ouvre au premier . S'il Ya d'autres?

Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub

Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub
Si tu veux que ça passe en plein écran uniquement à l'ouverture, à mon avis il ne faut pas mettre ton code dans Workbook_Activate mais plutôt dans Workbook_Open.

Et si tu veux que ça passe en plein écran pour chaque feuille, je dirais qu'alors il faut mettre ton code dans Workbook_SheetActivate.
 

patricktoulon

XLDnaute Barbatruc
tu pourrais tester une autre méthode que le displayfullscreen
dans un module standard
VB:
Public Sub VeryFullScreen(oui_ou_non As Boolean)
    Static Wstate As Long
    With ActiveWindow
        .DisplayHeadings = Not oui_ou_non
        .DisplayGridlines = True    'oui_ou_non
        .DisplayWorkbookTabs = oui_ou_non
        .DisplayVerticalScrollBar = oui_ou_non
        .DisplayHorizontalScrollBar = oui_ou_non
    End With
    DoEvents
    With Application
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & Array("True", "False")(Abs(oui_ou_non)) & ")"
        .DisplayFormulaBar = Not oui_ou_non
        .DisplayScrollBars = Not oui_ou_non
        .DisplayStatusBar = Not oui_ou_non
         .WindowState = Array(xlNormal, xlMaximized)(Abs(oui_ou_non))
If Not oui_non Then Notitem_menubar
    End With
End Sub

Public Sub item_menubar()
    With Application
        Set bt = .CommandBars("Cell").Controls.Add(msoControlButton, , , , True)
        bt.Caption = "fermer le veryfullscreen"
        bt.OnAction = "'VeryFullScreen  " & 0 & "'"
    End With
End Sub
Public Sub Notitem_menubar()
    Application.CommandBars("Cell").Reset
End Sub
et dans le thisworkbook

VB:
Private Sub Workbook_Activate()
    If Wstate = 0 Then Wstate = Application.WindowState
    VeryFullScreen True: item_menubar
End Sub

Private Sub Workbook_Deactivate()
    VeryFullScreen False
End Sub
 

Discussions similaires

Réponses
2
Affichages
502

Statistiques des forums

Discussions
313 229
Messages
2 096 394
Membres
106 601
dernier inscrit
Virgin766