Autres Copie de noms définis vers un autre classeur

[Calvus]

Bonjour,

Y a t'il un moyen simple ou un code fonctionnel afin de copier les noms contenus dans le gestionnaire de noms vers un autre classeur ?

Ce code trouvé chez Microsoft ne fonctionnant pas...

Sub Copy_All_Defined_Names()
     For Each x In ActiveWorkbook.Names
      Workbooks("Book2.xlsx").Names.Add Name:=x.Name, RefersTo:=x.Value
   Next x
End Sub

Merci

 

[sylvanu]

Bonjour Calvus,
Pourquoi dites vous que ce code ne marche pas.
Je viens de te tester il marche parfaitement.
Il faut que le fichier nommé book2.xlsx soit ouvert et que le fichier où est cette macro soit le fichier actif.

 

[Calvus]

Bonjour,

Voici le message d'erreur que j'obtiens :

Avec cette valeur pour X

Il doit me manquer quelque chose...

Merci
A+

 

[sylvanu]

Re,
Je pense que ce code marche. Donc c'est quelque chose ailleurs. ( mes noms de cellueles étaient aaa,bbb,ccc ... très original )
Regardez dans votre gestionnaire de noms :
N'y a t-il pas des nom qui commencent par un chiffre ou un symbole ?
N'y a t-il pas des #REF! dans les références qui empécherait la copie ?

 

[Calvus]

Re,

Non, j'ai bien pensé à vérifier.
Je ne vois pas ce qui cause le problème..

Voici le début de ma liste

Pas d'erreur sur le reste de la liste..

 

[Dranreb]

Bonsoir.
Il y a aussi le fait que la collection Names peut contenir des éléments qui ne font pas partie des noms listés par le gestionnaire de noms et réciproquement. Il faudrait peut être tester les autres propriétés de l'objet Name, certains ne peuvent d’ailleurs pas être supprimés.

 

[Calvus]

Bonsoir Dranreb,

J'espère que tu vas bien.

Bon, je vais copier à la main, ce sera plus rapide que de passer des heures à trouver une solution miraculeuse !

Merci en tout cas.

Bonne soirée.

 

[Dranreb]

Mettez au moins un On Error Resume Next pour que ça n'arrête pas l'exécution, afin que ceux qui peuvent être ajoutés le soient !

 

[Calvus]

Merci beaucoup Dranreb, c'est ce qu'il manquait !

Comment savoir ce qu'est ce #Name que je trouve nulle part ?

En tout cas, merci, problème résolu.

 

[Dranreb]

C'est peut être lié à des fonctions qui n'existaient pas dans des versions antérieures d'Excel. Elle donnent en effet lieu à des éléments spéciaux dans la collection Names. Pour voir quels noms n'ont pas pu être créés vous pouvez mettre Err.Clear devant la tentative de le créer et derrière If Err Then MsgBox X.Name & " ne peut pas être créé", vbExclamation