Discussion :

[Halo2550]

Bonjour,

J'aurais voulu savoir s'il est possible de copier le gestionnaire de noms d'un classeur à un autre en sachant que les références ne change pas.

J'ai un classeur A avec des listes de validation (faisant référence à des plages nommées) et une macro qui à un certain moment créé un nouveau classeur B.

Ensuite je copie le contenu d'une feuille de A dans une feuille de B. Les listes de validation se colle aussi là pas de problèmes. Mais le classeur B n'a pas récupéré les plages nommées et j'ai beau chercher dans les propriétés d'un WorkBook, je ne trouve rien en rapport avec le gestionnaire de noms.

Merci par avance pour toute aide ou indication

[Daniel.C]

Bonjour,

Pas directement, mais on peut le lister et en reprenant la liste. Cette macro n'est pas l'arma absolue, sachant que dess noms peuvent faire référence à d'autres choses que des plages. En outre, il restera à faire pointer les listes déroulantes sur les "bons" noms.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test1()
Dim Wb As Workbook, Sh As Worksheet, Ligne As Long, C As Range
Set Wb = Workbooks("Classeur3")
Set Sh = Wb.Sheets.Add
Sh.Name = "temp"
With Sh
    For Each n In ThisWorkbook.Names
        Ligne = Ligne + 1
        .Cells(Ligne, 1) = n.Name
        .Cells(Ligne, 2) = n.RefersTo
    Next
    For Each C In .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp))
        Wb.Names.Add C.Value, Range(C.Offset(, 1).Formula)
    Next C
End With
Application.DisplayAlerts = False
Wb.Sh.Delete
Application.DisplayAlerts = True
End Sub

[Halo2550]

Merci c'est ce que je cherchais. La propriété names d'un workbook m'avais échappée.

[NVCfrm]

salut,
ou appeler la méthode ListNames. L'appel de cette methode pour une cellule listera tous les noms exceptés ceux qui sont masqués.

Code :

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

range("a1").ListNames