Bonjour,

j'ai trouver ce code pour pouvoir réaliser un export excel du résultat dans formulaire basé sur une requête.
Quand j'appuyais sur le bouton, j'avais bien la fenêtre d'enregistrement qui s'ouvrait mais aucun fichier ne s'enregistrait et maintenant j'ai une erreur d'exécution '3012'

Quelqu'un peut m'aider, je débute

merci

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
25
26
27
28
29
Private Sub Btn_export_Click()
 
Dim db As Database
Dim qd As QueryDef
 
Set db = CurrentDb()
Set qd = db.CreateQueryDef("Resultat_req", strSQL)
 
qd.Close
 
On Error GoTo Export_excel_Err
 
 
    DoCmd.OutputTo acQuery, "Resultat_req", "MicrosoftExcelBiff8(*.xls)", "", True, "", 0
 
 
    DoCmd.DeleteObject acQuery, "Resultat_req"
 
Export_excel_Exit:
 
Exit Sub
 
Export_excel_Err:
    DoCmd.DeleteObject acQuery, "Resultat_req"
    Resume Export_excel_Exit
 
 
 
End Sub