Problème fonction MonthDate pour mois précédent en Janvier

Question

Bonjour, je cherche à renvoyer le mois précédent par rapport à la date actuelle mais une fois arrivé en janvier, ma commande qui de base est :

mois = MonthName(Month(Date) - 1) & " " & Year(Date)

Plante car ne peut, je pense, renvoyer sur Decembre car le 0 ne correspond à aucun mois.

J'ai donc essayé de le remplacer par une boucle IF :

If MonthName(Month(Date)) = January Then
mois = MonthName(12) & " " & Year(Date - 1)
Else
mois = MonthName(Month(Date) - 1) & " " & Year(Date)
End If

Mais cela ne fonctionne pas.

Quelqu'un aurait-il une solution svp ?

Pedro22 · Answer

A tenter : mois = MonthName(Month(DateAdd("m", -1, Date))) & " " & Year(Date) Pour l'année, ne serait-ce pas aussi l'année précédente ? Si c'est le cas, il faudrait mettre Year(DateAdd("m", -1, Date)) Le tout est simplifiable : mois = Format(DateAdd("m", -1, Date), "mmmm yyyy")...