Bonjour tout le monde,

Alors voila mon problème, j'essaye de récupérer des informations a partir d'une base de données Oracle 9i, grâce a un code VBA 6.5, et pour cela je dois ajouter les références aux lib suivantes :"Microsoft ActiveX Data Objects 2.8 Library", et "Microsoft ActiveX Data Objects Recordset 2.8 Library", et "Microsoft ADO Ext. 2.8 for DDL and security", voila un apperçu de mon 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
       Dim x As String
       x = "C:\Program Files\Common Files\system\ado\msado15.dll"
       ThisWorkbook.VBProject.References.addFromFile x
 
       Dim y As String
       y = "C:\Program Files\Common Files\system\ado\msador15.dll"
       ThisWorkbook.VBProject.References.addFromFile y
 
       Dim z As String
       z = "C:\Program Files\Common Files\system\ado\msadox.dll"
       ThisWorkbook.VBProject.References.addFromFile z
 
 
        '' Etablir la connexion
        Set cnOra = New ADODB.Connection
        Set rsOra = New ADODB.Recordset
        cnOra.Open "DSN=" + db_name + ";UID=" + userORA + ";PWD=" & pwdORA + ";"
        rsOra.CursorLocation = adUseServer
        '---- Récuperer le nombre de lignes -------------'
        rsOra.Open "select count(*) from prod_gaz", cnOra, adOpenForwardOnly
        j = rsOra![count(*)]
        rsOra.MoveNext
        rsOra.Close
        '------------------------------------------------'
        ''--Champs
        sql_stat = Worksheets(3).Cells(5, 2).Value
        rsOra.Open sql_stat, cnOra, adOpenForwardOnly
        i = 0
        While Not rsOra.EOF
            champs(i) = rsOra![champs]
            rsOra.MoveNext
            i = i + 1
        Wend
        rsOra.Close

Et il plante à ce niveau :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set cnOra = New ADODB.Connection
,

Cela dit, si j'ajoute une reference en passant par Tools-> References, puis en cochant la ref, tout en gardant les lignes ci dessus en rouge, j'ai l'erreur dans l'image en attachement, qui m'indique une duplication de references.

Quelqu'un peut il m'aider a régler ce problème (Ajouter par ligne de code une reference pour un code VBA),

Merci