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

[bauerjackob]

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

 

[Eric C]

Bonsoir le forum
Bonsoir bauerjackob

Ton code fonctionne parfaitement sur XL 2010. Attends les retours pour XL2019.
Bonne nuit
@+ Eric c

 

[TooFatBoy]

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.

 

[Eric C]

Bonjour le forum, re le fil
Bonjour Jacky

J'ai testé initialement avec Activate et Open (que je pensais plus approprié) et cela fonctionne de façon identique.
Bonne journée
@+ Eric c

 

[TooFatBoy]

Bonjour Jacky

J'ai testé initialement avec Activate et Open (que je pensais plus approprié) et cela fonctionne de façon identique.

Bonjour Éric,
J'avoue que ma réponse est purement théorique et que je n'ai pas testé.

 

[patricktoulon]

tu pourrais tester une autre méthode que le displayfullscreen
dans un module standard

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

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

 

[bauerjackob]

MERCI LES AMIS