Bonjour à tous
j'execute une requete qui va me chercher des données dans ma base access et qui doit les afficher dans une cellule
tout se passe bien apart que ma cellule n'affiche pas le resultat merci à vous d'avance
voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Set db1 = DAO.OpenDatabase("m:\PublicLCommun\SUIVI DE PRODUCTION\Stage Yassine\Suivie de Production.mdb", False, False) strSQL1 = "SELECT Sum(Brûlure) AS [SommeDeBrûlure] FROM Tableau Where (Equipe LIKE 'AM') and date Like " & Feuil4.Range("B3") Set rs1 = db1.OpenRecordset(strSQL1, DAO.dbOpenSnapshot) Feuil2.Range("C10") = Round(rs1.Fields("[SommeDeBrûlure]"), 2)
Partager