Discussion :

[Chikatilo]

Bonjour ,
je dois exporter une requete vers un fichier Excel,
Or cette requette est parametree via un formulaire (je rentre ddes valeurs pour pouvoir afficher les resultats qui me convient).
en mettant mon code , il me signal qu'il y a trop peu de parametre atendu.
en faisant reference au parametre que je fais entrer dans mon formulaire.
quelqu'un peut m'apporter son aide ?
En vous remerciant.

[Jean-Philippe André]

salut,
peux-tu nous donner le code que tu utilises actuellement stp ?

[Chikatilo]

Voila mon Code , j'espere que j'aurais une solution a mon soucis

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 Commande9_Click()
Dim rs As Recordset
Dim appexcel As Excel.Application
Dim wbexcel As Excel.Workbook
Dim NumPréc As Integer
Dim F As Integer
Dim L As Integer
Set rs = CurrentDb.OpenRecordset("FINAL")
Set appexcel = CreateObject("Excel.Application")
appexcel.Visible = True
Set wbexcel = appexcel.Workbooks.Open(CurrentProject.Path & "\Etat.xls") 'dans le même rép que la db
Do Until rs.EOF
 
 
    appexcel.Cells(L, 1) = rs("CD_ENT")
    appexcel.Cells(L, 2) = rs("LB_ENT")
    appexcel.Cells(L, 4) = rs("Nb Audits")
    appexcel.Cells(L, 5) = rs("Ano")
    appexcel.Cells(L, 6) = rs("Audités")
    appexcel.Cells(L, 7) = rs("Tx Colis")
    appexcel.Cells(L, 8) = rs("Ecart FIn")
    appexcel.Cells(L, 9) = rs("PCI")
    appexcel.Cells(L, 10) = rs("Tx Financier")
    appexcel.Cells(L, 11) = rs("Ecart Moyen")
    L = L + 2
rs.MoveNext
Loop
End Sub

[Jean-Philippe André]

ok, et quel est le code SQL de la requête FINAL stp ?

[Chikatilo]

Le voila ; y aurait-il une solution ?

Code :

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

1
2
3
4
5
 
SELECT DATA.N°Audit, DATA.UE, DATA.CD_ENT, DATA.LB_ENT, DATA.MAG, DATA.Ano, DATA.Audités, DATA.[Tx Serv], DATA.[Ecart Fin], DATA.PCI, DATA.[Tx Fin]
FROM ACTIVITES INNER JOIN ((RESEAUX INNER JOIN MAGASINS ON RESEAUX.LB_RESEAUX = MAGASINS.LB_RESEAUX) INNER JOIN (ENTREPOTS INNER JOIN DATA ON ENTREPOTS.CD_ENT = DATA.CD_ENT) ON MAGASINS.Mag = DATA.MAG) ON ACTIVITES.LB_ACTIVITES = ENTREPOTS.LB_ACTIVITES
WHERE (((DATA.Date) Between [Formulaires]![TEST]![DATE_DEB] And [Formulaires]![TEST]![DATE_FIN]) AND ((RESEAUX.LB_RESEAUX)=[Formulaires]![TEST]![RESEAUX]) AND ((ACTIVITES.LB_ACTIVITES)=[Formulaires]![TEST]![ACTIVITES]))
GROUP BY DATA.N°Audit, DATA.UE, DATA.CD_ENT, DATA.LB_ENT, DATA.MAG, DATA.Ano, DATA.Audités, DATA.[Tx Serv], DATA.[Ecart Fin], DATA.PCI, DATA.[Tx Fin];

[Chikatilo]

J'arrive toujours pas , et j'ais toujours le meme soucis