Discussion :

[bigboy]

Bonjour,

¤¤j'ai encore besoin de votre aide.. ¤¤

J'ai une fichier qui a perdu l'ensemble des noms de cellule que j'avais créé (environ 40 noms au total). Heureusement, j'ai garder la version originale.
J'aimerais savoir s'il existe un moyen pour dupliquer les noms de cellule de mon fichier original sur celui ou j'ai perdu les noms de facon plus automatique que de les recreer manuellement un par un.


Je vous remercie d'avance pour votre aide
Loic

[casefayere]

Bonsoir,
tu peux adapter ce code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim cel
Dim wbnom As Workbook, wbcopie As Workbook, ws As Worksheet
Set wbnom = Workbooks("essai2.xlsm")
Set wbcopie = Workbooks("essai1.xlsm")
Set ws = wbcopie.Sheets("Feuil1")
For Each cel In wbnom.Names
  wbcopie.Names.Add Name:=cel.Name, RefersToR1C1:=cel.RefersToR1C1
Next cel

[bigboy]

merci bp, ca marche!!!

[casefayere]

Excuses-moi, j'ai laissé une ligne qui ne sert à rien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim cel
Dim wbnom As Workbook, wbcopie As Workbook
Set wbnom = Workbooks("essai2.xlsm")
Set wbcopie = Workbooks("essai1.xlsm")
For Each cel In wbnom.Names
  wbcopie.Names.Add Name:=cel.Name, RefersToR1C1:=cel.RefersToR1C1
Next cel

N'oublies pas de cliquer sur