Gestion du plein écran

Bonjour,

J'ai une petit problème, j'utilise le code suivant pour mettre en plein écran

Private Sub Workbook_Open()

Application.DisplayFullScreen = True

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.WindowState = xlNormal

End Sub

Mais quand je ne quitte pas cette application, et que j'ouvre un autre fichier excel lui aussi reste en mode plein écran.

Je souhaiterais avoir mon application "Base planning" fonctionne en plein écran et une application "Suivie des congés en mode normal avec toute les barres habituel.

Merci d'avance pour votre aide

Bonjour floy35,

Remplaces la procédure

Private Sub Workbook_Open()

par les deux suivantes :

Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub

Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub

Bon WE.

Cordialement.

un GRAND MERCI

Ça marche impeccablement

A bientôt