Problème avec procédure Workbook_BeforeClose

[pcalzett]

Bonjour à tous,
J'ai fait une petite procédure pour effacer les celulles d'une certaine feuille avant de fermer. Mais pour prévenir l'utilisateur, j'affiche un msgbox. si la réponse est ok, j'enregistre le classeur et je le ferme après. ça marche mais par contre il faut clicker deux fois sur "Ok" pour quitter le fichier, je ne comprends pas pourquoi et comment l'éviter.
Pourriez vous m'aider?
Voici le code:
-----------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Cancel = False

If MsgBox("Toutes les modifications lors de la dernière utilisation du fichier seront enregistrées avant de fermer. Si vous voulez continuer, faites OK. Si vous voulez faire d'autres modifications avant de sortir, faites Annuler.", _
vbOKCancel + vbInformation) = vbOK _

Then

Sheets("Fina DT").Cells.Clear
ThisWorkbook.Close (True)

Else

Cancel = True
Exit Sub

End If

End Sub
-----------------------------------------------


Merci beaucoup

 

[Softmama]

Re : Problème avec procédure Workbook_BeforeClose

Bonjour,

Avant la ligne thisworkbook.Close (True) essaie de mettre un

Application.enableEvents = False

 

[tototiti2008]

Re : Problème avec procédure Workbook_BeforeClose

Bonjour pcalzett, Bonjour Softmama,

Ou alors, remplace

ThisWorkbook.Close (True)

par

ThisWorkbook.Save