Discussion :

[Trius]

Bonjour!

J'ai quelques soucis pour générer un rapport...

Je dispose de 2 données sur des produits. Ces données sont contenues dans une table avec une donnée1 et une donnée2. Je souhaiterai calculer le rapport de donnée2/donnée1 et obtenir le minimum sur la période puis le maximum sur la période et enfin la moyenne sur la période. Le tout pour chaque produit différent...

Mon soucis c'est que jusque là pour ce genre de problèmes je copiais le tout dans une feuille Excel et effectuait les calculs ce que je ne dois pas faire là... Il faut que les calculs soient fait sous Access et si possible ne pas générer de nouvelle colonne...

Voila ce que j'ai tenté jusque là:

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
 
 
While i <> 25
 
i = 1
 
SQL1 = "SELECT MIN([Table].[Donnee2]/[Table].[Donnee1]) AS min FROM [Table] WHERE CodeProduit = " & i
SQL2 = "SELECT MAX([Table].[Donnee2]/[Table].[Donnee1]) AS max FROM [Table] WHERE CodeProduit = " & i
SQL3 = "SELECT AVG([Table].[Donnee2]/[Table].[Donnee1]) AS avg FROM [Table] WHERE CodeProduit = " & i
 
 
Cells(i, 1).Value = min
Cells(i, 2).Value = max
Cells(i, 3).Value = avg
 
i=i+1
 
Wend

[gillou13]

Bonjour,

Tu a masquer volontairement l’exécution de tes requêtes?
(set rs = currentDB.openrecordset(SQLx)

[Trius]

Bonjour,

Tu a masquer volontairement l’exécution de tes requêtes?
(set rs = currentDB.openrecordset(SQLx)

Elles sont présentes dans mon code originel mais en mettant en forme j'ai du les supprimer sans faire attention.

[Invité]

Bonjour

Ce serait bien de donner toutes les informations, car une table Access n'a rien à voir avec une feuille Excel, des instructions comme Cell n'existent pas sous Access.

En général on ne stocke pas de calculs, on utiliser les requêtes pour cela.

Merci donc de donner le code complet et plus d'informations.

Philippe

[Trius]

Bonjour

Ce serait bien de donner toutes les informations, car une table Access n'a rien à voir avec une feuille Excel, des instructions comme Cell n'existent pas sous Access.

En général on ne stocke pas de calculs, on utiliser les requêtes pour cela.

Merci donc de donner le code complet et plus d'informations.

Philippe

Bonjour,

En fait les Cells concernent la feuille Excel ou je souhaite voir aboutir les résultats des requêtes Access.

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sub Report()
 
Dim DB As DAO.Database
 
'Open acess database
chemin_BD = "X:\A\B.mdb"
Set DB = DAO.OpenDatabase(chemin_BD, False, False, "MS Access;PWD=X")
 
'Calculation of the start date
xlSheet.Range("F4").Value = d
xlSheet.Range("F3").Value = Format(d - Period, "mm/dd/yyyy")
 
'SQL query
SQL = "SELECT [Table1].[Product ID], [Table1].[Product Name], " & _
    "[Table2].[Donnee1], [Table2].[Donnee2], [Table2].[Date] " & _
    "FROM [Table1], [Table2] WHERE [Table1].[Product ID] = [Table2].[Product ID] AND [Table2].[Date] >=#" & Format(d, "mm/dd/yyyy") & "# " & _
"AND [Table2].[Date] <= #" & Format(d - Period, "mm/dd/yyyy") & "# " & _
        "ORDER BY [Table1].[Product ID] ASC, [Table2].[Date] ASC"
 
Set rec = DB.OpenRecordset(SQL)
 
i=1
 
While xlSheet.Cells(i, 1).Value <> ""
 
'SQL query test
SQL1 = "SELECT MIN([Table2].[Donnee2]/(2 * [Table2].[Donnee1])) AS min FROM [Table2] WHERE [Table1].[Product ID] =" & i
Set rec = DB.OpenRecordset(SQL1)
SQL2 = "SELECT MAX([Table2].[Donnee2]/(2*[Table2].[Donnee1])) AS max FROM [Table] WHERE [Table1].[Product ID] =" & i
Set rec = DB.OpenRecordset(SQL2)
SQL3 = "SELECT AVG([Table2].[Donnee2]/(2*[Table2].[Donnee1])) AS avg FROM [Table] WHERE [Table1].[Product ID] =" & i
Set rec = DB.OpenRecordset(SQL3)
 
rec.MoveLast
rec.MoveFirst
 
If rec.Fields("Product ID").Value = xlSheet.Cells(i,2).Value And rec.Fields("Date").Value = Cells(i, 1).Value Then
 
xlSheet.Cells(i, 8).Value = rec.Fields("min").Value
xlSheet.Cells(i, 9).Value = rec.Fields("max").Value
xlSheet.Cells(i, 10).Value = rec.Fields("avg").Value
 
 
i = i + 1
 
Else
 
rec.Movenext
 
End If
 
Wend
 
End Sub

Voila le code.

Pour la logique donc il s'agit pour un produit i de faire le calclul : (Donnee2/(2*Donnee1)) pour une période donnée (grace a Period) puis de renseigner sur la fiche Excel (xlSheet) le minimum, le maximum et la moyenne de ce calcul avant de passer au produit i+1...

J'espère que je suis assez clair =S