Bonjour,

me voici avec un nouveau dilemme..

J'ai une requête sql (passtrough query) dans ma base de donnée.
J'aimerai y mettre un paramètre, mais je n'y arrive pas.

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
Sub test()
 
Dim db              As DAO.Database
Dim qry             As DAO.QueryDef
Dim rs               As DAO.Recordset
Dim strSQL         As String
 
Set db = CurrentDb
Set qry = db.CreateQueryDef("")
 
strSQL = "SELECT * FROM PassThroughQuery"
strSQL = Replace(strSQL, "<PARAMETRE>", "123")
 
qry.sql = strSQL
 
Set rs = qry.OpenRecordset()
 
xlBook.Sheets("Sheet1).Range("A1").CopyFromRecordset rs
Le problème, c'est qu'il ne me remplace pas <PARAMETRE> dans ma requete par "123"

Du coup, je n'ai aucun résultat dans ma feuille EXCEL, puisqu'il lui manque un argument (123) (il n'a pas changer ma requete SQL).

Une aide ?