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