macro affichage

Re : macro affichage

Bonjour, dans Thisworkbook, cela doit fonctionner
a+

Re : macro affichage

Mecri pour ta réponse mais comme je l'ai indiqué. J'ai déjà essayé et ça ne marche pas!
voici mon code exact:

-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

Aidez moi s'il vous plait ! merci.

Re : macro affichage

Sortir du plein écran et revenir à un écran normal avant la fermeture du fichier. Répondez-moi s'il vous plait. Faut que je trouve la solution avant la fin de la journée.
Merciiiiiiiiiii