Discussion :

[rouchi]

Bonjour @ tous,

Tout d'abord, je me suis inspiré de ce post pour créer mon export :
https://www.developpez.net/forums/d1...re-vers-excel/

Donc, je souhaite exporter les données résultants de trois filtres sur mon formulaire ce qui génère une liste de donnée, et c'est cette liste que je souhaite exporter vers excel.

Du coup je l'ai rapidement adapté à mes besoins :

Mon problème, c'est que dès le début j'ai une erreur : "erreur de compilation : Type défini par l'utilisateur non défini"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Commande15_Click()
 
Dim ExtractQuery As QueryDef -->> l'erreur commence ici
Dim xsql, cond As String
 
On Error Resume Next
CurrentDb.QueryDefs.Delete ("req-RMCbis")
 
On Error GoTo Commande15_Click
 
xsql = "select * from (" & Replace(Me.Form.RecordSource, ";", "") & ")" & IIf(Me.Filter = "", "", " where " & Me.Filter) & ";"
 
Set ExtractQuery = CurrentDb.CreateQueryDef("req-RMCbis", xsql)
 
DoCmd.OutputTo acOutputQuery, "req-RMCbis", , "req-RMCbis.xlsx", True
 
Exit_Commande15_Click:
    Exit Sub
 
Export_Commande15_Click:
    MsgBox Err.Description
    Resume Exit_Commande15_Click
 
End Sub

[rouchi]

Bon,

avec un peu de bidouille sur le code j'ai réussi à sortir mon export.
J'ai bien mes filtres qui sont pris en compte, mais j'ai tous les champs de ma requête qui sort et non que ceux qui se trouvent uniquement dans mon formulaire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande15_Click()
 
Dim xsql, cond As String
 
 
xsql = "select * from (" & Replace(Me.Form.RecordSource, ";", "") & ")" & IIf(Me.Filter = "", "", " where " & Me.Filter) & ";"
 
 
DoCmd.TransferSpreadsheet acExport, , "req-RMC", "req-RMCbis2.xlsx", True
 
 
End Sub

[accessisgood]

Bonjour,

essaie

Code :

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

1
2
DoCmd.OutputTo acOutputForm, "frmResults", acFormatXLS, _
    "C:\SomeFolder\ExportedResults.xls"

ou la procédure dans ce lien

[rouchi]

Géniallllll !!!

Merci cela fonctionne très bien !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande15_Click()
 
Dim xsql As String
 
 
xsql = "select * from (" & Replace(Me.Form.RecordSource, ";", "") & ")" & IIf(Me.Filter = "", "", " where " & Me.Filter) & ";"
 
 
DoCmd.OutputTo acOutputForm, "f_RMC_SF", acFormatXLS, "ExportedResults.xls"
 
 
End Sub