Discussion :

[djatto]

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

[OhMonBato]

Bonjour,

peux tu préciser sur quelle ligne exactement tu as l'erreur ?
En tout cas tu dis que ton fichier texte est fait de champs séparés par des virgules et ton Split se fait sur des ";" tu devrais commencer par corriger ça.

J'ai jaouté les balises CODE dans ton message (c'est le bouton # situé au dessus de la zone d'édition de ton message), merci d'y penser pour les prochains messages.

[Delbeke]

Tu as dimenssionné la variable tabvleau comme etant des strings

Code :

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

Dim TableW() As String

Si dans ta table, il y a des champs nuùériques, ca va pas aller bien
Dans ce cas, mieux vaut profiter du type variant

Code :

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

Dim TableW() As Variant

et laisser faire vb