bonjour

j'ai un problème sur excel lors de la fermeture du fichier j'ai deux code a exécuté en fonction de l'appui sur une touche ou pas (touche ctrl ou maj)

un code fermeture du ficher avec enregistrement et remise a zero du filtre
deuxieme code fermeture du ficher avec enregistrement sans remise a zero du filtre

code a exécuté sans l’appui d'une touche

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
 
  For Each ws In Worksheets()
    If ws.FilterMode = True Then ws.ShowAllData
  Next ws
 
If ThisWorkbook.Saved = False Then
        ThisWorkbook.Save
    End If
code a exécute sur l'appui d'une touche

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Saved = False Then
        ThisWorkbook.Save
    End If
j’ai essai avec onkey mais ne marche pas
cordialement et merci d'avance
nicogef