Bonjour à tous

j'ai quelque requete à executer sous excel, mais j'arrive pas a visualisé le resultat puisque ça me renvoi NULL sachant que ma base de données est sous access voici mon code

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
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim myCount As Integer
Dim rsCount As Integer
 
Set db = DAO.OpenDatabase("m:\PublicLCommun\SUIVI DE PRODUCTION\Stage Yassine\Suivie de Production.mdb", False, False)
   strSQL = "SELECT Brûlure) AS [SommeDeBrûlure],Sum(Givrage) AS [SommeDeGivrage],Sum([Ligne de soudure]) AS [SommeDeLigne de soudure],Sum(Tache) AS [SommeDeTache],Sum([Manque matière]) AS [SommeDeManque matière],Sum(Arrachement) AS [SommeDeArrachement],Sum(Bavure) AS [SommeDeBavure],Sum(Périphérique) AS [SommeDePériphérique],Sum(Retassure) AS [SommeDeRetassure],Sum([Choc / Rayure]) AS [SommeDeChoc / Rayure],Sum([Démarrage / Redémarrage]) AS [SommeDeDémarrage / Redémarrage],Sum(Composant) AS [SommeDeComposant],Sum(Réappairage) AS [SommeDeRéappairage],Avg(Qualité) AS [SommeDeQualité] FROM Tableau Where (Equipe LIKE 'AM') and date Like " & Feuil4.Range("B3")
   Set rs = db.OpenRecordset(strSQL, DAO.dbOpenSnapshot)
 
      Feuil2.Range("C10").Value = rs.Fields(0).Value
      Feuil2.Range("C11") = Round(rs.Fields("[SommeDeGivrage]"), 2)
      Feuil2.Range("C12") = Round(rs.Fields("[SommeDeLigne de soudure]"), 2)
      Feuil2.Range("C13") = Round(rs.Fields("[SommeDeTache]"), 2)
      Feuil2.Range("C14") = Round(rs.Fields("[SommeDeManque matière]"), 2)
      Feuil2.Range("C15") = Round(rs.Fields("[SommeDeArrachement]"), 2)
      Feuil2.Range("C16") = Round(rs.Fields("[SommeDeBavure]"), 2)
      Feuil2.Range("C17") = Round(rs.Fields("[SommeDePériphérique]"), 2)
      Feuil2.Range("C18") = Round(rs.Fields("[SommeDeRetassure]"), 2)
      Feuil2.Range("C19") = Round(rs.Fields("[SommeDeChoc / Rayure]"), 2)
      Feuil2.Range("C20") = Round(rs.Fields("[SommeDeDémarrage / Redémarrage]"), 2)
      Feuil2.Range("C21") = Round(rs.Fields("[SommeDeComposant]"), 2)
      Feuil2.Range("C22") = Round(rs.Fields("[SommeDeRéappairage]"), 2)
      Feuil2.Range("C23") = Round(rs.Fields("[SommeDeQualité]"), 2)
rs.MoveLast
myCount = rs.RecordCount
rs.MoveFirst
 
'close recordset
rs.Close
Set db = Nothing
Question :

1-Mon code est il ecrit correctement?
2-Ma requete SQL est elle just?
3-Mon probleme d'affichage à quoi il est du?

Mike merci de ta remarque je l'avais fais sur mon code
Merci à vous d'avance