Problème mise à jour date (format

bonjour,

je rencontre un soucis avec la mise à jour d'une date

j'ai la macro suivante:

If (Initial_EndDate <> Project_End_Date) Then
P_page.Cells(Match, 12) = Format(Project_End_Date, "dd/mm/yyyy")
End If

problème si j'indique par exemple 01/06/2021 cela va m'enregistrer 06/01/2021 dans ma base.

où est donc mon erreur?

merci

Bonjour Darkangel,

Place un Format de cellule personnalisée dans la ou les cellule(s) de ta base recevant la date.

Soit mm/jj/aaaa. Ce qui aura pour conséquence d'intervertir Jour et Mois lors de l'affichage.

merci à vous pour votre retour

je vais tenter sachant que dans mon cas et en attendant j'ai procédé comme ceci pour régulariser

et bizarrement cela fonctionne, à ne rien comprendre sachant que la cellule de réception est bien en dd/mm/aaaa

If (Initial_EndDate <> Project_End_Date) Then

P_page.Cells(Match, 12) = Format(Project_End_Date, "dd/mm/yyyy")
P_page.Cells(Match, 12) = Format(P_page.Cells(Match, 12), "dd/mm/yyyy")
End If

Bonjour

Project_End_Date et P_page sont des valeurs venant de textbox via une userform ?

Cordialement

Bonjour Dan

Oui, je vous confirme que cela vient bien d'un textbox via un userform

Cordialement

Bonjour,

Essayez comme ceci

P_page.Cells(Match, 12) = Format(Project_End_Date, "mm/dd/yyyy")
P_page.Cells(Match, 12) = Format(P_page.Cells(Match, 12), "mm/dd/yyyy")

Cordialement

Rechercher des sujets similaires à "probleme mise jour date format"