Discussion :

[shakapouet]

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

[Invité]

Bonjour,

si ta requêt contient déjà les paramètres, fait juste un select * fom Requête et le reste ne change pas!

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
Enum ConstAdo    adSmallInt = 2
     adInteger = 3
     adSingle = 4
     adDate = 7
     adBoolean = 11
     adDecimal = 14
     adNumeric = 131
     adVarChar = 200
End Enum
Private Sub test()
Set Cn = CreateObject("ADODB.Connection")
Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\rdurupt\Documents\Données1.accdb;" 'Je defini un chêne de texte qui contient les information de ma connectionet j'ouvre ma connection
Set Cm = CreateObject("Adodb.Command")
Cm.CommandText = "Select * from [Table] where Debut=?;" 'je passe ma requête à mon objet command"
Cm.ActiveConnection = Cn 'j'affecte ma connection à ma commande
Set Debut = CreateObject("ADODB.Parameter")
Debut.Name = "debut": Debut.Type = adDate: Debut.Value = CDate(Format(DDebut, "yyyy-mm-dd")): Cm.Parameters.Append Debut
Set RetournRs = Cm.Execute 'on recupere le résultat de la requête.
 Sheets("de_bon_matin").Range("A2").CopyFromRecordset  RetournRs
 RetournRs.Close: Cn.Close
End Sub