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.