Requete sql(excel/access
Bonjour je souhaite importer le resultat d'une requete sql ecrite dans EXCEL, dans une nouvelle feuille excel et je ne vois pas du tout comment faire, voici le code que j'ai pour générer la requete :
Sub Recherche_Table()
Dim col As Integer, lig As Long, i As Long
Dim BDD As String, Head As String, S As String, Req As String
Dim Cnx As Object, Rst As Object
BDD = ActiveWorkbook.Path & "\BaseStressFinal.accdb"
Req = "SELECT COUNT(Code) FROM StressGlobal "
Set Cnx = CreateObject("ADODB.Connection")
Cnx.Open "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & BDD
Set Rst = Cnx.Execute(Req)
Cnx.Close
Set Cnx = Nothing
Set Rst = Nothing
End Sub
Pourriez-vous m'eclairer svp ?
Cordialement
Bonjour,
Pour récupérer le résultat d'un Select, il faut créer un recordset.
Un truc dans le genre :
...
Req = "SELECT COUNT(Code) FROM StressGlobal "
Set Cnx = CreateObject("ADODB.Connection")
Cnx.Open "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & BDD
Set Rst = CreateObject("ADODB.Recordset")
Rst.Open Req, Cnx, 3
Rst.MoveFirst
Activesheet.Range("A1").CopyFromRecordset RstTu peux aussi placer le résultat dans un tableau, genre :
dim T as variant
...
Set Rst = CreateObject("ADODB.Recordset")
Rst.Open Req, Cnx, 3
ReDim T(Rst.Fields.Count - 1, Rst.RecordCount - 1)
Rst.MoveFirst
T = Rst.GetRowsPierre