Export d'Access vers Excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Export d'Access vers Excel

harelde

Salut à tous,

Comme d'hab, j'ai des soucis avec les formats de dates ! :pt1cable:
Ca me fait le coup à chaque fois que je développe une macro EXCEL ou ACCESS.

J'ai fait une requete sous Access que j'ai stocké dans un recordset.
Quand j'appuie sur un bouton "Exporter", le contenu de ce recordset est exporter vers EXCEL.
Ca marche pas mal.
J'ai utilisé le code suivant :

xlWs.Cells(2, 1).CopyFromRecordset rst

Là où je deviens chèvre, c'est qu'une fois arrivé dans ma feuille EXCEL, tous mes champs "date" sont en numérique.
Un peu chiant à lire.
Comment faire pour que mes formats de date soient conservés dans EXCEL ?

Merci de votre aide.

Laurent

Publicité

olivthill

Il suffit peut-être, dans la feuille Excel résultante, de sélectionner les cellules qui sont supposées contenir les dates, et de leur donner le format "date".

Si cela ne marche pas, il faudrait, du côté Access, exporter en convertissant d'abord les dates avec l'instruction format().

harelde

Oui, bien sur !
Donner un format date une fois dans EXCEL, c'est simple et sans douleur.
Et si ça ne tenait qu'à moi, je ne me ferais pas chier à modifier mon code pour si peu.

Mais mes clients tirent la langue.
"Oui, c'est simple, mais vous ne pourriez tout de même pas..."
Je peux toujours leur coller deux baffes, mais ça ne résoudrait pas mon problème de format.

Convertir côté Access avec Format() ?
Mais côté Access, mes dates SONT en format Date !
C'est au cours de l'export que je perd ce format !

(Je déteste le lundi !)

Laurent

olivthill

Non, il ne faut pas coller des baffes aux clients qui ... paient.
A la place, si l'on suppose que les dates seront mises dans la colonne B, à partir de B2, voici comment les formatter :

LineCount = rst.RecordCount
For iLine = 1 To LineCount
xlWs.Cells(iLine + 1, 2).NumberFormat = "dd/mm/yyyy"
Next

En prime, il est possible d'ajuster la largeur et la hauteur des colonnes :

xlApp.Selection.CurrentRegion.Columns.AutoFit
xlApp.Selection.CurrentRegion.Rows.AutoFit

Et pourquoi ne pas aussi insérer le titre des colonnes ? Pendant que j'y suis, voici mon exemple en entier :

'Extract data to excel file
Private Sub B_export2excel_Click()

Dim SQL_ligne As String, s As String
'Dim bds As Database, rst As Recordset

' Retrieve data from table
SQL_ligne = "SELECT id, date1, text1" & _
" FROM T_test;"
Set bds = CurrentDb
Set rst = bds.OpenRecordset(SQL_ligne)

' Create an instance of Excel and add a workbook
Set xlApp = CreateObject("Excel.Application" )
Set xlWb = xlApp.Workbooks.Add
Set xlWs = xlWb.Worksheets(1)

' Display Excel and give user control of Excel's lifetime
xlApp.Visible = True
xlApp.UserControl = True

' Copy field names to the first row of the worksheet
fldCount = rst.Fields.Count
For iCol = 1 To fldCount
xlWs.Cells(1, iCol).Value = rst.Fields(iCol - 1).Name
Next

' Copy entire recordset to excel starting from A2
xlWs.Cells(2, 1).CopyFromRecordset rst

' Change the format
LineCount = rst.RecordCount
For iLine = 1 To LineCount
' xlWs.Cells(iLine + 1, 2).NumberFormat = "yyyymmdd"
xlWs.Cells(iLine + 1, 2).NumberFormat = "dd/mm/yyyy"
Next

' Auto-fit the column widths and row heights
xlApp.Selection.CurrentRegion.Columns.AutoFit
xlApp.Selection.CurrentRegion.Rows.AutoFit

' Save an Excel file from MS Access using VBA
xlApp.Application.ActiveWorkbook.SaveAs FileName:="c:\DEV\XL_test.xls"

'Close the recordset
rst.Close

' Quit Excel
xlApp.Quit

End Sub

harelde

Ah ouaip...
Je pense qu'un truc comme ça doit pouvoir fonctionner...

A un détail près :pt1cable:

Je récupère -1 dans rst.RecordCount !
J'avais déjà eu ce problème !

T'as une idée pour récupérer mon recordcount ?

Laurent (vais finir par y arriver !)

harelde

C'est bon...
J'ai réussi.

Merci !

AlainTech

Pas trouvé? Cherche encore!

1- Il est toujours sympa de dire comment on a résolu un problème.

2- Il est encore plus sympa de mettre [Résolu] dans le titre.

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!

RavenShadoW1

Colle nous ton code ici stp comme ca les personnes ayant le meme probleme pourront a leur tour résoudre ce meme probleme

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Export d'Access vers Excel

Sujets relatifs
Insertion d'image dans Access	[résolu] redirection vers une page autre site
Lien vers un fichier	piloter une base access depuis excel
Problème de version d'excel	Link checker me detecte des liens vers des pages en erreur 404
VB sous excel: un tri sur un tri	Appel Procédure Stockée Access depuis WinForm VB .Net en OLEDB
[Visual Basic] Export de BD Access vers fichiers Excel...	Access : export vers une table excel
Plus de sujets relatifs à : Export d'Access vers Excel

Page générée en 0.063 secondes