Problème d'ajout automatique de references en utilisant le code

**redabadache3** · 14/10/2008, 19h17

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

**ouskel'n'or** · 15/10/2008, 00h52

Tu ne dis pas comment tu as déclaré cnOra.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim cnOra As ADODB.Connection

A tout hasard...

**redabadache3** · 15/10/2008, 17h55

oui c vrai tu as raison, voici la totalité 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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
 
Sub CommandButton1_Click()
'Fonction de connexion
'Tableaux de donnees
Dim champs(50) As String
Dim Apport(50) As Integer
Dim prod_gaz_sec(50) As Integer
Dim cons_fuel_gaz(50) As Integer
Dim GPL_vap(50) As Integer
Dim gaz_inj(50) As Integer
Dim gaz_torche(50) As Integer
Dim gaz_expdGR(50) As Integer
Dim gaz_expd(50) As Integer
Dim gaz_reserve(50) As Integer
Dim sql_stat As String
 
 
 
 
 
       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
 
       'Variables pour la connexion Oracle
       Dim cnOra As ADODB.Connection
       Dim rsOra As ADODB.Recordset
       Dim db_name As String
 
 
       db_name = Worksheets(3).Cells(1, 2).Value
       userORA = Worksheets(3).Cells(2, 2).Value
       pwdORA = Worksheets(3).Cells(3, 2).Value
 
 
 
        '' 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
        '-- Apport
        sql_stat = Worksheets(3).Cells(6, 2).Value
         rsOra.Open sql_stat, cnOra, adOpenForwardOnly
        i = 0
        While Not rsOra.EOF
            Apport(i) = rsOra![Apport]
            rsOra.MoveNext
            i = i + 1
        Wend
        rsOra.Close
        '-- Prod gaz
        sql_stat = Worksheets(3).Cells(7, 2).Value
        rsOra.Open sql_stat, cnOra, adOpenForwardOnly
        i = 0
        While Not rsOra.EOF
            prod_gaz_sec(i) = rsOra![prod_gaz]
            rsOra.MoveNext
            i = i + 1
        Wend
        rsOra.Close
        '-- Cons fuel gaz
        sql_stat = Worksheets(3).Cells(8, 2).Value
        rsOra.Open sql_stat, cnOra, adOpenForwardOnly
        i = 0
        While Not rsOra.EOF
            cons_fuel_gaz(i) = rsOra![cons]
            rsOra.MoveNext
            i = i + 1
        Wend
        rsOra.Close
        '-- GPL vap
        sql_stat = Worksheets(3).Cells(9, 2).Value
        rsOra.Open sql_stat, cnOra, adOpenForwardOnly
        i = 0
        While Not rsOra.EOF
            GPL_vap(i) = rsOra![GPL_vap]
            rsOra.MoveNext
            i = i + 1
        Wend
        rsOra.Close
        '-- Gaz inj
        sql_stat = Worksheets(3).Cells(10, 2).Value
        rsOra.Open sql_stat, cnOra, adOpenForwardOnly
        i = 0
        While Not rsOra.EOF
            gaz_inj(i) = rsOra![gaz_inj]
            rsOra.MoveNext
            i = i + 1
        Wend
        rsOra.Close
         '-- Gaz torche
        sql_stat = Worksheets(3).Cells(11, 2).Value
        rsOra.Open sql_stat, cnOra, adOpenForwardOnly
        i = 0
        While Not rsOra.EOF
            gaz_torche(i) = rsOra![gaz_torche]
            rsOra.MoveNext
            i = i + 1
        Wend
        rsOra.Close
         '-- Expedition GR1
        sql_stat = Worksheets(3).Cells(12, 2).Value
        rsOra.Open sql_stat, cnOra, adOpenForwardOnly
        i = 0
        While Not rsOra.EOF
            gaz_expdGR(i) = rsOra![expd_GR1]
            rsOra.MoveNext
            i = i + 1
        Wend
        rsOra.Close
        '-- Expedition
        sql_stat = Worksheets(3).Cells(13, 2).Value
        rsOra.Open sql_stat, cnOra, adOpenForwardOnly
        i = 0
        While Not rsOra.EOF
            gaz_expd(i) = rsOra![expd]
            rsOra.MoveNext
            i = i + 1
        Wend
        rsOra.Close
        '-- Reserve
        sql_stat = Worksheets(3).Cells(14, 2).Value
        rsOra.Open sql_stat, cnOra, adOpenForwardOnly
        i = 0
        While Not rsOra.EOF
            gaz_reserve(i) = rsOra![reserve]
            rsOra.MoveNext
            i = i + 1
        Wend
        rsOra.Close
        '------------------- Remplir les tableau Excel par les données de la BD --------------'
        For k = 0 To j - 1
        l = 9
        Worksheets(1).Cells(l + k, 1) = champs(k)
        Worksheets(1).Cells(l + k, 2) = Apport(k)
        Worksheets(1).Cells(l + k, 4) = cons_fuel_gaz(k)
        Worksheets(1).Cells(l + k, 5) = GPL_vap(k)
        Worksheets(1).Cells(l + k, 6) = gaz_inj(k)
        Worksheets(1).Cells(l + k, 7) = gaz_torche(k)
        If Not k = j - 1 Then
        Cells(16 + k, 1).Select
        Selection.EntireRow.Insert
        End If
        Next k
