Pb de format de date

Résolu
Bonjour à tous,

J'ai un problème de format de date.
Je voudrais afficher le dernier jour du mois en cours, avec le format mm/dd/yyyy.

J'ai tenté plusieurs choses, mais ma msg box me retourne toujours la date avec le format dd/mm/yyyy.
Si quelqu'un a une idée, merci d'avance.


Dim Mois1 As Date
Mois1 = DateAdd("d", -1, CDate("1/" & Format(DateAdd("m", 1, Date), "mm/yyyy")))
Mois1 = Format(Mois1, "mm/d/yyyy")
MsgBox (Mois1)

1 réponse

  1. Modérateur
    Bonjour,

    Dim Mois1 As Date
    Mois1 = DateAdd("d", -1, CDate("1/" & Format(DateAdd("m", 1, Date), "mm/yyyy")))
    Mois1_formate = Format(CDate(Mois1), "mm/d/yyyy")
    MsgBox (Mois1_formate)
    

    1. Merci, vraiment.
      Je bataille là dessus depuis vendredi midi.
      Merci!!
    2. Au final c'était un pb de déclaration de données... je suis dégoûtée d'avoir perdu autant de temps sur ça!