Plein écran !

[DJ FA]

Bonsoir alors voici ma macro qui se déclenche à l'ouverture, le soucis c'est que quand j'ouvre un autre fichier excel , il est également ouvert en plein écran. Merci de votre aide.

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
End Sub

 

[jeanpierre]

Re : Plein écran !

Bonsoir DJ FA,

Sauf à faire la manip.inverse dans les fichiers que tu veux ouvrir ensuite tu seras toujours en plein écran.

Encore que, si tu modifies dans ce sens, ton premier classeur ne sera plus en plein écran.

Cette option n'est pas au classeur mais à tout Excel, comme certaines du menu Outils/Options.

Bonne soirée.

Jean-Pierre

 

[DJ FA]

Re : Plein écran !

Arfff, merci mais dommage !

 

[DJ FA]

Re : Plein écran !

J'ai essayé ça, c'est pas mal.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.WindowState = xlNormal
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayHeadings = True
End Sub

 

[jeanpierre]

Re : Plein écran !

Re,

Oui, mais c'est à la fermeture et pas pendant la ou les sessions.....

 

[DJ FA]

Re : Plein écran !

Oui justement ce que je veux.

 

[jeanpierre]

Re : Plein écran !

Re,

Pfiou le Lukky Luke de la réponse......

Si tous les questionneurs étaient aussi rapide que toi, ce serait un plaisir car on ne perdrait pas de vue la question.... éventuellement l'étude du fichier, on serait encore dedans....

Si ta solution te convient c'est parfait

Bonne soirée.

Jean-Pierre