Private Sub CommandButton2_Click()
With ActiveWindow
.DisplayHeadings = Not .DisplayHeadings
.DisplayWorkbookTabs = Not .DisplayWorkbookTabs
.DisplayVerticalScrollBar = Not .DisplayVerticalScrollBar
.DisplayHorizontalScrollBar = Not .DisplayHorizontalScrollBar
End With
With Application
.DisplayStatusBar = Not .DisplayStatusBar
.DisplayFormulaBar = Not .DisplayFormulaBar
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & IIf(CommandBars("Ribbon").Visible, "false", "true") & ")" 'voila comment on vire le ruban
etat = CommandBars("Ribbon").Visible
.WindowState = xlMaximized
w = .Width: h = .Height
.WindowState = xlNormal
.Width = IIf(etat, 600, w): .Height = IIf(etat, 500, h + 12): .Left = 0: .Top = IIf(etat, 0, -21)
End With
CommandButton2.Caption = Array("plein ecran", "Window")(Abs(Not etat))
End Sub