nommer champs de cellules

[bansan]

Bonjour,
je cherche a faire une macro qui nomme les champs de mes cellules de octobre07 à octobre08 automatiquement
Cependant, je ne trouve pas le moyen d'enlever le "20" quand j'utilise Year
car j'aimerais que mes cellules soient nommer octobre07 et non octobre2007
Merci

Sub test_ii()
Dim esso As Date
esso = [C2]
annee = Year(esso)

MsgBox MonthName(Month(esso)) & annee
End Sub

 

[RENAUDER]

Re : nommer champs de cellules

Bonjour,

Sub test_ii()
    Dim esso As Date
    esso = [C2]
    annee = Mid(Year(esso), 3, 2)
    MsgBox MonthName(Month(esso)) & annee
End Sub

 

[BOISGONTIER]

Re : nommer champs de cellules

Bonjour,

MsgBox MonthName(Month(esso)) & Right(annee, 2)

ou

MsgBox Format([C2], "mmmmyy")


JB

 

[bansan]

Re : nommer champs de cellules

MErci beaucoup

 

[bansan]

Re : nommer champs de cellules

Je ne comprend pas pourquoi ma macro ne marche pas
alors que je l'ai fait a partir d'une macro automatique que l'ordi a fait lui meme

Sub tester()

Range("F3").Select
ActiveWorkbook.Worksheets("Paiement Immediat").Names.Add Name:="test", _
RefersToR1C1:="='Paiement Immediat'!R3C6"
ActiveWorkbook.Worksheets("Paiement Immediat").Names("test").Comment = ""
End Sub