Erreur Export resultat SQL(Dates) -> Fichier Excel

Bonjour,
J'ai une erreur lors de l'export du resultat de ma requete SQL vers un nouveau fichier SQL.
Toutes les colonnes de ce resultats sont extraites d'une façon clean, sauf pour 2 champs qui sont des dates.

Voila en gros la fraction du code de l'export (proposé par rdurupt) :

Code:

---

1 2 3 4 5 6 7 8 9

For i = 1 To rst.Fields.Count wrk.Sheets(1).Cells(1, i).Value = rst.Fields(i - 1).Name Next i 'Ajout des données à partir de A2 wrk.Sheets(1).Range("A2").CopyFromRecordset rst 'Enregistrement en lecture seule wrk.SaveAs rep & "Test.xlsx", XlFileFormat.xlWorkbookNormal, , , True MsgBox "Report réussi, verifiez " & rep & "Test.xls", vbInformation

---

En sachant que sur ma table, le format des dates est comme suit : yyyy-mm-dd
Mais lors de l'extraction, il m'affiche des dates du genre : 41346.

Je voudrais savoir si c'est possible d'avoir le resultat de la requete SQL, sans erreur.
J'ai un peu cherché sur le net, j'ai trouvé qu'il faudrait forcer le format date des cellules Excel.


Si quelqu'un à une idée de comment formaliser ceci en code VBA, de sorte à ce que les lignes des 2 colonnes dont le nom est [End Date] et [Start Date] soient du format : yyyy-mm-dd .

Merci !

Tu peux effectuer un formatage dans ta requête.

Code:

---

SELECT Format(Table1.d,"dd/mm/yyyy") AS Expr1 FROM Table1;

---

Bonjour,

Le plus simple c'est de définir le format une fois l'importation réalisée. Admettons que les dates soient en colonnes E et F, à la fin de ton code tu peux mettre :

Code:

---

1 2	Columns("E:F").NumberFormat = "yyyy-mm-dd"

---

Hervé.