Problème rencontré dans l'enregistrement d'une donnée de format date via une macro vba

Question

Bonjour,

Je veux enregistrer une date au format dd/mm/yyyy. Pour ce faire, j'ai utilisé la fonction format avec le paramètre "mm/dd/yyyy" comme suit:

ActiveWorkbook.Sheets("Données").Cells(Indice_Facture, Indice_Section + 1) = Format(Txt_Date.Value, "dd/mm/yyyy")

Pourtant, rien n'y fait, une fois enregistrée, ma date se retrouve avec le format "mm/dd/yyyy".

De plus, par acquis de conscience, j'ai été consulté mes paramètres système. Ils indiquent bien le même format: dd/mm/yyyy

Quelqu'un a-t-il une suggestion ou bien est-ce un bug ?

Answer 1

Bonsoir,

Je viens de suivre tes conseils, au moins pour la première ligne de commande et cela fonctionne.

Je te remercie.

Laurent.

Answer 2

Je te remercie.

J'essaye dans la journée et je te réponds.

Answer 3

Effectivement,Excel se fait un vélo avec la commande Format. Utilise :

ActiveWorkbook.Sheets("Données").Cells(Indice_Facture, Indice_Section + 1) =

CDate(Me.Txt_Date.Value)

ou, si tu veux récupérer du texte :

ActiveWorkbook.Sheets("Données").Cells(Indice_Facture, Indice_Section + 1) = [A1] = "'" & Me.Txt_Date.Value

Daniel

Answer 4

Bonjour,

Merci pour ton intérêt.

Le champ Txt_Date est bien une testbox, elle est pré-remplie avec la date du jour et est non modifiable :

  Date_DuJour = Format(Date, "dd/mm/yyyy")

 [...]

  Load Frm_ChgtEDF

  With Frm_ChgtEDF

    .Txt_Solde.Value = Montant_Solde - Montant_Charges

    .Txt_Date.Value = Date_DuJour

  End With

  Frm_ChgtEDF.Show

Laurent.

Answer 5

Bonjour,

Qu'est-ce que "Txt_Date" ? Un textbox ? Quelle est la valeur saisie ?

Cordialement.

Daniel