Attribuer par VBA à une feuille comme nom la valeur d'une cellule?

Pierrot93

XLDnaute Barbatruc

• 13 Novembre 2009

• #2

Re : Attribuer par VBA à une feuille comme nom la valeur d'une cellule?

Bonjour Aloha

essaye peut être ainsi :

Code:

ActiveSheet.Name = Range("A1").Value

bonne journée
@+

 

Vote positif 0 Vote négatif

A

Aloha

XLDnaute Accro

• 13 Novembre 2009

• #3

Re : Attribuer par VBA à une feuille comme nom la valeur d'une cellule?

Bonjour,

Merci pour cette solution.

Malheureusement il y a un message d'erreur 1004: Erreur définie par l'application ou par l'objet.
A+

Aloha

 

Dernière édition: 13 Novembre 2009

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Novembre 2009

• #4

Re : Attribuer par VBA à une feuille comme nom la valeur d'une cellule?

Re

peut être avec ceci alors :

Code:

ActiveSheet.Name = Workbooks("nomclasseur.xls").Sheets("nomfeuille").Range("A1").Value

@+

 

Vote positif 0 Vote négatif

A

Aloha

XLDnaute Accro

• 13 Novembre 2009

• #5

Re : Attribuer par VBA à une feuille comme nom la valeur d'une cellule?

Mes excuses: je me suis trompé tout à l'heure; j'ai oublié que j'ai le nom bien à l'endroit décrit, mais également dans la feuille elle-même (j'ai vite modifié mon message, mais trop tard apparemment).

En tout cas je reçois le message d'erreur 1004

A+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Novembre 2009

• #6

Re : Attribuer par VBA à une feuille comme nom la valeur d'une cellule?

Re

attention, la cellule A1 doit être obligatoirement renseignée, et ce par un nom qui n'est pas déjà un nom de feuille utilisée... Attention aussi aux caractères interdit dans les noms de feuille...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Novembre 2009

• #7

Re : Attribuer par VBA à une feuille comme nom la valeur d'une cellule?

Bonjour Aloha, Pierrot,

Si cela a un rapport avec ce fil :

https://www.excel-downloads.com/threads/comment-proteger-des-feuilles-contre-leffacement.130501/

il faut peut-être ôter la protection du classeur...

Code:

On Error Resume Next 'au cas où le nom n'est pas autorisé
ActiveWorkbook.Unprotect "toto"
ActiveSheet.Name = Range("A1")
ActiveWorkbook.Protect Password:="toto", Structure:=True, Windows:=False

Edit : peut-être même (voir le fil) :

Code:

On Error Resume Next 'au cas où le nom n'est pas autorisé
ActiveWorkbook.Unprotect "toto"
ActiveSheet.Name = Range("A1")
tablo = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12")
If IsError(Application.Match(ActiveSheet.Name, tablo, 0)) Then _
ActiveWorkbook.Protect Password:="toto", Structure:=True, Windows:=False

A+

 

Dernière édition: 13 Novembre 2009

Vote positif 0 Vote négatif

A

Aloha

XLDnaute Accro

• 13 Novembre 2009

• #8

Re : Attribuer par VBA à une feuille comme nom la valeur d'une cellule?

Bonjour,

Merci pour la peine que vous vous êtes donné.

Je viens de trouver la raison de l'erreur: je me suis trompé de cellule: la cellule est vide et comme le nom de la feuille ne peut êtrre vide cela ne pouvait pas fonctionner.

Mes excuses

Bonne fin d'après-midi

Aloha

 

Vote positif 0 Vote négatif