renommer une feuille

[clav]

Bonjour,

je souhaite faire une macro dans laquelle je duplique une feuille puis je la renomme en fonction de la valeur d'une cellule contenue dans la feuille dupliquée.
Imaginez par exemple une fiche produit avec un numero de produit. Quand je crée un nouveau produit, je veux lui faire une nouvelle feuille dont le nom est le numero de produit. J'ai donc enregistré une macro qui me donne le code suivant:

Sub new_product()
'
' new_product Macro
'
'
'
Range("B6:C16").Select
Selection.Copy
Sheets("template").Select
Range("B6").Select
ActiveSheet.Paste
Range("C25").Select
Sheets("template").Select
Application.CutCopyMode = False
Sheets("template").Copy Before:=Sheets(2)
Range("C16").Select
Selection.Copy
Sheets("template (2)").Select
Sheets("template (2)").Name = C'EST ICI QUE JE BLOQUE!
Range("C18").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("C14").Select
ActiveWorkbook.Save
End Sub

Je n'arrive pas arenommer la nouvelle feuille avec le contenu d'une cellule..
Quelqu'un a une idée?
Merci

clav

 

[clav]

Re : renommer une feuille

merci! ca fonctionne!

 

[beuzzz59]

Re : renommer une feuille

Bonjour Clav

Ca fait un peu deterage de topic mais j'aimerais savoir comment tu as fait pour reussir à renommer ta page en fonction d'une cellule.

Merci d'avance

 

[cotcot]

Re : renommer une feuille

Je remet un coup de pelle et je te demande la même chose : comment as-tu fait ?!

 

[La braise]

Re : renommer une feuille

Il affecte la valeur de sa cellule dans une variable et il nomme l'onglet avec la variable.

(enfin moi je fais comme ça... )

 

[Pierrot93]

Re : renommer une feuille

Bonjour à tous,

peut être comme ceci :

Sheets("template").Copy Before:=Sheets(2)
ActiveSheet.Name = range("C16").value

bonne fin d'après midi
@+