Discussion :

[cipic]

Bonjour à tous,

je reste perplexe face à une erreur qui survient sur une macro testée sur d'autres classeurs. Le problème doit venir du classeur et pas du code, mais je n'ai aucune idée d'ou ça peut venir.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
Dim N As Name
For Each N In ThisWorkbook.Names
N.Delete
Next
End Sub

Donne :

Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet
[OK][Aide]

Vos idées sont les bienvenues ! Merci beaucoup

[mercatog]

Regarde dans l'onglet Formule> Gestionnaire de noms qu'est ce que tu as.
peut être des noms sans nom.
Si c'est affirmatif, essaie ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test2()
Dim N As Name
 
For Each N In ThisWorkbook.Names
    If N.Name <> "" Then N.Delete
Next N
End Sub

ceux qui restent, à supprimer manuellement.

[cipic]

le problème est identique.

Je dois préciser que si j'utilise cette macro, c'est qu'il s'agit de noms qui n'aparaissent pas dans le gestionnaire de noms, et que je ne peux pas supprimer manuellement. (j'en ai 96 des comme ça, qui doivent venir de liens avec des systèmes d'information sur des fichiers antérieurs qui ont servi de base à la construction des nouveaux fichiers.)

[mercatog]

Bonjour
Tu peux mettre en PJ ton fichier (en supprimant les données)?