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 : Sélectionner tout - Visualiser dans une fenêtre à part
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