XL 2016 Nom de plage de cellule d'un classeur 1 vers un classeur 2

zebanx

XLDnaute Accro

• 6 Novembre 2018

• #2

Bonjour Sofiane

Je n'ai peut-être pas bien compris mais le code suivant permet :
- de copier d'un fichier A à un fichier B toutes les plages nommées avec le même nom / même range
- ne copie rien s'il n'y a pas de référence de feuille identique (testé en supprimant sur le fichier récepteur une feuil4).
Par contre, si tu as une plage nommée dans le fichier B qui fait déjà référence à un range, les valeurs seront écrasées par la macro (ie : nom conservé mais plage correspondra à celle du fichier A)
- Et il faut que les deux fichiers soit ouvert, copier ce code dans un module du fichier de départ et changer le nom dans la macro du fichier de réception.

@+
zebanx

---- A tester entre deux fichiers temporaires ---
Sub Copy_All_Defined_Names()
On Error GoTo prochain
For Each x In ActiveWorkbook.Names
Workbooks("Test_b.xls").Names.Add Name:=x.Name, _
RefersTo:=x.Value
prochain:
Next x
End Sub

 

Vote positif 0 Vote négatif

S

Sofiane Boukecha

XLDnaute Nouveau

• 6 Novembre 2018

• #3

Bonjour,
merci pour votre réponse
j'ai collé ton code dans mon fichier source, et changer le nom de mon fichier de destination, mais il m'affiche qu'il y'a une erreur

Sub Copy_All_Defined_Names()
On Error GoTo prochain
For Each x In ActiveWorkbook.Names
Workbooks("Test.xlsx").Names.Add Name:=x.Name, _
RefersTo:=x.Value
prochain:
Next x
End Sub

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 6 Novembre 2018

• #4

Re

Peut-être un problème d'espace lors de ma copie du code, désolé.
Ci-joint les deux fichiers avec un code...opérationnel.
Les deux fichiers doivent être ouvert et, sur un deuxième test, il faut être sur le fichier de départ quand on lance la macro.

@+

 

Pièces jointes

• fichier_B.xls

  13.5 KB · Affichages: 18
• fichier_A.xls

  24 KB · Affichages: 18

Vote positif 0 Vote négatif

S

Sofiane Boukecha

XLDnaute Nouveau

• 6 Novembre 2018

• #5

merci encore,
le code fonctionne bien, mais il ne répond pas à mon besoin
ce que je cherche, que le code copie les noms avec plage source du fichier A dans le fichier B, non pas nommé les plages du fichier B qui correspondent aux plages du fichier A.

ex: dans le fichier A il y'a le nom "Adress". je veux avoir le même nom dans le fichier B qui fait référence au plage du fichier A
[fichier_A.xlsm]Feuil1!$D$1:$D$30

je ne sais pas, peut être c'est pas aussi claire
merci

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 6 Novembre 2018

• #6

Non désolé, je ne sais pas faire...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Novembre 2018

• #7

Bonsoir Sofiane, zebanx,

Code:

Sub CopieNoms()
Dim source$, dest$, nom As Name
source = "fichier_A.xlsm" 'à adapter
dest = "fichier_B.xlsm" 'à adapter
For Each nom In Workbooks(source).Names
If TypeName(Evaluate(nom.RefersTo)) = "Range" Then _
    Workbooks(dest).Names.Add nom.Name, "=[" & source & "]" & Mid(nom.RefersTo, 2)
Next
End Sub

A+

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 6 Novembre 2018

• #8

Bonsoir et bravo JOB75🙂

Une petite remarque : L'impression que le code "plante" si le nom du fichier de départ contient des " " (erreur 1004, j'ai pensé à INDIRECT qui me fait le même type de problème sans les "'" si les worksheets contiennent " " ou "-").
A confirmer...

 

Dernière édition: 6 Novembre 2018

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Novembre 2018

• #9

Re,

D'accord zebanx, s'il peut y avoir des espaces dans le nom du fichier ou des feuilles sources utiliser :

Code:

Sub CopieNoms()
Dim source$, dest$, nom As Name, x$
source = "fichier_A.xlsm" 'à adapter
dest = "fichier_B.xlsm" 'à adapter
On Error Resume Next
For Each nom In Workbooks(source).Names
    x = Mid(nom.RefersTo, 2)
    x = Replace(x, "'", "")
    x = Replace(x, "!", "'!")
    Workbooks(dest).Names.Add nom.Name, "='[" & source & "]" & x
Next
End Sub

A+

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 6 Novembre 2018

• #10

Superbe réalisation @job75
Désolé de t'avoir alerté sur ce sujet (mais c'est courant d'avoir des " " dans un nom de fichier).
Merci. Très intéressant.😉

 

Vote positif 0 Vote négatif

S

Sofiane Boukecha

XLDnaute Nouveau

• 7 Novembre 2018

• #11

bonjour,

merci à vous tous
votre code marche très bien monsieur Job75, merci encore.

bonne journée

 

Vote positif 0 Vote négatif