Discussion :

[GBAGO]

Bonjour à tous,

J'ai un fichier que j'ai converti en format csv. Je voulais l'accéder en utilisant le code suivant :
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
 
Sub GetCol()
Dim strPath As String
Dim strTable As String
Dim strFolder As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
strPath = "d:\mabase\fichier.csv"
strTable = Right(strPath, Len(strPath) - InStrRev(strPath, "\"))
strFolder = Left(strPath, InStrRev(strPath, "\") - 1)
Set db = DAO.OpenDatabase(strFolder, False, False, _
"Text;Database=" & strFolder & ";HDR=NO;Table=" & strTable)
' F1 = Field numéro 1
Set rs = db.OpenRecordset("SELECT F1 FROM [" & strTable & "]", DAO.dbOpenSnapshot, _
DAO.dbReadOnly, DAO.dbReadOnly)
ActiveSheet.Range("A2").CopyFromRecordset rs
Set rs = Nothing
Set db = Nothing
End Sub

La compilation me donne l'erreur suivante : Erreur de compilation : Type défini par l'utilisateur non défini.
Et pourtant c'est un code que j'ai récupéré sur le faq de développez.com et l'a adapté à mon problème.

Merci d'avance de m'aider dans ce sens.

[jfontaine]

et avec

Code :

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

1
2
Dim db As New DAO.Database
Dim rs As New DAO.Recordset

[GBAGO]

Bonsoir!

J'ai relancé la compilation mais c'est la même erreur.

[jfontaine]

Essai de mettre tes lignes en commentaire et de libérer en fur et a mesure afin de savoir qu'elle ligne ne convient pas

[GBAGO]

L'erreur se produit d'abord au niveau des déclarations qui commencent par DAO puis au niveau des méthodes qui commencent par DAO.
J'ai cherché dans l'explorateur d'objets DAO et je n'en trouve pas.
J'aimerai savoir si l'objet DAO n'est plus utilisé dans msoffice 2003.

[jfontaine]

Tu peux toujours utiliser DAO si tu a installé le MDAC 2.5 ou les pilotes jet4.
Je te conseillerais d'utiliser ADO plutot que DAO si ton fichier à ambition à être diffusé;
pour ADO référence a ajouter Microsoft AcyiveX DataObject 2.x Library
(pour info j'utilise 2.0 car présent en natif sur tous les postes)

[GBAGO]

Bonjour!

J'ai pu résoudre le problème. Ce qui me bloquait, c'est la référence aux objets DAO.
Merci de ta contribution.