inserer le mois

Version imprimable

17/03/2009, 19h15
bosk1000

inserer le mois

bonjour a tous
je cherche un code simple mais j'ai pas trouver

comment insérer le mois en cour dans la cellule active

merci d'avance
17/03/2009, 19h22
cb_60

Bonsoir
je pense que cela doit fonctionner...

Code:

=MOIS(AUJOURDHUI())

à mettre dans une cellule
17/03/2009, 19h42
bosk1000
merci pour ton aide

je sais pas si ça viens de 2007, mais j'ai legerement du le modifier
Code:

1 2 ActiveCell.Value = Month(Date)
mais la il me met "3"
qui correspond a mars

comment lui faire inscrire mars et non 3
17/03/2009, 21h40
ucfoutu

Bonsoir,

regarde ce que fait ceci et sers-t-en :

Code:

MsgBox Format("01/" & Month(Date) & "/00", "mmmm")

bonjour bosk1000 cb_60 ucfoutu le forum pour completer
Option Explicit

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Cher()
    Dim LaDate As Date, Lannee As Long
    Dim LeMois As Variant, LeJour As Variant
        LaDate = Date
    Lannee = Year(LaDate)
    LeMois = Month(LaDate)
    LeJour = Day(LaDate)
        LeMois = MonthName(Month(LaDate))
    LeJour = WeekdayName(Weekday(LaDate))
    MsgBox LeMois & vbCrLf & LeJour & vbCrLf & Year(LaDate)
    [a1] = MonthName(Month(LaDate))
End Sub

18/03/2009, 00h10
bosk1000

bonsoir leatitia, ucfoutu
merci pour vos code ils fonctionne tous les 2

leatitia, comme d'habitude je reste impressionné devant ce que tu fais

encore merci a vous tous

Fuseau horaire GMT +2. Il est actuellement 09h02.