Ajouter onglet et le nommer

[flo2002]

Bonjour à tous,
ce matin je suis à la recherche d'un bout de code qui va me permettre de copier un onglet et de le renommer en nom feuille source + date.
cependant, je ne vois comment la renommer en etant sur du nom de la nouvelle feuille.

Merci par avance

 

[pierrejean]

Re : Ajouter onglet et le nommer

bonjour flo2002

un code a adapter

Sub test()
ActiveSheet.Cells.Copy
Sheets.Add.Name = "lenom " & Day(Date) & "_" & Month(Date) & " " & Year(Date)
ActiveSheet.Paste

End Sub

 

[flo2002]

Re : Ajouter onglet et le nommer

Merci Pierre Jean ca à l'air de coller avec ce code, je vais adapter.

Merci encore

 

[pierrejean]

Re : Ajouter onglet et le nommer

une autre version

Sub test()
lenom = ActiveSheet.Name & " "
ActiveSheet.Cells.Copy
Sheets.Add.Name = lenom & Day(Date) & " " & Month(Date) & " " & Year(Date)
ActiveSheet.Paste
End Sub

 

[flo2002]

Re : Ajouter onglet et le nommer

Merci Pierre Jean ca marche nickel,
je cherche cependant à changer le format de ma date (cf autre post).
en faite, pour aujourd'hui j'aimerai avoir:
19-avril-2007

cependant pour un nom de feuille je ne sais si les "-" vont fonctionné et je ne sais pas comment lui dire pour le avril? format(date, mmmm)?

merci

 

[pierrejean]

Re : Ajouter onglet et le nommer

re

teste

Sub test()
lenom = ActiveSheet.Name & " "
ActiveSheet.Cells.Copy
Sheets.Add.Name = lenom & Day(Date) & "-" & Format(Date, "mmmm") & "-" & Year(Date)
ActiveSheet.Paste
End Sub

 

[flo2002]

Re : Ajouter onglet et le nommer

Génial Pierre Jean,

en faite je ne mettais pas les "" autour du mmmm donc il me mettais des chiffres.

merci encore et bonne journée

 

[JeanMarie]

Re : Ajouter onglet et le nommer

Bonjour

Cette ligne devrait aussi fonctionner
Sheets.Add.Name = lenom & " " & Format(Date, "dd-mmmm-yyyy")

@+Jean-Marie

 

[flo2002]

Re : Ajouter onglet et le nommer

Merci Jean MArie,
bonne après midi à tous