Comment renommer une feuille en VBA

Version imprimable

26/04/2007, 15h18
Jusomi31

Comment renommer une feuille en VBA
Bonjour,
Je suis débutant en VBA et je voudrais ajouter une feuille (ça c'est bon) en la renommant à l'aide de 2 variables (pour le moment elle est renommée à l'aide d'une seule). Voici le morceau de code simplifier :
Code:

1 2 3 4 5 6 projet = Trim(Sheet1.Cells(1,2).Value) base = Trim(Sheet1.Cells(2,2).Value) nouveaunom = projet ... ActiveSheet.Name = nouveaunom
Pour le moment la feuille renommée s'appelle "projet".
Et je voudrais que le nouveau nom soit "projet/base".
Cela est-il possible ?

Merci de vos réponses !
26/04/2007, 15h22
ouskel'n'or

Code:

Worksheets("Feuil1").Name = "Barbapapa"
26/04/2007, 15h24
illight

Citation:

Envoyé par Jusomi31

Et je voudrais que le nouveau nom soit "projet/base".

Dans le nom d'une feuille, on ne peut pas mettre de / ;) fait attention :D
26/04/2007, 15h34
ouskel'n'or

Bien vu ! N'est pas une lumière qui veut :mouarf:
26/04/2007, 15h35
Jusomi31
J'ai rajouté la ligne suivante :
Code:

1 2 Worksheets("projet").Name = "baseprojet"
Et j'ai une erreur du type :"l'indice n'appartient pas à la sélection".
En fait, comme base et projet ont des valeurs provenant de 2 cellules différentes, c'est peut-être ça le problème, non ?

PS: Comment séparer les 2 noms si on ne peut pas mettre de "/" entre base et projet ?

pour concatenet tes deux variable, il te suffit d'utiliser un opérateur comme dans un message box
Code:

1 2 3 4 5 msgbox = projet & "_" & base feuille.name = projet & "_" & base ou alors, tu crée une 3eme variable projetbase = projet & "_" & base feille.name = projetbase

26/04/2007, 15h40
illight
Citation:
Envoyé par Jusomi31

J'ai rajouté la ligne suivante :

Code:

1 2 Worksheets("projet").Name = "baseprojet"

Et j'ai une erreur du type :"l'indice n'appartient pas à la sélection".
En fait, comme base et projet ont des valeurs provenant de 2 cellules différentes, c'est peut-être ça le problème, non ?

PS: Comment séparer les 2 noms si on ne peut pas mettre de "/" entre base et projet ?
met juste :

Code:

Sheets("projet").Name = "baseprojet"

Si Base et projet viennent de 2 cellules différentes, il suffit de les concaténer, avec au remplacmeent d'un / tu peux mettre ocmme il a été dit un _ :

Code:

Sheets("projet").Name = base & "_" & projet

tu peux aussi mettre un espace :mrgreen: ou un | :

Code:

Sheets("projet").Name = base & "|" & projet
26/04/2007, 15h43
Jusomi31

Ca marche !!!

Merci Alsimbad et à tous !!! :D