Remplacer nom dans Gestionnaire des noms

Bonjour,

J'ai fais une macro pour remplacer automatiquement les noms des champs.

La procédure écrit le nom des champs dans le "Gestionnaire des noms".

J'avais des anciens noms dans les champs mais il ne les a pas remplacé par les nouveaux noms.

Est-ce que c'est parce qu'il me manque quelque chose dans mon code ?

Merci!

       ActiveWorkbook.Names.Add Name:="Nom", RefersToR1C1:="='Identification'!R44C5"
        ActiveWorkbook.Names.Add Name:="Courriel", RefersToR1C1:="='Identification'!R45C5"
        ActiveWorkbook.Names.Add Name:="Telephone", RefersToR1C1:="='Identification'!R46C5"
        ActiveWorkbook.Names.Add Name:="Poste", RefersToR1C1:="='Identification'!R46C8"
        ActiveWorkbook.Names.Add Name:="Date", RefersToR1C1:="='Identification'!R47C5"

Bonjour Catherine, bonjour le forum,

Commence peut-être par supprimer les anciens noms :

Dim NN As Integer 'Nombre de Noms
Dim I As integer

NN = ThisWorkbook.Names.Count
For I = NN To 1 Step -1
    ThisWorkbook.Names(I).Delete
Next I

Bonjour à tous...

par définition, ceci :

ActiveWorkbook.Names.Add Name:="

ajoute un nom... ne remplace rien...

on peut très bien avoir deux noms différents qui pointent sur la même plage...

pour autant si il y a suppression des noms dans le gestionnaire de noms, et que ces derniers sont utilisés dans des formules... il y aura pleins de #ref ensuite...

Fred

Bonjour à tous,

Si tu veux renommer :
ActiveWorkbook.Names("avant").Name = "après"
eric

Bonjour,

J'ai essayé le code que tu m'as donné mais à quel endroit dois-je mettre le RefersToR1C1 ? Il y a un erreur…

ActiveWorkbook.Names("TE_11").Name = ActiveWorkbook.Names("TEV_111").Name, RefersToR1C1:="='PMO 20-21'!R7C1"

Bonjour,

à qui t'adresses-tu ?

Si c'est à moi, ma proposition n'était QUE pour renommer, comme ta demande le laisser supposer.
Si tu dois en plus modifier le ReferTo il faut supprimer et recréer.
eric

@Eric

J'ai cet erreur :

BOnsoir

Eric a donner ceci plus haut...

ActiveWorkbook.Names("avant").Name = "après"

donc pour ton exemple...

Activeworkbook.names("TE_111").name = "TEV_111"

il faut bien observer les informations que les personnes indiquent...

Fred

Bonjour,

rien de plus à ajouter ;-)
Si ce n'est que si le nom à renommer n'existe pas, tu auras aussi cette erreur.
eric