PB : Export d'une liste de résultat sur excel

Version imprimable

Bonjour,
Voila c'est mon premier post alors essayer d’être indulgent avec moi :)
Je ne suis pas du tout développeur, mais mon n+1 m'a demandé de créer une base de donnée sur Access et de créer les formulaires qui vont avec.
Pour la partie base de donnée je n'ai eu aucun problème mais pour la partie formulaire c'est autre chose...

Voila mon problème est que je voudrais pouvoir faire un export d'une liste de résultat calculer par une requête SQL dynamique vers Excel via un bouton.

La requête :

Code:

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
Private Sub cmd_recherche_Click()
    Dim strTable As String, strField As String, strCriteria As String, strSql As String
    Dim Criter As Variant
 
    strTable = "[" & Me.cbo_table & "]"         ' recupère le nom de la table
    strField = "[" & Me.cbo_champ & "]"         ' recupère le nom du champ
 
    ' compose le critere de recherche
    Select Case Me.opt_Recherche
                  Case 1 ' strictement egal
                       strCriteria = strTable & "." & strField & " Like """ & Me.txt_critere & """"
                  Case 2 ' commence par
                       strCriteria = strTable & "." & strField & " Like """ & Me.txt_critere & "*"""
                  Case 3 ' contient
                       strCriteria = strTable & "." & strField & " Like ""*" & Me.txt_critere & "*"""
                  Case 4 ' fini par
                       strCriteria = strTable & "." & strField & " Like ""*" & Me.txt_critere & """"
    End Select
 
    ' construit la requête sql
    strSql = "SELECT DISTINCTROW " & strTable & ".*"
    strSql = strSql & " FROM " & strTable
    strSql = strSql & " WHERE ((" & strCriteria & "));"
    SQLExportExcel = strSql
 
    Me.lst_resultat.RowSource = strSql  ' affecte sql a lst_Resultat
    Me.lst_resultat.Requery             ' recalcule la liste
End Sub

Pour cela tout vas bien.
Là ou cela me pause problème c'est lorsque j'essaye de faire mon export vers excel.

Voila mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
' EXPORT RESULTAT SUR EXCEL
 
Function export(sql As String)
Dim qd As QueryDef
DoCmd.DeleteObject acQuery, "Export_Excel"
Set qd = CurrentDb.CreateQueryDef("Export_Excel", sql)
DoCmd.OutputTo acOutputQuery, "Export_Excel", acFormatXLS, "c:\Export_Excel.xls"
DoCmd.DeleteObject acQuery, "Export_Excel"
End Function
 
Private Sub ExportExcel_Click()
On Error GoTo Err_Export_Click
export (SQLExportExcel)
Exit_ExportExcel_Click:
Exit Sub
 
Err_ExportExcel_Click:
MsgBox Err.Description
Resume Exit_ExportExcel_Click
End Sub

L'erreur qu'il me fait est :

http://img4.hostingpics.net/pics/180...2014085209.png

Pouvez-vous m'aidez svp?

Merci d'avance.

Bonjour,

Je ne comprends pas du tout la ligne 24 :

Code:

SQLExportExcel = strSql

En effet, tu n'as pas de variable déclarée ayant pour nom SQLExportExcel.
Je vois sinon que tu essayes de faire appel à cette variable sur le clic de ton bouton ExportExcel. Donc tu l'as peut-être déclarée dans l'en-tête de ton module. Si tu dis que tu n'es pas développeur, à mon avis ce n'est pas le cas ;)
Je te propose ça à la place (à condition que ton bouton ExportExcel soit sur le même formulaire que ta liste lst_resultat ;)
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub ExportExcel_Click() On Error GoTo Err_Export_Click export (Me.lst_resultat.RowSource) Exit_ExportExcel_Click: Exit Sub Err_ExportExcel_Click: MsgBox Err.Description Resume Exit_ExportExcel_Click End Sub

Merci de ta réponse,
En effet je ne suis pas développeur mais j'ai suivi quelque cours lors de mon cursus.

Ton code fonctionne très bien je t'en remercie paidge !!!

Voici le code qui fonctionne correctement pour les futurs personnes qui en auront besoin :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 ' EXPORT RESULTAT SUR EXCEL Function export(sql As String) Dim qd As QueryDef Set qd = CurrentDb.CreateQueryDef("Export_Excel", sql) DoCmd.OutputTo acOutputQuery, "Export_Excel", acFormatXLS, "c:\Export_Excel.xls" DoCmd.DeleteObject acQuery, "Export_Excel" End Function Private Sub ExportExcel_Click() On Error GoTo Err_ExportExcel_Click: export (Me.lst_resultat.RowSource) Exit_ExportExcel_Click: Exit Sub Err_ExportExcel_Click: MsgBox Err.Description Resume Exit_ExportExcel_Click End Sub

04/11/2014, 10h42
paidge

Cool :) Dans ce cas n'oublies pas un petit http://www.developpez.net/forums/ima.../poucehaut.gif et surtout de passer ton topic en "Résolu" ;)