lotus,
vite fait, comme ça, pioche là-dedans :
ATTENTION!!! N'oublie pas de tout remettre comme il faut en quittant!!!
Application.WindowState = xlMaximized
Application.CommandBars(1).Enabled = False ' barre de menus
Application.DisplayFullScreen = True
Application.DisplayStatusBar = False 'barre d'état
Application.DisplayFormulaBar = False 'barre de formules
'barres d'outils
'Application.CommandBars("Standard").Visible = False
'Application.CommandBars("Formatting").Visible = False
'Application.CommandBars("Drawing").Visible = False
Application.ScreenUpdating = False
With ActiveWindow
.DisplayWorkbookTabs = False 'onglets
.DisplayVerticalScrollBar = False ' barres défilement
.DisplayHorizontalScrollBar = False
.DisplayHeadings = False 'en-têtes
For Each Ws In ThisWorkbook.Worksheets
Ws.Activate
.DisplayGridlines = False 'quadrillage
Next Ws
End With
Cathy
