Pein Écran - Écran Normal [Résolu]

[Magic_Doctor]

Bonjour,

Il y a déjà quelques temps, job75 m'avait aidé pour une macro permettant de passer du mode Plein Écran au mode Écran Normal. Elle marche très bien quand on la lance à partir d'un CommandButton.
Je voudrais, lors de l'ouverture du classeur que celui-ci soit systématiquement en mode Plein Écran et lors de la fermeture revenir à Écran Normal (sinon problèmes quand on ouvre un autre classeur qui s'affichera alors en mode Plein Écran), et là, toujours au moyen de cette même macro, ça ne marche pas à tous les coups.
Comment y remédier ?

 

[kingfadhel]

Bonjour, le forum,
@Magic_Doctor

 

[Magic_Doctor]

Bonjour kingfadhel,

Merci beaucoup pour votre aide.
J'avais essayé un peu toutes les combinaisons, mais pas celle-là.
Le problème demeure :
j'ouvre le fichier --> plein écran.
je ferme aussitôt le fichier et le réouvre --> écran normal

Une très bonne journée méditerranéenne.

 

[job75]

Bonjour Magic_Doctor, kingfadhel,

Le bouton n'est pas indispensable, voyez le fichier joint et les codes retouchés.

PS : je rappelle que les touches Ctrl+N ou Ctrl+O permettent d'ouvrir un autre document ou fichier.

A+

 

[job75]

Re,

Une fois le fichier ouvert, si l'on veut changer son état, on lancera cette macro :

Sub Etat()
'se lance par Ctrl+E
If ActiveWorkbook.Name <> ThisWorkbook.Name Then Exit Sub
VueEcran = Application.DisplayFullScreen
ChangeEtat
End Sub

Toujours sans bouton...

Fichier (2).

Remarque : il n'est pas indispensable de déclarer Public la variable VueEcran.

Il suffirait de la passer en argument de la macro ChangeEtat

A+

 

[Magic_Doctor]

Bonjour job,

Nickel comme d'habitude,
Le problème, c'est que je voulais conserver ce bouton (qui fout la pagaille...) pour pouvoir, le cas échéant, passer en un simple clic en mode écran normal.
Est-ce possible ?

PS : TabRatio qu'est-ce que c'est exactement ?

 

[job75]

Re,

Puisque tu tiens à ton bouton utilise ce fichier (3), moi je n'aime pas trop...

TabRatio c'est le ratio d'occupation des onglets dans la barre du bas.

Chez moi (Excel 2013) il faut le modifier pour que l'onglet s'affiche quand on passe à l'état "normal".

A+

 

[job75]

Re,

J'avais mis 2 macros dans le fichier (3) mais en fait une seule suffit.

A+

 

[Magic_Doctor]

Merci job, c'est ce que je cherchais.

 

[job75]

Bonjour Magic_Doctor,

Pour tenir compte des conclusions de ce fil :

https://www.excel-downloads.com/threads/occulter-ou-faire-apparaître-la-barre-détat.169324/

j'ai très simplement adapté le code dans ce fichier (4).

Edit : dans le module Macros on pourrait n'utiliser qu'une seule macro paramétrée avec comme arguments les 6 critères, mais ce serait moins compréhensible.

A+

 

[Magic_Doctor]

On y sera enfin arrivés !
Encore merci job.