Ajouter onglet et le nommer

pierrejean

XLDnaute Barbatruc

• 19 Avril 2007

• #2

Re : Ajouter onglet et le nommer

bonjour flo2002

un code a adapter

Code:

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

End Sub

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 19 Avril 2007

• #3

Re : Ajouter onglet et le nommer

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

Merci encore

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 19 Avril 2007

• #4

Re : Ajouter onglet et le nommer

une autre version

Code:

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

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 19 Avril 2007

• #5

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 19 Avril 2007

• #6

Re : Ajouter onglet et le nommer

re

teste

Code:

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

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 19 Avril 2007

• #7

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

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 19 Avril 2007

• #8

Re : Ajouter onglet et le nommer

Bonjour

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

@+Jean-Marie

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 19 Avril 2007

• #9

Re : Ajouter onglet et le nommer

Merci Jean MArie,
bonne après midi à tous

 

Vote positif 0 Vote négatif