Exécuter une requête Access en VBA (QueryDefs)

Bonjour,

Je me suis lancer dans l'utilisation de DAO et QueryDefs pour exécuter une requête que j'ai créer sous Access via le VBA.

Je pense avoir fait ça bien mais j'ai une erreur d'exécution 424 objet requis.

J'ai bien activé la référence Microsoft DAO.

Donc voici mon code :

Code:

---

1 2 3 4 5 6 7 8

Dim oDb As DAO.Database Dim oQdf As DAO.QueryDef Dim oRst As DAO.Recordset Set oDb = CurrentDb Set oQdf = oDb.QueryDefs("Requete_Teradate_Activite_With_Filiere") oQdf.Parameters("Date de Debut").Value = date_deb oQdf.Parameters("Date de Fin").Value = date_fin Set oRst = oQdf.OpenRecordset

---

Requete_Teradate_Activite_With_Filiere => Le nom de ma requête sous Access
date_deb et date_fin sont les deux paramètres que j'utilise pour le bon fonctionnement de la requête. J'utilise sous access la propriété : Entre [Date de Debut] Et [Date de Fin] pour passer mes paramètres.

L'erreur ce fait au niveau du : Set oRst = oQdf.OpenRecordset

Pour précision , la requête va chercher des données et créer une table pour les stocker.

Cordialement

Finalement, j'ai trouvé une solution.

Si cela peut aider quelqu’un voici le code que j'utilise :

Code:

---

1 2 3 4 5

Dim Req As QueryDef Set Req = CurrentDb.QueryDefs("Requete_Teradate_Activite_With_Filiere") Req.Parameters("Date de Debut") = date_deb Req.Parameters("Date de Fin") = date_fin Req.Execute

---

cordialement