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
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