Nommer une colonne

Bonjour,

J'ai donc un classeur. Toutes les propriétés de ce classeur sont définies comme tel:

Code:

---

1 2 3 4

Variable_PN = InputBox("Entrez le chemin du fichier de variable PN :", "Variable PN") Nom_Classeur_VarPN = InputBox("Entrez le nom du fichier :", "Variable PN", "Nom.xls") Nom_Feuille_VarPN = InputBox("Entrez le nom de la feuille :", "Vairiable PN", "Nom")

---

Une fois toutes les propriétés rentrées, je souhaite renommer chaque colonne. Je les selectionnes comme ceci:

Code:

---

Workbooks(Nom_Classeur_VarPN).Worksheets(Nom_Feuille_VarPN).Columns("A:A").Select

---

Et puis j'essaie de la renommer comme ca, mais ca ne fait rien:

Code:

---

ActiveWorkbook.Names.Add Name:="Matricule", RefersToR1C1:="=Nom_Feuille_VarPN!C1"

---

Donc si quelqu'un voit comment faire, je suis preneur.

SI tu veux nommer une colonne de cette manière, a part si ton fichier n'est pas créé au départ, tu n'as pas besoin de la renommer a chaque fois. Tu la nomme une fois ça suffit :)

Sinon, pour corriger ta faute :

Code:

---

ActiveWorkbook.Names.Add Name:="Matricule", RefersToR1C1:="=Nom_Feuille_VarPN!C1"

---

S'écrit en fait :

Code:

---

ActiveWorkbook.Names.Add Name:="Matricule", RefersToR1C1:="=" & Nom_Feuille_VarPN & "!C1"

---

Euh oui dsl....:? Je voulais dire que je souhaites nommer mes colonnes.
J'ai corrigé et effectivement, il n'y a plus de blocage mais les colonnes ne sont toujours pas nommées.:D

Qu'est-ce que tu appelle nommer une colonne ? tu veux changer le "A" en nom que tu veux c'est ça ?

Lorsque tu selectionnes par exemple la colonne A;

Tu fais ensuite:
Insertion -> Nom -> Définir
Et ceci renomme ta colonne.
Je pense que l'on évoque la même chose.

Le problème est que je ne peux pas rentrer le nom de la feuille dans les lignes de programme puisqu'il change.

Quand ut fais tourner la macro, c'est quoi s'appelle Matricule au final ?

Ba au final quand je la fais tourner. Rien ne s'appelle Matricule, et c la qu'est mon problème parce que la colonne A devrait s'appeller Matricule.

Si tu nous montrait ta macro, ça serait plus simple :)

C'est ce que j'ai mis au dessus:

Code:

---

1 2 3 4 5 6 7 8 9

Variable_PN = InputBox("Entrez le chemin du fichier de variable PN :", "Variable PN") Nom_Classeur_VarPN = InputBox("Entrez le nom du fichier :", "Variable PN", "Nom.xls") Nom_Feuille_VarPN = InputBox("Entrez le nom de la feuille :", "Vairiable PN", "Nom")     Workbooks(Nom_Classeur_VarPN).Worksheets(Nom_Feuille_VarPN).Columns("A:A").Select   ActiveWorkbook.Names.Add Name:="Matricule", RefersToR1C1:="=" & Nom_Feuille_VarPN & "!C1"

---

Code:

---

ActiveWorkbook.Names.Add Name:="LeNom", RefersToR1C1:=Worksheets("Feuil1").Range("A:A")

---

Testé

Je n'ai pas vu ta question sur les répertoires. Tu as la réponse ici
A+

Y'en a à ki je vais devoir ériger une statut. Merci ouskel'n'or et illight de votre aide.
Ca marche très très bien.

Je me permets de rajouter quelque chose. Il y 'a un autre moyen de nommer les colonnes assez rapidement si les noms sont présents sur la première ligne de la colonne. Le code est celui-ci:

Code:

---

1 2 3 4

Workbooks(Nom.xls).Worksheets("Feuil1").Columns("A:Z").Select Selection.CreateNames Top:=True, Left:=False, Bottom:=False, Right:= _ False

---

Pour moi ca marchait pas car j'avais que des données sur la première ligne.
Idir
Fan de ce forum

Citation:

---

Idir
Fan de ce forum

---

Bien ! On est content... mais quand c'est résolu, on met "Résolu", tu sais, le bouton en bas de cette fenêtre ;)
Pour les répertoires, je t'ai mis l'adresse dans le message précédent... Mais bien sûr, tu l'a pas lu :mrgreen:

Et regarde mon avis à la population, en bas de ce message :lol: