Femeture appli & classeur

Question

Salut,

Voici un code qui permet de remettre quelques petites choses en place lors d'une fermeture par l'utilisateur

Par contre cela marche nickel lorsque le user clic sur la croix pour fermer le classeur mais ca plante lorsqu'il ferme directement l'appli par la croix ou bien par Fichier/Quitter.

Private Sub Workbook_BeforeClose(cancel As Boolean) 'Action avant fermeture du fichier
'Reaffichage des barre d'outils usuelles, barres de défilement, etc...
Application.ScreenUpdating = False
Application.CommandBars("Drawing").Visible = True
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
With ActiveWindow
    .DisplayGridlines = True
    .DisplayHeadings = True
    .DisplayOutline = True
    .DisplayWorkbookTabs = True
    .DisplayVerticalScrollBar = True
    .DisplayHorizontalScrollBar = True
End With
With Application
    .DisplayFormulaBar = True
    .DisplayStatusBar = True
    .ShowWindowsInTaskbar = True
End With
test2 = 2
ThisWorkbook.Close SaveChanges:=False
Application.ScreenUpdating = True
Application.Quit
End Sub

Help Me

@+

ydu

cs_MPi · Answer

Reçois-tu un message d'erreur ? si oui lequel ?
Et vois-tu la ligne sur laquelle l'erreur apparaît ?

MPi²

ydu · Answer

Salut !

Non aucun message d'erreur, lorsque je clique sur le bouton de fermeture de l'appli ca fige tout et je dois recliquer une segonde fois

ydu

Femeture appli & classeur

2 réponses

Votre réponse

Discussions similaires