Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Désactiver le plein écran récalcitrant

Désactiver le plein écran récalcitrant

3 réponses
Avatar
René Delcourt
Bonjour vacanciers et autres...

Je me heurte à un problème dont la solution doit être évidente (sauf pour
moi!)
J'ouvre un fichier excel en plein écran et voudrais qu'à sa fermeture le
mode normal soit rétabli.
Je me suis inspiré de ce code trouvé sur le forum (ou Excelabo) mais la
commande fullscreen est sans effet lorsque je réouvre Excel.
Cependant, quand je mets le code de "Before_Close" dans une macro classique,
la commande fonctionne!

Cela inspire-t-il quelqu'un?

Private Sub Workbook_Open()
...
With Application
.DisplayFullScreen = True
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
With ActiveWindow
.Caption = "ZAZA"
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
End Sub
-----------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
...
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
Application.Caption = ""
End Sub
--
René Delcourt
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
twinley
Bonjour,

je n'ai pas tout compris car tu ne montres qu'une partie du code.

Ne faut-il pas réactiver les events par

Application.EnableEvents = True

dans la dernière ligne de ton module before_close ?

à+twinley

René Delcourt wrote:
Bonjour vacanciers et autres...

Je me heurte à un problème dont la solution doit être évidente (sauf pour
moi!)
J'ouvre un fichier excel en plein écran et voudrais qu'à sa fermeture le
mode normal soit rétabli.
Je me suis inspiré de ce code trouvé sur le forum (ou Excelabo) mais la
commande fullscreen est sans effet lorsque je réouvre Excel.
Cependant, quand je mets le code de "Before_Close" dans une macro classique,
la commande fonctionne!

Cela inspire-t-il quelqu'un?

Private Sub Workbook_Open()
....
With Application
..DisplayFullScreen = True
..DisplayStatusBar = False
..DisplayFormulaBar = False
End With
With ActiveWindow
..Caption = "ZAZA"
..DisplayWorkbookTabs = False
..DisplayHeadings = False
End With
End Sub
-----------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
....
With Application
..DisplayFullScreen = False
..DisplayStatusBar = True
..DisplayFormulaBar = True
End With
With ActiveWindow
..DisplayWorkbookTabs = True
..DisplayHeadings = True
End With
Application.Caption = ""
End Sub


Avatar
René Delcourt
Bonjour Twinley,
Merci de t'intéresser à ce problème.
Voici le code complet de "ThisWorkbook"

Option Explicit
Private Sub Workbook_Open()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
With Application
.DisplayFullScreen = True
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
With ActiveWindow
.Caption = "A S S C O L"
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
Menu
Worksheets("Intro").Select
ActiveSheet.Shapes("LOGO").Select
ActiveWindow.Zoom = True
Range("a1").Select
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
Application.DisplayFullScreen = False
Application.Caption = ""
Application.CommandBars("Assent").Delete
End Sub
--
René Delcourt



Bonjour,

je n'ai pas tout compris car tu ne montres qu'une partie du code.

Ne faut-il pas réactiver les events par

Application.EnableEvents = True

dans la dernière ligne de ton module before_close ?

à+twinley

René Delcourt wrote:
Bonjour vacanciers et autres...

Je me heurte à un problème dont la solution doit être évidente (sauf pour
moi!)
J'ouvre un fichier excel en plein écran et voudrais qu'à sa fermeture le
mode normal soit rétabli.
Je me suis inspiré de ce code trouvé sur le forum (ou Excelabo) mais la
commande fullscreen est sans effet lorsque je réouvre Excel.
Cependant, quand je mets le code de "Before_Close" dans une macro classique,
la commande fonctionne!

Cela inspire-t-il quelqu'un?

Private Sub Workbook_Open()
....
With Application
..DisplayFullScreen = True
..DisplayStatusBar = False
..DisplayFormulaBar = False
End With
With ActiveWindow
..Caption = "ZAZA"
..DisplayWorkbookTabs = False
..DisplayHeadings = False
End With
End Sub
-----------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
....
With Application
..DisplayFullScreen = False
..DisplayStatusBar = True
..DisplayFormulaBar = True
End With
With ActiveWindow
..DisplayWorkbookTabs = True
..DisplayHeadings = True
End With
Application.Caption = ""
End Sub





Avatar
twinley
.../...
je ne vois pas de désactivation des events mais elle peut se produire
ailleurs.
As tu essayé d'ajouter la ligne, de fermer et ouvrir ?
Tu peux mettre cette ligne dans open_workbook du module thisworkbook.
Ou bien de tester l'état des events avant fermeture et à l'ouverture.

Sub UteventON()
' change l'état de EnableEvents à ON
MsgBox Application.EnableEvents
Application.EnableEvents = True
MsgBox Application.EnableEvents
End Sub

Sub UteventOFF()
' change l'état de EnableEvents à OFF
MsgBox Application.EnableEvents
Application.EnableEvents = False
MsgBox Application.EnableEvents
End Sub

à+twinley

René Delcourt wrote:
Bonjour Twinley,
Merci de t'intéresser à ce problème.
Voici le code complet de "ThisWorkbook"

Option Explicit
Private Sub Workbook_Open()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
With Application
..DisplayFullScreen = True
..DisplayStatusBar = False
..DisplayFormulaBar = False
End With
With ActiveWindow
..Caption = "A S S C O L"
..DisplayWorkbookTabs = False
..DisplayHeadings = False
End With
Menu
Worksheets("Intro").Select
ActiveSheet.Shapes("LOGO").Select
ActiveWindow.Zoom = True
Range("a1").Select
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
..DisplayFullScreen = False
..DisplayStatusBar = True
..DisplayFormulaBar = True
End With
With ActiveWindow
..DisplayWorkbookTabs = True
..DisplayHeadings = True
End With
Application.DisplayFullScreen = False
Application.Caption = ""
Application.CommandBars("Assent").Delete
End Sub