Problème date (bis)

Bonjour le Forum,

Je continue à avoir des erreurs de format de date. J'ai exploré le test que bbil m'avait fait faire en octobre :

Code:

---

1 2 3 4 5 6 7 8 9

Dim iAn as integer Dim iMois As integer Dim iJour as integer iAn = 2011 iMois = 10 iJour = 1 Lab_Date.Caption = dateSerial(iAn,iMois,iJour) vCellule.Offset(0, 7) = Lab_Date.Caption

---

et constaté que :
- dans une cellule formatée date j'avais "10/01/2011"
- dans une cellule formatée standard j'avais "01/10/2011"
- En remplaçant l'étiquette par un TextBox les 2 donnaient "01/10/2011"
J'ai donc géré mes dates uniquement avec des textbox, des cellules formatées date dans la table, forcé le choix des dates avec Calendar et chargé variables et cellule sans ajout d'aucune fonction.
Et de nouveau je me retrouve avec des dates mm/jj/aaaa quand le jour est inférieur au mois :
Choix de la date :
(Explicit + Public vDate as date dans module)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub TxtDateLivPrévue_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Calendrier TxtDateLivPrévue = vDate End Sub   Sub Calendrier() UsfCalendrier.Calendar1.Value = Now UsfCalendrier.Show End Sub   'Dans UsfCalendrier Private Sub Calendar1_Click() vDate = Calendar1.Value Unload Me End Sub

---

Dans le cas présent la date sélectionnée "01/03/2012" est correcte dans TxtDateLivPrévue
Ensuite j'enregistre dans une colonne formatée "jj/mm/aaaa"

Code:

---

1 2	vCellule.Offset(0, 18) = TxtDateLivPrévue.Text

---

et dans la cellule j'ai "03/01/2012"
Les paramètres régionnaux : "jj/mm/aaaa"

Avec mes remerciements anticipés
Daniel

Bonjour,

As-tu essayé

Code:

---

vCellule.Offset(0, 18) = CDate(TxtDateLivPrévue.Text)

---

:question:

Merci AlainTech,

Mais j'ai attendu de tester sur plusieurs machines pour m'assurer de la fiabilité du code pour te répondre. C'est OK ! CDate a bien résolu mon problème.

Cordialement
Daniel