Thread: VBA sur access
View Single Post
  #2  
Old 15-11-2004, 17:24
sim140680's Avatar
sim140680 sim140680 is offline
Droopy style
 
Join Date: 16-11-2002
Age: 43
Posts: 278
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
Reply With Quote