Discussion :

[Pedrito95]

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 :

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
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

[SfJ5Rpw8]

essai d'ajouter la ligne suivante dans ta boucle :

Code :

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

feuille.Range("B" & ligne ).NumberFormat = "d/m/yy h:mm;@"

[Pedrito95]

Merci bbil ca fonctionne nickel

Bon week à toi