Bonjour a tous


j'ai cree une base de donnée Access et la je suis entrain de creer une interface et j'ai besoin de récuperer des données de cette base avec VBA excel car l'interface est sous excel.
J'arrive a me connecter a la base mais j'arrive pas a afficher le resultat que je veux,c a dire que je fais une requette sql sous vba pour recuperer les données qui m'interesse.
J'ai une erreur sur cette ligne ( erreur 424, object required), je ne comprend pas car il me semble que la syntaxe est bonne :Set rst = table.OpenRecordset(request, dbOpenDynaset)

Voila le code :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Dim objConn, objRS
Dim source, table, chemin, BD, fichier, m As String
Dim k, j, lig As Integer
Dim champ, nb_champ, adOpenKeyset
Dim n As Integer
Dim Rs1 As Recordset
 
 
 
'chemin d'acces BD
chemin = "J:\siss\DataBase\"
'nom de la base access
fichier = Range("b1").Value
 BD = fichier & ".mdb"
 source = chemin & BD
 'connection avec la BD
Set objConn = CreateObject("adodb.connection")
 
'pointer sur l'enregistrementcomplet d'une table
Set objRS = CreateObject("adodb.recordset")
 
'ouvrir connection avec access
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & source
 
'table à traiter
table = Range("b2").Value
'ouvrir la table sur l'enr n°1:
 
objRS.Open UCase(table), objConn
 
 
Dim tick As String
tick = Cells(9, 15)
Dim request As String
Dim ret As DAO.Recordset
'Sinon, on recherche la date dans la table
 
        'Construction de la requête
        request = "SELECT table.Isin " & _
                  "FROM table " & _
                  "WHERE table.Ticker= tick"
        Set rst = table.OpenRecordset(request, dbOpenDynaset)
        'Affichage du résultat
        Worksheets(Sheet2).Range("A2").CopyFromRecordset rst
 
 
End Sub
merci pour votre aide