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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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.
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.
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
41
Affichages
698
Réponses
3
Affichages
577
Réponses
3
Affichages
128
  • Question Question
XL 2021 listbox
Réponses
18
Affichages
285
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
361
Retour