Probleme dans le format date

Bonjour

J'ai un petit probleme dans le format date qui est enregistré dans ma base de données grace a un formulaire

En effet meme si le code indique bien d'utiliser la fonction NOW() l'exportation vers la BD donne une inversion des mois et des jours

ainsi je saisi le 12-04-2024 et dans la BD j'obtiens le 04-12-2024

Voir image et code

Merci du coup de pouce

RP

Sub Submit()
    Dim sh As Worksheet
    Dim iRow As Long

    Set sh = ThisWorkbook.Sheets("Database")
    iRow = [Counta(Database!A:A)] + 1
    With sh
        .Cells(iRow, 1) = iRow - 1
        .Cells(iRow, 2) = frmForm.txtID.Value
        .Cells(iRow, 3) = frmForm.CmbCompte.Value
        .Cells(iRow, 4) = IIf(frmForm.optsortie.Value = True, "Sortie", "Entrée")
        .Cells(iRow, 5) = frmForm.cmbDepartment.Value
        .Cells(iRow, 6) = frmForm.cmb_Sous_Cat.Value
        .Cells(iRow, 7) = frmForm.cmb_Fournisseur.Value
        .Cells(iRow, 8) = frmForm.TxtMontant.Value
        .Cells(iRow, 9) = [Text(Now(), "DD-MM-YYYY HH:MM:SS")]
    End With
    Call MAJTCD
End Sub

Bonjour,

le VBA traite ça au format US, donc mois avant jour.

En changeant le format de la cellule, ça a un effet ?

Ou en remplaçant "DD-MM-YYYY HH:MM:SS" par "MM-DD-YYYY HH:MM:SS" ?

Merci le probleme est reglé !!

De rien, laquelle des 2 a résolu le souci ?

en remplaçant dans le code VBA

"DD-MM-YYYY HH:MM:SS" par "MM-DD-YYYY HH:MM:SS"

encore une fois merci !!