Problème avec procédure Workbook_BeforeClose

  • Initiateur de la discussion Initiateur de la discussion pcalzett
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pcalzett

XLDnaute Nouveau
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour