Suppression d'un nom dans le gestionnaire des noms

Bonjour,

Je souhaiterais à la fermeture d'excel, procéder à la suppression du nom "Criteres" et "Extraire" dans le gestionnaire des noms avec le code VBA. Il peut y avoir plusieurs noms "Criteres" et "Extraire"

La macro suivante enregistrée en automatique, ne fonctionne pas.

Sub Suppression_Critere()

'

' SUPPRESSION_Critere Macro

Sheets("Data_Client").Select

ActiveWorkbook.Names("Criteria").Delete (Plantage à cette première ligne)

ActiveWorkbook.Names("Criteria").Delete

End Sub

Merci pour votre aide.

slt,

comme ca peut être?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ActiveWorkbook
.Names("Criteres").Delete
.Names("Extraire").Delete
End With
End Sub

Bonjour et merci,

Je vais essayer demain.

Entre temps j'avais trouver la solution pour supprimer tous les noms de la feuille et ça fonctionne, sauf que bien évidement ça me supprime un nom qui n'est pas souhaité.

Option Explicit

Sub Suppression_Nom_Critere()

'

' SUPPRESSIOn du nom critere dans la feuille Data_Client

Dim f As String ' Nom de la feuille à sélectionner

Dim N 'Compteur

f = "Data_Client"

For Each N In ActiveWorkbook.Names

If InStr(UCase(N), UCase("=" & f & "!")) > 0 Then N.Delete

Next N

End Sub

C'était déjà une première étape que j'ai trouvé sur un site, il n'y a peut-être pas grand-chose à modifier

Cordialement

slt,

à inserer dansThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim n As Name
For Each n In ThisWorkbook.Names
   If TypeOf n.Parent Is Workbook Then
      If Left(n.Name, 8) = "Criteres" OR Left(n.Name, 8) = "Extraire" Then n.Delete
   End If
Next n
End Sub

Merci bien j'ai validé la procédure en sortie de classeur avec un aménagement.