Discussion :

[aminnio]

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 !

[Invité]

Tu peux effectuer un formatage dans ta requête.

Code SQL :

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

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

[Theze]

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 :

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

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

Hervé.