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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 !