format date heure export SQL vers Excel
Bonjour Tout le monde
J'exporte en vbs le resultat d'une requete SQL vers Excel.
Un des champs de ma table est un champ avec un format
date/heure et dans mon fichier excel ce champs est sous format
numerique.
Comment je peux faire pour avoir ce champs en format date/heure dans mon fichier Excel svp?
Dois-je faire une fonction dans le code pour faire la conversion?
voila mon bout de code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| 'ouverture du recordset
set rs = sConn.Execute(strSQL)
'tant qu'on atteint pas le dernier enregistrement
do while not rs.EOF
feuille.Range("A" & ligne & ""). Value = rs.fields(0)
feuille.Range("B" & ligne & "").Value = rs.fields(1) 'mon champs date/heure
feuille.Range("C" & ligne & "").Value = rs.fields(2)
feuille.Range("D" & ligne & "").Value = rs.fields(3)
feuille.Range("E" & ligne & "").Value = rs.fields(4)
feuille.Range("F" & ligne & "").Value = rs.fields(5)
feuille.Range("G" & ligne & "").Value = rs.fields(6)
ligne = ligne + 1
rs.MoveNext
loop
rs.Close
sConn.Close |
Merci pour votre aide
Bon week
