Bonjour,

A partir d'une macro sur Excel, je cherche à lancer une requête nommée "test" que j'ai faite sur Access.

Ma Macro est la suivante :

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
19
20
21
22
23
24
 
Dim objAccess As New Access.Application
 
'ouvre la base de données
Dim CheminDB As String
CheminDB = ActiveWorkbook.Path & "\BDD Mallettes.accdb"
objAccess.OpenCurrentDatabase CheminDB
 
'Pour rendre le tout visible à l'utilisateur
objAccess.Visible = True
 
 
'Lance les requetes pour isoler la mallette
Dim qdf As DAO.QueryDef
Dim rcs As DAO.Recordset
 
Set qdf = Nothing
'Référence à la requête
Set qdf = CurrentDb.QueryDefs("test")
valeur = "352C4T1"
 
qdf.Parameters("Entrer reference :") = valeur
qdf.Execute
Set qdf = Nothing
Mon fichier Access s'ouvre cependant j'ai un bug de : Set qdf = CurrentDb.QueryDefs("test")La particularité de ma requête est que je demande à l'utilisateur de rentrer une requête au moment où on la lance...est-ce à cause de ça?

Merci d'avance