Format date le retour

Bonjour,

je reviens vers vous pour un projet que j'avais laissé de côté quelques temps.

j'ai 2 textbox en format date qui dont les codes sont les suivants (TB7 et TB8) :

Option Explicit

Dim tb7_OK As Boolean

Dim tb8_OK As Boolean

-----------

Private Sub tb7_Change()

If tb7_OK = False Then

Dim valeur As Byte

valeur = Len(TB7.Value)

If valeur = 2 Or valeur = 5 Then TB7.Value = TB7.Value & "/"

If valeur = 10 And tb7_OK = False Then

tb7_OK = True

TB7.Value = Format(TB7.Value, "DD MMMM YYYY")

End If

End If

End Sub

les dates reportées sur Excel, ne sont pas au format français le 12/04/2020 devient le 04/12/2020. comment faire? j'ai cherché un peu partout sans trouver ce qui convient. qui peut m'aider ?

Merci pour votre coup de main

Bonsoir,

Essayez ceci, mais j'ai également des soucis avec ça !

Range("A1") = CDate(Tb7. VALUE)

Ensuite c'est au niveau de la feuille qu'il faut choisir le format voulu.

@ bientôt

LouReeD