VBA passer une valeur à un controle Dtpicker
Bonjour a tous,
J'utilise un formulaire pour enregistrer des données dans un fichier excel et notamment des dates via des contrôles dtpicker.
Ces données sont stockées dans un classeur fermé situé sur un serveur de partage.
(connexion à la feuille de données par ADODB=> pas de pb jusque là)
Mon problème est le suivant :
Je souhaite afficher dans mon formulaire les données d'un enregistrement précis.
j'ai donc un recordset qui contient les données (jusque là ça va aussi)
par contre je n'arrive pas à afficher les données de date dans mes dtpickers du formulaire (message une erreur est survenue loirs de l'appel au controle Windows Date and Time Picker)
J'ai pourtant, afin d'etre dur de passer une date converti les données contenues dans mon recordset :
Code:
1
2
3
4
5
6
7
8
9
| Set rst = New ADODB.Recordset
rst.Open texteSQL, Cn, adOpenStatic
txt_sge.Value = rst.Fields("sge")
DT_pose_prevue = DateSerial(Year(rst.Fields(3)), Month(rst.Fields(3)), Day(rst.Fields(3)))
DT_retour_engagement.Value = DateDt(rst.Fields(4))
DT_pose_realisee.Value = DateDt(rst.Fields(5))
DT_depose_prevue.Value = DateDt(rst.Fields(6))
DT_relance.Value = DateDt(rst.Fields(7))
DT_depose_realisee.Value = DateDt(rst.Fields(8)) |
dans la fenetre exécution rst.fields(3) contient bien une date
Bref si quelqu’un à des sugestions.
je vous remercie
Christophe
