Passage de paramètre dans une requête ACCESS depuis EXCEL

Bonjour,

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

Code:

---

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

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:

---

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

---