Discussion :

[nono95200]

Bonjour,

Grace à vos précieux conseils, j'ai réussi à créer le corps du fichier comme je le voulais.
J'ai encore cependant une question (peut être pas la dernière )

J'ai mis le fichier en ouverture en plein écran mais lorsqu'un utilisateur a un autre fichier excel ouvert et qu'il ferme mon fichier, son autre classeur reste en mode plein écran. Cela les dérange fortement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_Open()
' ouvrir la page sur la feuille voulue
ActiveWorkbook.Worksheets("ACCUEIL").Activate
If ThisWorkbook.ReadOnly = True Then ActiveWorkbook.Worksheets("ACCUEIL2").Activate
ThisWorkbook.Sheets("ACCUEIL").ScrollArea = "A1:J30"
ThisWorkbook.Sheets("ACCUEIL2").ScrollArea = "A1:J30"
Application.DisplayFullScreen = True
'Application.OnKey "{ESC}", "AideMoi"
ActiveWindow.DisplayWorkbookTabs = False
 
End Sub

Du coup j'ai mis dans le beforeclose du Workbook l'annulation du plein écran :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
If ThisWorkbook.ReadOnly = True Then Application.DisplayAlerts = False
Application.Quit
End Sub

Cela semble fonctionner mais lorsque Excel demande à la fermeture de mon fichier la possibilité de sauvegarder si l'utilisateur clique sur annuler mon fichier n'est plus en plein écran et là il peut accéder aux menus et "trifouiller" mon fichier.

Je cherche à repasser en affichage standard mais une fois seulement que l'utilisateur a cliqué sur oui ou non à la demande d'enregistrement ou que si il clique sur annuler que le fichier repasse en plein écran.

Est ce possible ?

Merci d'avance

[Kimy_Ire]

Bonjour nono95200,

Place ton Application.DisplayFullScreen = False dans l'événement Workbook_WindowDeactivate.


Cordialement,
Kimy

[nono95200]

Bonjour,

Encore merci pour la réponse
J'ai testé avec mon fichier et un autre fichier excel ouvert.
Lorsque mon fichier s'ouvre, il est donc en plein écran et pas l'autre fichier.
Par contre ,si je passe sur l'autre fichier et que je reviens sur mon fichier, le plein écran s'est désactivé et l'utilisateur a de nouveau accès aux menus.
Du coup ça ne change pas mon problème initial.

[Kimy_Ire]

Bonjour nono95200,

Dans ce cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.DisplayFullScreen = True
End Sub

Cordialement,
Kimy

[nono95200]

Génial !
ça fonctionne !
Il me propose pas le (ByVal Wn As Window) après activate mais ça marche quand même
J'ai encore appris une astuce avec Excel !

Merci beaucoup pour les retours et la rapidité des réponses !

Je mets le post en résolu !

[Kimy_Ire]

Cela ne change rien puisque tu n'utilises pas la variable en question.

Ravi d'avoir aidé !

Cordialement,
Kimy