Exécuter une requête de sélection paramétrée depuis VBA

J'ai une requête de sélection à disposition avec un paramètre. Comment l'utiliser dans un module VBA en passant un paramètre à partir du code ?

Le plus approchant sur le forum est du type:

Code:

---

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

Dim db As Database Dim qdf As QueryDef Dim rcs As Recordset   Set db = CurrentDb   Set qdf = db.QueryDefs("MaRequete")   With qdf .Parameters("MonParamètre") = MaVariable .Execute End With

---

mais il ne concerne que les requêtes d'action et se plante sur le ".execute" avec une requête de sélection.
Avez vous la solution?
Merci pour l'aide

On peut pas exécuter une requête de sélection, ça ne marche que pour les requêtes d'insertion, de modif ou de suppression d'enregistrement (pour la création ou la suppession de table je ne sais pas), par contre on peut s'en servir comme source de données.

Code:

---

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

Dim db As dao.Database Dim qdf As dao.QueryDef Dim rcs As dao.Recordset   Set db = CurrentDb   Set qdf = db.QueryDefs("MaRequete") qdf.Parameters("MonParamètre") = MaVariable set rst=qdf.openrecordset()   ' Ici du code qui exploite le recordset   rst.close:set rst=nothing set qdf=nothing set db=nothing

---

Ainsi, il ne me reste plus qu'à envoyer le résultat du recordset dans une fenêtre de type feuille de données pour obtenir le résultat escompté. C'est plus propre que l'artifice trouvé sur le Forum que j'utilise (cf code plus bas )

Problème, je ne sais pas comment faire. Peux tu m'aider ?

Pour info seulement voici le code que je souhaite remplacer:

Code:

---

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

Dim qdf As QueryDef   '-- suppression de l'ancienne requête adaptée s'il y a lieu For Each qd In CurrentDb.QueryDefs If qd.Name = "MaRequêteAdaptée" Then DoCmd.DeleteObject acQuery, MaRequêteAdaptée Exit For End If Next   '-- création de la requête adaptée Set qdf = CurrentDb.QueryDefs("MaRequête") qdf.SQL = Replace(qdf.SQL, "[LeParamètre]", "'" & MaVariable & "'") Set qdf = CurrentDb.CreateQueryDef(MaRequêteAdaptée ,qdf.SQL) DoCmd.OpenQuery MaRequêteAdaptée

---

Non pour cet usage précis je ne pense pas qu'on puisse utiliser ce que je t'ai proposé.

La seule variation que je peux te suggérer c'est de ne pas supprimer la requête "MaRequêteAdaptée" mais simplement de remplacer son SQL.

Code:

---

1 2 3

Set qdf = CurrentDb.QueryDefs("MaRequête") CurrentDb.QueryDefsf(MaRequêteAdaptée).sql=Replace(qdf.SQL, "[LeParamètre]", "'" & MaVariable & "'") DoCmd.OpenQuery MaRequêteAdaptée

---

En fait la transformation de MaRequête en MaRequêteAdaptée permet de préserver l'original.

Le souci est que MaRequêteAdaptée reste en base un certain temps.

Merci, je poste un Résolu.