Discussion :

[nico1492]

Bonjour à toutes et tous,

J'utilise Excel 2003.

Dans une macro, j'essaie de me connecter à une base de donnée via une source ODBC.

Seulement lorsque je l'execute, le débogueur indique "Erreur de compilation: Type défini par l'utilisateur non défini", en surlignant la première ligne de mon code. (cnxCPTA As ADODB.Connection pour être exact)

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
    Dim cnxCPTA As ADODB.Connection 'Identifiant de la connexion ODBC
    Dim strConnect As String 'Chaîne de connexion ODBC
    Dim strUID As String 'Nom utilisé pour la connexion à la base (le cas échéant)
    Dim strPWD As String 'Mot de passe associé (le cas échéant)
 
    strConnect = "DSN=COMPTA; "
 
    Set cnxCPTA = New ADODB.Connection
    cnxCPTA.ConnectionTimeout = 15 'Définition du TimeOut de connexion
    cnxCPTA.CommandTimeout = 30 'Définition du TimeOut d'exécution de requêtes
 
    cnxCPTA.Open strConnect 'Connexion à la source de données ODBC
 
    'requête
 
     Dim cmdSQL As ADODB.Command 'Objet contenant la définition de la requête
     Dim rsCompte As ADODB.Recordset 'Objet contenant le résultat de la requête
     Dim strSQL As String 'Contenu de la requête SQL
 
     strSQL = "SELECT EC_Piece, EC_Reference, CT_Num,EC_Intitule, EC_No, EC_Montant From F_ECRITUREC"
     Set cmdSQL = New ADODB.Command 'Instanciation de l'objet contenant la définition de la requête
     Set rsCompte = New ADODB.Recordset 'Inst. de l'objet contenant le résultat de la requête
(...)

Je suis un profane complet en VB, un peu de théorie mais sans plus...Donc question toute simple : peut-on utiliser un objet ADODB dans une macro Excel, puisque visiblement, il ne l'accepte pas ? Ou alors est-ce que mon code est erroné ?

Merci d'avance !

[ouskel'n'or]

Sans regarder le code, je pense que tu as omis de valider la référence "Microsoft ActiveX Data Objects 2.x Library"
Dans l'éditeur VB -> Menu Outils -> Références -> Valider
A tout hasard.

[nico1492]

Oui c'était ça, il me semblait bien qu'il fallait activer quelque chose...Merci !!