créer nouvelle feuill e

[stargate]

bonjour,


j'ai une feuille4 qui est un bon de commande,je voudrais pouvoir l'enregistrer dans un nouvelle feuille et renommer cette nouvelle feuille d'après une cellulle 'E10' de la feuille 4

la valeur de la cellule'E10' est la date du jour'


j'ai essayé ceci mais il me retourne une erreurropriété ou méthode non gérée par cet objet

Private Sub cmdEnregistrer_Click()
Worksheets('Feuill4).Copy After = Worksheets(worksheets.Count)
ActiveSheet.Name = worksheets(Feuil4').Range('E10').Value
Application.CutCopyMode = False
End Sub

 

[pierrejean]

bonjour stargate

voila quelque chose qui marche

Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = Worksheets('Feuil2').Range('E10').Value

nota: dans ce que tu as ecrit il manque ' avant Feuil4

avec recopie de la feuille:

Worksheets('Feuil2').Copy after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = Worksheets('Feuil2').Range('E10').Value


Bon dimanche

Message édité par: pierrejean, à: 05/03/2006 11:18

 

[stargate]

merci pour ton aide,


2 à 3 petits trucs


ton code marche mais il ne me recopie pas la feuille,il crée une vierge

renommer la feuille, il ne veut pas car le value de la cellule est une date(la date du jour)'5/3/06'il faut enlever les / à mon avis.mais comment?

 

[ziopizza]

Bonjour stargate,pierrejean,
ici un petit exemple joint.
Bon dimanche.
Yves [file name=recopyFeuilles.zip size=9900]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/recopyFeuilles.zip[/file]

 

[ccpapy]

bonjour à tous,
une variante que tu pourras adapter à volonté:
l'avantage, la séparation jour mois an dans le nom de la feuille qui rend un peu plus lisible
bon dimanche. [file name=ajout.zip size=11874]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ajout.zip[/file]

 

[pierrejean]

re bonjour à tous

je n'avais pas vu le probleme lié au nom de la feuille
probleme d'ailleurs fort bien traité pa ziopizza et ccpapy

qu'est-ce qu'on dit stargate ?

 

[ziopizza]

Bonjour à tous,

Bien vu ccpapy plus simple et plus cour.
Salut.
Yves

 

[stargate]

un grand merci à tous c'est résolu