Renommer une Feuille copiée et les cellules qu elle contient

[Laeti]

Bonjour,
Dans une procedure je copie une feuille de mon classeur, je n ai pas trouvé le moyen de lui affecter un nom.
Automatiquement elle se nomme "Recap (2)", et je n arrive pas a la renommer.
Worksheets("Recap").Copy after:=Worksheets("Recap")

J ai le meme probléme avec les cellules qui etaient deja nomées, je n arrive pas a les renommer, il ne plante pas mais ne fait rien dans les deux cas ...
Quelqu un pourrait m aider ?
Merci beaucoup !

Laeti

 

[DJN90]

Bjr Laeti,

Et comme ceci ?


Sheets("Recap (2)").Name = "Laeti"
ou

Sheets("Recap").Copy After:=Workbooks("Nom de ton classeur de destination")
Sheets("Recap (2)").Name = "Laeti"

@+

Dan

 

[Laeti]

Merci beaucoup mais ca marche pas apparement la methode copy appartient à la classe worksheets et pas workbooks ...
Et puis j ai deja essayé de le renommer comme ca mais il fait rien ...
T aurais pas une autre idée ?

 

[DJN90]

J'ai besoin d'infos.


Quelle procédure utilises-tu pour copier la feuille de ton classeur ?
Copies-tu la feuille "recap" vers dans un nouveau classeur ou dans le même classeur ? Je suppose dans le même classeur puisque elle se renomme automatiquement "Recap (2)"
Vérifie si ton classeur n'est aps protégé menu "outil" -> protection classeur

Si tu peux, envoies nous une copie de ton fichier (format zip), afin de tester.

@+

Dan

 

[jon]

après l'instructoin de copie, l'instruction suivante devrait suffire
activesheet.name="laeti"

 

[Laeti]

Public Sub Copier_Coller(nb_lignes_recap As Integer)

Windows("Recapitulatif.xls").Activate
Worksheets("Recap").Copy after:=Worksheets("Recap")
Worksheets("Recap (2)".name = "RecapSimul"
Dim i As Integer
For i = 2 To nb_lignes_recap - 1
ActiveWorkbook.Names.Add name:="ligne_" & i, RefersToR1C1:="=" & name_sheet & "!R2C1:R2C20"
' j ai essayé aussi avec Range("A" & i & ":T" &i).name = "ligne_" & i mais ca marche pas non plus
Next i
End Sub
Je ne plante pas mais il ne se passe rien !
En fait, je copie une feuille dans le meme classeur mais pas moyen de le faire marcher ou de pouvoir renommer les cellules ...
J ai un pb parce que je travaille avec des noms uniques pour pas m embetter à activer toutes les feuilles a chaque fois et la j aimerai faire pareil mais ...

 

[Laeti]

CA MARCHE )))))))
c est un peu du bricolage mais je m en fiche ca marche !!!!!
je suis trop contente !!!
Merci beaucoup en tout cas !