constat: Si j'enlève le code qui masque la barre d'Etat (réduire/agrandir/fremer) dans ThisWorkbook, ça marche avec Application.DisplayFullscreen = False
Mais si je le laisse, le DisplayFullScreen ne marche plus!!!
Quelqu'un peut-il m'aider?




Bonjour à tous,

J'ai besoin de votre aide pour faire fonctionner une macro dans un classeur. J'ai une macro qui ouvre l'appli en plein écran, mais à la fermeture, pas moyen de revenir en mode normal, et c'est primordial sinon tous les autres docs excel qu'on ouvre après sont en plein écran et ça, ça va être un vrai souci pour ceux qui vont utiliser l'appli (ils sont nombreux et ne maitrisent pas du tout Excel).

Donc, J'ai essayé:
- Senkeys "{esc}": ça ne marche pas
- Application.DisplayFullScreen = False: ça marche pas non plus
- Et même le code pour laisser un petit "Wait" avant la fermeture (histoire que le code ne se déroule pas trop vite et que toutes les étapes soient prises en compte) ne marche pas!
Aidez moi s'il vous plait, je suis au bout du rouleau à force de chercher.... Qu'est ce qui ne va pas dans mon code?????

Voici un extrait du code à la fermeture:

Dans ThisWorkbook:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 Dim hwnd As Long
 hwnd = FindWindowA(vbNullString, Application.Caption)
 SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H80000
 Call Mise_en_formeS
 Application.DisplayFullScreen = False
 Temps = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) = 60)
 Application.Wait Temps
 Application.Quit
 End Sub
-Dans 1 module:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Mise_en_formeS()
 Application.ScreenUpdating = False
 With Application
 .DisplayFullScreen = False
 .DisplayFormulaBar = True
 .DisplayStatusBar = True
 .ShowStartupDialog = True
 .ShowWindowsInTaskbar = True
 
End With
 
With ActiveWindow
 .DisplayHeadings = True
 .DisplayHorizontalScrollBar = True
 .DisplayWorkbookTabs = True
 End With
 For Each Feuille In Worksheets
 Feuille.Activate
 ActiveWindow.DisplayHeadings = True
 Next Feuille
 Application.ScreenUpdating = True
 End Sub
Aidez moi s'il vous plait ! merciiii.