basculer en mode plein écran

[STéphane]

'Basculer du mode normal au mode plein écran avec désactivation barre d'outils standards (il y a peut être une ou deux lignes inutiles)

'attention, ceci permet de basculer à visible les objets s'ils ne le sont pas, et de basculer à caché s'ils le sont

Sub HideShowMenus()
With application
.msgbox = Not .msgbox
.displayfullscreen = Not .displayfullscreen
.activewindow.displayWorkbookTabs = Not .activewindow.displayWorkbookTabs
.activewindow.displayHeadings = Not .activewindow.displayHeadings
.activewindow.displayHorizontalScrollBar = Not .activewindow.displayHorizontalScrollBar
.activewindow.displayVerticalScrollBar = Not .activewindow.displayVerticalScrollBar
.CommandBars("Worksheet Menu Bar").Enabled = Not .CommandBars("Worksheet Menu Bar").Enabled
.msgbox = Not .msgbox
End With
HideMenus = true
End Sub

voilà