Discussion :

[idhmida]

Bonjour,

J'ai un petit souci pour obtenir le mois courant en lettres.
Le code que j'écris est le suivant :

Code :

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

1
2
3
 
mois = Month(Now())
feuille.Range("A1").Value = mois

il m'affiche en cellule A1 : 12

si j'écris

Code :

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

1
2
3
 
mois = Month(Now())
feuille.Range("A1").Value = Format(mois, "mmmm")

il m'affiche : janvier

Je n'arrive pas à comprendre comment le chiffre "12" peut être converti en "janvier" quand je lui dis de changer de format?

Quelqu'un pourrait m'éclaircir sur ce point svp?
Merci d'avance,

IDH

[Marc-L]

Bonjour,

c'est normal car la variable Mois n'est pas une date !!

Format(Now, "mmmm") …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Invité]

Code :

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

1
2
3
4
5
6
 Sub test()
 Dim Mois()
 Mois = Array("", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
 Feuil1.Range("A1").Value = Mois(Month(Now()))
 
 End Sub