End Sub

Et j'ai mis en attachement le message d'erreur,

Merci pour votre aide

**ouskel'n'or** · 16/10/2008, 22h25

Tu dois valider la référence "Microsoft ActiveX Data Objects X.X Library"

**redabadache3** · 16/10/2008, 22h28

Merci pour ta reponse, mais que veux tu dire par "Valider" une reference ???

Merci encore

**ouskel'n'or** · 16/10/2008, 22h57

Dans l'éditeur VBA -> menu Outils -> Références -> tu valides "Microsoft ActiveX..."
Bonne nuit

**redabadache3** · 17/10/2008, 00h33

Je crois qu'il fauderai bien lire mon poste avant de répondre, ce que je tante de faire, est de "VALIDER" ma référence via le code, et non manuellement

**ouskel'n'or** · 17/10/2008, 02h41

J'ai bien lu mais si tu valides la référence tu auras l'adresse du fichier. Chez moi elle est dans C:\Program Files\Fichiers communs\SYSTEM\ADO\ mais je n'ai pas installé toute la version 2003 d'office. Regarde si c'est un des deux fichiers suivants : msador15.dll ou msado15.dll
Sans garantie.
Bonne nuit

**redabadache3** · 17/10/2008, 02h51

En effet c'est bien de ces fichiers que je parle, et que je souhaiterai inclure, c'est pour cela que j'ai mis dans mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
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

Pour moi il y'a deux moyens d'ajouter une référence:

1/ Editeur VBA -> menu Outils -> Références, et je coche la référence, qui point vers une DLL, telle que msador15.dll ou msado15.dll, se trouvant dans C:\Program Files\Common Files\system\ado (en ce qui me concerne)

2/ Ajouter la référence par le code, comme je le fais ci dessus, ce qui ne fonctionne pas pour moi

Cela dit, je ne sais pas si nous sommes sur la meme longueur d'onde ???

**tirex28** · 17/10/2008, 03h22

Bonsoir,

Le probleme vient du fait que tu déclare des types d'objets définis dans la bibliothèque que tu tente d'ajouter, donc inconnu de vba a ce stade.

Essaye de les declarer avec le type Object:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
'Dim cnOra As ADODB.Connection
Dim cnOra As Object
 
'Set cnOra = New ADODB.Connection
Set cnOra = CreateObject("ADODB.Connection")

Cordialement,

Tirex28/

**redabadache3** · 17/10/2008, 05h42

Exactement, mais comment faire alors pour inclure cette bibliothèque, en utilisant le code, avant même de déclarer ces variables ??? sans toute fois passer par Tools-> Références ,

Merci encore

**ouskel'n'or** · 17/10/2008, 10h16

Avec le type Objet tu n'as pas à valider la référence... si elle existe.
L'inconvénient est que tu n'as pas d'aide sur l'objet.
As-tu testé ?

**redabadache3** · 18/10/2008, 14h15

Cela vient peut être de moi, mais je n'arrive pas a te suivre, peux tu être plus clair STP ???

Merci

Problème d'ajout automatique de references en utilisant le code

Macros et VBA Excel

Discussions similaires

Partager

Partager