Bonjour,
besoin d'aide, s'il vous plait. J'ai mis un post ce midi mais je n'ai toujours pas de solution pour mon problème.
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 aussi 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 ne 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 bien 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 le code à la fermeture:
Dans ThisWorkbook:
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:
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
merciiii pour votre aide.
besoin d'aide, s'il vous plait. J'ai mis un post ce midi mais je n'ai toujours pas de solution pour mon problème.
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 aussi 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 ne 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 bien 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 le code à la fermeture:
Dans ThisWorkbook:
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:
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
merciiii pour votre aide.
