copier sous un nveau onglet

[simons]

Bonjour,

Voila je cherche un coup de main.
J'ai une feuille (la 2) que je veux copier coller sur une nouvelle (qui n'existe pas encore, feuil3 par exemple sur mon classeur) et qui prendrais comme nom d'onglet la valeur d'une cellule (incrémentée par un bouton de commande, feuil2 range('a1') ).
Cette nouvelle feuille serait placée derrière les nouvelles feuilles crées.
Merci aux braves qui pouront m'aider.
:silly:

 

[Simons]

Voila le fichier
[file name=Classeur1_20050503152438.zip size=17451]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050503152438.zip[/file]

 

[Baside]

Bonjour Simons, le Forum,

Regarde le Fichier joint, reste à adapter la cellule source du nom.

Baside [file name=NounelleFeuilleNommee.zip size=9115]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/NounelleFeuilleNommee.zip[/file]

 

[jaws]

salut!

Donc tu tape :

sub .....()

dim nom as string

sheets(2).cells.copy
sheets(2).range('a1')=nom
worksheets.add
activesheet.name=nom
sheets(nom).paste

end sub

 

[jaws]

salut!

Donc tu tape :

sub .....()

dim nom as string

Sheets(2).Cells.Copy
nom = Sheets(2).Range('a1')
Worksheets.Add
ActiveSheet.Name = nom
Sheets(nom).Paste
ActiveSheet.Move after:=Worksheets(2)

end sub


cette fois sa devrait etre bon !!

 

[simons]

Jaws,

ta solution me plais bien seulement j'ai encore un problème.
Voila êtant donné que le numéro de ma cellule est incrémenté j'arrive à ajouter une feuille sans problème mais quand je veux en ajouter une nouvelle, excel m'affiche ensuite un message du type 'impossible de renommer une feuille comme une autre feuille, une bibliothéque d'objet référencée ou un classeur référencé par VB.'
J'imagine que ca viens du fait que le nom que dois prendre la feuille est incrémenté.....
Merci d'avance pour votre aide..