bonjour tout le monde
j'ai trouvé dans un forum un code vb 6.0 et j'ai essayé d'adapter à mon application mais reçois cette ereur: ERREUR d'exécution 3421 Erreur de conversion de type de données.
SVP aidez-moi, je suis nouveau au forum et ce que j'ai a faire me préocupe.
le fichier text contient des caractères séparés par des virgules e figurant entre quote.
Voici 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
 
Public Sub importer()
Dim db As DAO.Database
Dim rc As DAO.Recordset
Dim Fice As String ' Chemin et Fichier .txt à traiter
Dim LignE As String
Dim TableW() As String
Dim i As Long
Dim Ltitre As String ' Ligne description des rubriques
Dim NomTxt As String
Dim NomBd As String
 
'NomTxt = Form1.File1.FileName ' Nom du fichier .txt
NomBd = "C:\bdCRISK2.mdb" ' Nom base de donnée
Set db = DAO.Workspaces(0).OpenDatabase(NomBd) ' Ouverture base
'Fice = App.Path + "\" + NomTxt
'MsgBox ("Base ouverte"), vbInformation, "felicitation"
Fice = "C:\Documents and Settings\testuser\Desktop\Nouveau dossier\eta.txt"
Open Fice For Input As #1
Set rc = db.OpenRecordset("client", dbOpenTable) ' Ouverture de la table
 
Do While Not EOF(1)
Line Input #1, LignE
TableW() = Split(LignE, ";")
rc.AddNew
 
For i = 0 To UBound(TableW)
rc.Fields(i).Value = TableW(i) ' Création d'une ligne
Next i
 
rc.Update
Loop
 
MsgBox "Remplissage de la base terminée"
 
Close #1
rc.Close
Set rc = Nothing
db.Close
 
End Sub