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)
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é ?
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 (...)
Merci d'avance !
Partager