Discussion :

[bartimeus35]

Bonjour,
Voila un exemple de code qui me recopie ce que je veux dans la cellule A2.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
    Dim rst As DAO.Recordset
    Dim sSQL As String
 
    sSQL ="select * from tT_clients"
 
 
    Debug.Print sSQL
    Set rst = dbCurrent.OpenRecordset(sSQL)
 
    ThisWorkbook.Worksheets("Liste Clients").Range("A2").CopyFromRecordset rst

Mon pb est que la requête que je dois appeler est très compliquée. Je l'ai crée dans Access et je cherche à l'appeler directement sans avoir à la recopier

Ma requête s'appelle SQL_R_get_clients

Je ne vois pas comment faire.
Si je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set rst = dbCurrent.OpenRecordset("SQL_R_get_clients")

ca ne fonctionne pas


Je n'ai rien trouve sur le net

Merci de vos retours,
@+

[joe.levrai]

Bonjour,

un vieil exemple de BoiGontiers

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub ReqParamDAO()
    Dim bd As DAO.Database
    Dim rs As Recordset
    Set bd = OpenDatabase(ThisWorkbook.Path & "\Access2000.mdb") ' la BDD
    Set q = bd.QueryDefs("R_param_ville")   ' la requête
    q.Parameters("nomville") = "paris"         ' éventuels paramètres à utiliser
    Set rs = q.OpenRecordset
    Do While Not rs.EOF
       MsgBox rs!nom_client
       rs.MoveNext
    Loop
End Sub

[Philippe Tulliez]

Bonjour,
On peut ouvrir une requête Access depuis Power Query. Pas besoin de VBA pour cela

[laurent_ott]

Ma requête s'appelle SQL_R_get_clients

Bonjour,
Avez-vous testé avec :
sSQL ="select * FROM SQL_R_get_clients"