Format date inversé

Bonjour le forum,

J'ai un problème de format de date avec du code VBA, la valeur de la date qui s'inscrit dans la cellule est par exemple 04/06/2023 alors que ça devrais être 06/04/2023. J'ai essayé plusieurs méthodes mais le problème persiste toujours. Le mois et le jours s'inverse. J'ai aussi bien vérifié que mon PC et mon Excel sont bien en langue française. Voici les méthodes que j'ai essayé :

Méthode 1 :

Sub Courbes_Bouton1_Cliquer()

Dim currentDate As Date
Dim dayValue As Integer
Dim monthValue As Integer
Dim yearValue As Integer

currentDate = Now
dayValue = Day(currentDate)
monthValue = Month(currentDate)
yearValue = Year(currentDate)

Feuil3.Range("C27").Value = Format(dayValue, "00") & "/" & Format(monthValue, "00") & "/" & Format(yearValue, "0000")

End Sub

Méthode 2 :

Sub Courbes_Bouton1_Cliquer()
Feuil3.Range("C24").Value = Format(DateValue(Now), "dd/mm/yyyy")
End Sub

Méthode 3 :

Sub Courbes_Bouton1_Cliquer()
Feuil3.Range("C24").Value = Format(DateValue(Now))
End Sub

Merci d'avance pour votre aide.

Cordialement.

Bonjour,
Tout simplement !?
Sinon, joins un petit fichier, car c'est un peu confus !...
Cdlt.

FormatDatetime(VBA.Date,vbShortDate)

Salut,

Et tout simplement Feuil3.Range("C27").Value = Format(Date, "Short Date")

Tu dois aussi vérifier la configuration de Windows au niveau des dates ...

Bonjour à vous deux,

Merci pour vos réponses, mais le problème est toujours là... Voici le fichier test :

Cldt.

Re,

Que te renvoie le code dans le volet d'exécution

Re,

Sub Bouton1_Cliquer()
    'Fr-fr
    Feuil1.Range("B3") = FormatDateTime(VBA.Date, vbShortDate)
    'EN-us
    Feuil1.Range("B4") = Format(VBA.Date, "mm/dd/yyyy")
End Sub

Re,

Jean-Paul, ou est-ce que je peux trouver le volet d'exécution? merci.

Je pense que je vais simplement utiliser le code "us" car étant donné que mon Excel inverse le mois et le jours, je tombe donc sur la bonne date :

Cldt,

Menu Affichage Fenêtre d'exécution ou CTRL+G

Bonjour,

Bonjour le fil

Et sinon :

Sub Bouton1_Cliquer()
Feuil1.Range("B3") = CDate(Date)
End Sub

Çale fait?

Bon appétit

Jean-Paul,

J'ai bien la bonne date dans la fenêtre d'exécution pourtant.

Bonjour Cousinhub,

Merci ta méthode fonctionne très bien.