Format Date "mm"

Bonjour,

je cherche à afficher le numéro de mois passé mais avec le 0, je veux que la macro m'affiche : 03 (pour le mois précédent).

J'ai essayé ce code ci-dessous mais il m'affiche le numéro du mois mais sans le 0 c'est à dire juste le 3

Range("B5").Value = Format(Date, "mm") - 1

Avez-vous une idée comment afficher le 0 pour le mois passé ?

Merci de votre aide

Bonjour,

En changeant le format personnalisé en 00?

Christelle

Hello,

Avec ça ?

J'ai l'impression que c'est le format de la cellule qui pose problème, il faudra que tu le mette à la main en "mm"

x = Format(Date, "mm") - 1
If x < 10 Then
    Range("G6") = "0" & x
Else
    Range("G6") = x
End If

@+

@Teten1 le problème est que le format personalisé ne fonctionne pas pour ma macro complète qui est sur une seule cellule :

Sheets("Consolidé").Range("L3").Value = "Écart prévisionnel " & Year(Date) & "-" & Format(Date, "mm") & "N" & " / " & Year(Date) & "-" & Format(Date, "mm") - 1 & "N"

ceci m'affiche: Écart prévisionnel 2023-04N / 2023-3N

je veux donc afficher le 0 pour le mois de mars, Merci

Hello,

Essaie ça

 Sheets("Consolidé").Range("L3").Value = "Écart prévisionnel " & Year(Date) & "-" & Format(Date, "mm") & "N" & " / " & Year(Date) & "-" & Format(CDate(Year(Date) & "/" & Month(Date) - 1 & "/" & Day(Date)), "mm") & "N"

@+

@BAROUTE78 Merci beaucoup, ça fonctionne parfaitement

Bonjour,
Une proposition.
Cdlt.

Sub nassi123()
Dim dt As String, dt2 As String
    dt = Format(Date, "yyyy-mm") & "N"
    dt2 = Format(DateAdd("m", -1, Date), "yyyy-mm") & "N"
    Range("B5") = "Ecart prévisionnel " & dt & " / " & dt2
End Sub