Requête SQL dans macro excem

Salut tout le monde
Je suis débutante dans la programmation

je souhaite dans mon code récupérer une table de ma bdd access afin de faire une somme sur un de ses champs. Mais je souhaiterais ajouter une condition dans la requête:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Macro1() ' ' Macro1 Macro ' Dim enregis As DAO.Recordset, varSQL As DAO.Recordset, baseAccess As Database, feuille As Excel.Worksheet Dim i As Integer     Set feuille = ThisWorkbook.Worksheets("Feuil1") 'On établi la connection avec la base Access Set baseAccess = DBEngine.OpenDatabase("C:\Users\Admin\Documents\Base de données1.accdb") Set enregis = baseAccess.OpenRecordset("Select * FROM Liste_clients") Code_Post = 75013 Set varSQL = baseAccess.OpenRecordset("SELECT * FROM Liste_clients WHERE Code_Postal = Code_Post")

---

Quand je remplace directement Code_Post par 75013 ça marche, mais ça beugue quand je laisse la variable.
J'ai cherché partout dans le forum je n'ai pas vu de posts répondant à ma question.
Des idées?

Merci

Bonjour,
Quand tu utilises DAO tu charge en mémoire toute l'application Access!
Je t'invite ardemment de choisir DAO!

Code:

---

1 2	Code_Post = 75013 "SELECT * FROM Liste_clients WHERE Code_Postal =" & Code_Post

---

Si tu veux faire une somme pourquoi pas la faire dans ta requête?

Code:

---

Select Sum(champ1),Champ2 from Liste_clients WHERE Code_Postal = 75013 group by champ2

---