Nommer une feuille à partir d'un texte permanent et d'une valeur de cellule [Résolu]

[PolyAmide]

Bonjour,

j'ai fait une toute petite option pour générer une feuille automatiquement en cliquant sur un bouton.

J'aimerai simplement que cette feuille soit automatiquement nommée avec une partie constante et une autre qui dépend d'un cellule du classeur. J'ai ceci :

Code :

1
2
3
4
5
6
7
8
Sub test()
 
Dim Ws As Worksheet
 
Set Ws = Sheets.Add(Before:=ActiveWorkbook.Worksheets("Recap"))
Ws.Name = "toto" & Worksheets("bob").range("A5").Value
 
End Sub

Je crois vraiment que j'en suis pas loin, à une parenthèse ou un guillemet près mais je ne trouve pas ou.

Merci d'avance

[jfontaine]

Bonjour,

Ou est le problème. pour moi, ce code fonctionne

[Pierre Fauconnier]

Salut.

Il faudrait dire ce qui cloche.

Il y a des chances que cela provienne de la valeur de la cellule, qui contient peut-être des caractères non acceptés pour les noms d'onglet.

Le nom généré est peut-être trop long. Le nom doit faire maximum 31 caractères.

il faut bien entendu que le classeur actif contienne les feuilles BOB et Recap...

[PolyAmide]

bien la page se créé avec le nom feuill 31 etc (oui j'ai fait beaucoup de tentative ) mais VBA m'affiche erreur 1004 définie par l'application ou par l'objet et la cellule est de type date, elle affiche ;

sept.-11 , je pense que ça viens de la effectivement, faut il que je change le format de cellule ou y a-t-il un chemin alternatif?

[Pierre Fauconnier]

Feuilles protégées ou classeur protégé?

[PolyAmide]

La cellule en elle même n'est pas protégé, le classeur est protégé par mot de passe à l'ouverture mais pas les feuilles à priori. je vais regarder plus en détail quand même

[Pierre Fauconnier]

Je pense que c'est parce que ton classeur est protégé au niveau des fenêtres. Excel crée la feuille mais ne peut pas la renommer car cela modifie la fênêtre active.

Tu dois déprotéger ton classeur avant cette manipulation.

[PolyAmide]

effectivement la feuilles crée était protégée. j'ai enlevé toutes les protection y compris le mdp à l'ouverture, et maintenant j'ai erreur 400

[Pierre Fauconnier]

Prends l'habitude de spécifier la ligne sur laquelle tu as l'erreur, même s'il n'y en a que deux... ^^.

Passe par une variable de type string, tu pourras mieux vérifier le nom que tu vas donner.

Code :

1
2
3
4
5
6
Dim Ws As Worksheet
Dim Chaine As String
 
Set Ws = Sheets.Add(Before:=ActiveWorkbook.Worksheets("Recap"))
Chaine = "toto" & Worksheets("bob").Range("A5").Value
Ws.Name = Chaine

Tu mets un point d'arrêt sur la dernière ligne et tu vérifies la valeur de Chaine.

[PolyAmide]

J'ai trouvé, en déclarant chaine. erreur à la ligne 6.
La valeur qu'il attribut à chaine est :

toto01/09/2011 au lieu de totosept.-11, et apparemment les / ne passe pas pour les noms de feuilles. seulement ma cellule A5 étant au format date adaptée, je ne comprends pas pourquoi vba change ce format.

[Pierre Fauconnier]

Le format Excel ne s'impose pas au format VBA. Tu dois forcer toi-même le format en transformant la valeur de la cellule en texte

Code :

Chaine = "toto" & Format(Worksheets("bob").Range("A5").Value, "mmm.-dd")

[PolyAmide]

Parfait, deux heure pour une ligne j'ai pas encore fini moi.

Merci bien !

[Pierre Fauconnier]

Envoyé par PolyAmide

Parfait, deux heure pour une ligne j'ai pas encore fini moi.

Merci bien !

Courage