> Tous les forums > Forum Internet et Réseaux
 ChatGPT m'a aidé, ChatGPT m'a blufféSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Pegase7845
  Posté le 25/02/2024 @ 17:00 
Aller en bas de la page 
Petit astucien

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



Modifié par Pegase7845 le 26/02/2024 08:51
Publicité
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
Support mural TV 32 à 80 pouces (orientable et inclinable, max 60 kg, double bras) à 34,99 €
34,99 € 51,99 € -33%
@Amazon
SSD WD Black SN770 2 To (PCIe Gen4, NMVe M.2, 5150 Mo/s) à 121,96 €
121,96 € 160 € -24%
@Amazon Espagne
Samsung Galaxy A15 (6.5 pouces, 8 coeurs, 4 Go / 128 Go) à 151,76 €
151,76 € 190 € -20%
@Amazon Allemagne
Support mural TV 27 à 70 pouces (orientable et inclinable, max 45 kg, double bras) à 28,31 €
28,31 € 40 € -29%
@Amazon
SSD externe portable Samsung T7 1 To (1050 Mo/s) à 81,72 €
81,72 € 110 € -26%
@Amazon
Carte mémoire microSDXC UHS-I SanDisk Ultra 1 To à 94,99 €
94,99 € 120 € -21%
@Amazon

Sujets relatifs
ChatGPT ...free!!!
ChatGPT....qu'est-ce que c'est ?
Aide navigateur Tor
Info: Thunderbird téléchargement module, aide, fonctionnalité anti spam etc
avec aide à distance = grand carré noir
Aide pour la fibre.
aide pour firefox
utilitaire aide a distance
Aide pour installation d'un réseau Ethernet chez moi.
Aide instal repeteur wifi
Plus de sujets relatifs à ChatGPT m''a aidé, ChatGPT m''a bluffé
 > Tous les forums > Forum Internet et Réseaux