Récupérer mois en cours en lettres

Bonjour,

Je recherche comment récupérer le mois en cours en toute lettres en VBA mais je n'y parviens pas.

Merci d'avance à ceux qui m'apporterons leur aide !

Bonjour,

= Format(Now,"mmmm")

Bonjour,

Avec une date valide en A1 :

=TEXTE(A1;"mmmm")

Cdlt.

Bonjour,

Voici un code exemple avec un tableau déclaré manuellement dans le code:

Sub test()
mois = Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "août", "septembre", "octobre", "novembre", "décembre")
madate = "17/06/2018"
monMois = mois(Month(madate) - 1)
MsgBox monMois
End Sub

j'ai mis month(madate) - 1) car un tableau initialisé avec Array commence à 0, il varie de la ligne 0 à 11 ici.

Bonjour

A voir

Sub TestMois()
    MsgBox Application.Proper(MonthName(Month(DateSerial(Year(Now), Month(Now), Day(Now)))))
End Sub

A+

Maurice

Merci ça fonctionne très bien, est-il possible de récupérer la date du mois suivant ?

Avec cette formule ci : = Format(Now,"mmmm")

Bonjour,

Sub NextMonthName()

    Dim MoisProchain As String

    MoisProchain = MonthName(Month(DateAdd("m", 1, Date)))

    MsgBox MoisProchain

End Sub

salut

sinon tu a

monthName(month(date)) 

qui retourne le mois en cours en toute lettre : "juillet"

le mois prochain en toute lettre :

MonthName(Month(Date) + 1) 

' qui retourne aout