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

[Aloha]

Bonjour,

Comment faire pour donner à une feuille le nom contenu dans la cellule A1?
A1="François DUPONT".

Merci pour toute aide

Aloha

 

[Pierrot93]

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

Bonjour Aloha

essaye peut être ainsi :

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

bonne journée
@+

 

[Aloha]

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

 

[Pierrot93]

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

Re

peut être avec ceci alors :

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

@+

 

[Aloha]

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+

 

[Pierrot93]

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...

 

[job75]

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...

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) :

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+

 

[Aloha]

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