Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres Copie de noms définis vers un autre classeur

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Calvus

XLDnaute Barbatruc
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...

VB:
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
 
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.
 
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 ?
 
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.
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
592
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…