Bonjour,

J'ai donc un classeur. Toutes les propriétés de ce classeur sont définies comme tel:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveWorkbook.Names.Add Name:="Matricule", RefersToR1C1:="=Nom_Feuille_VarPN!C1"

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