Salut
Avec ce code tu peux exporter une table ACCESS en ficher EXCEL, c'est assez "bateau" mais ça marche bien (reste à vérifier, j'ai fait quelques modif à la volée):
Private Sub test_Click()
Dim db As Database
Dim qdf As QueryDef
Dim chSQL As String
Dim Name As String
Dim paramDate As Date
Name = "TEST"
Set db = CurrentDb
db.QueryDefs.Refresh
For Each qdf In db.QueryDefs
If qdf.Name = [Name] Then
db.QueryDefs.Delete qdf.[Name]
End If
Next qdf
chSQL = "SELECT [Requête].Champ1, [Requête].champ2, .... FROM [Requête] WHERE ..... ;"
Set qdf = db.CreateQueryDef([Name], chSQL)
If DCount("*", [Name]) > 0 Then
'On execute la Requête
DoCmd.OpenQuery [Name], acNormal, acEdit
'On exporte vers le fichier
DoCmd.OutputTo acOutputQuery, [Name], acFormatXLS, Path & NomFich & ".xls", False
Else
MsgBox "Il n'y a pas de donnée pour cette requête", vbInformation + vbOKOnly, "Information"
End If
End Sub
__________________
Il est plus facile de désintégrer un atome qu'un préjugé. Albert Einstein
|