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