Code

[apdf1]

Bonjour,

J’aimerai ouvrir mon classeur en plein écran tous en gardant menu, fichier ect..
J’ai mis le code ci-dessous dans ThisWorkbook mais le problème j’ai plus de menu.
Y aurait-il une solution ?

Private Sub Workbook_BeforeClose(Cancel As Boolean)

   Application.DisplayFullScreen = False

End Sub

Private Sub Workbook_Open()

    Application.DisplayFullScreen = True


End Sub

Merci d’avance

Cordialement

Max

 

[suistrop]

Re : Code

Salut,

Essai ceci :

ActiveWindow.WindowState = xlMaximized
Application.WindowState = xlMaximized

Cordialement

 

[apdf1]

Re : Code

Bonjour,

Je te remercie

@+

Max