Discussion :

[danisoaz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AlainTech]

Bonjour,

As-tu essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[danisoaz]

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