Discussion :

[bosk1000]

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

[cb_60]

Bonsoir
je pense que cela doit fonctionner...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=MOIS(AUJOURDHUI())

à mettre dans une cellule

[bosk1000]

merci pour ton aide

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ActiveCell.Value = Month(Date)

mais la il me met "3"
qui correspond a mars

comment lui faire inscrire mars et non 3

[ucfoutu]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[laetitia]

bonjour bosk1000 cb_60 ucfoutu le forum pour completer
Option Explicit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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