Bonjour,

J'utilise actuellement un code vba sous excel pour m'extraire une requête access sur Excel

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
    Set ws = DBEngine.CreateWorkspace("myWS", "admin", "", dbUseJet)
    Set db = DBEngine.OpenDatabase(chemin_fichier_lanceur & base_access, , False)
 
    db.QueryTimeout = 0
    Set qry = db.QueryDefs("" & requete & "")
    Set rs = qry.OpenRecordset
 
    rs.MoveLast: rs.MoveFirst
 
    For X = 1 To rs.RecordCount
        For Y = 1 To rs.Fields.Count
            Sheets("de_bon_matin").Cells(X + 1, Y).Value = rs.Fields(Y - 1)
        Next
        rs.MoveNext
    Next
 
    db.Close
    ws.Close
J'aimerais savoir si il est possible de passer des paramètres à l'appel de la requête en utilisant ce code ?

Cordialement

Shakapouet