Bonjour à tous,

À partir d'un fichier Excel j'avais besoin d'une macro pour transférer les Noms du Gestionnaire de noms d'un classeur à un autre.
J'ai cherché sur le net dans les forums spécialisés (Forum Excel-Pratique, Excel-downloads...) puis j'ai eu l'idée d'interroger ChatGPT

Voici nos échanges

Moi
Depuis un classeur Excel comment transférer les noms, la référence et l'étendue des noms du gestionnaire de noms d'un classeur A vers un classeur B

ChatGPT
Pour transférer les noms, les références et les étendues d'un gestionnaire de noms d'un classeur A vers un classeur B, vous pouvez utiliser une macro VBA. Voici un exemple de code VBA qui effectue cette tâche :

Puis il me donne le code

Sub TransfererNoms()

Dim wbSource As Workbook

Dim wbDestination As Workbook

Dim nom As Name

' Spécifiez le chemin du classeur source

Set wbSource = Workbooks.Open("CheminDuClasseurSource.xlsx")

' Spécifiez le chemin du classeur de destination

Set wbDestination = Workbooks.Open("CheminDuClasseurDestination.xlsx")

' Boucle à travers tous les noms dans le classeur source

For Each nom In wbSource.Names

' Transfère le nom, la référence et l'étendue vers le classeur de destination

wbDestination.Names.Add Name:=nom.Name, RefersTo:=nom.RefersTo, Visible:=True

Next nom

' Fermez les classeurs source et destination

wbSource.Close SaveChanges:=False

wbDestination.Close SaveChanges:=True

End Sub

Ensuite il me prodigue conseil et marche à suivre

Assurez-vous de personnaliser le chemin des classeurs source et destination dans les lignes :

Set wbSource = Workbooks.Open("CheminDuClasseurSource.xlsx")

Set wbDestination = Workbooks.Open("CheminDuClasseurDestination.xlsx")

Modifiez "CheminDuClasseurSource.xlsx" et "CheminDuClasseurDestination.xlsx" en remplaçant ces noms de fichiers par les noms réels et les chemins de vos classeurs source et destination.

Ensuite, exécutez la macro en appuyant sur F5. Cela ouvrira les deux classeurs, transférera les noms, les références et les étendues de la feuille source vers la feuille de destination, puis fermera les classeurs. Assurez-vous de sauvegarder vos classeurs avant d'exécuter la macro.

J'avoue avoir été surpris, car le code fonctionne bien sûr mais je ne l'avais pas trouvé aussi rapidement dans les forums qui donnent rarement des réponses directes, souvent il faut en lire 3 pages puisque les intervenants demandent, souvent à juste titre, des précisions. et je ne parle pas des "mauvaises réponses"
Certes la question n'était pas très complexe mais quand même ! Voilà 2 ou 3 fois que je fais l'essai et je suis un peu bluffé.

Rassurez-vous je resterai fidèle aux forums "humain", trop attaché que je suis à l'échange réel, mais cela peut-être une alternative.

Bonne fin de we

Pégase