info complémentaire

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:cry:.... Qu'est ce qui ne va pas dans mon code?????

Voici un extrait du code à la fermeture:

Dans ThisWorkbook:

Code:

---

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:

---

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.