salut, svp j'ai un problème j'aimerai convertir des données texte en tableau base de données avec vb. les données sont organisé de cette forme:

NCEN=SO1 /12-02-21/11 H 00 MN 18/ARCHIVAGE COMPTEURS HORAIRES

CLASSE T
COMMUNICATIONS EFFICACES
I D A T
T01 218 3006 2490 60
T02 0 0 0 0
T04 396 5146 4739 98
T05 2276 5146 4859 98
T06 0 5137 0 98
T07 0 14 1679 21
COMMUNICATIONS INEFFICACES CAUSE ABONNE DEMANDEUR
I D A T
T12 1018 9 29 0
T13 801 6 7 0
T14 57 9 0 0
T15 0 182 0 0
T16 2 27 81 0
T17 0 0 0 0
T18 30 731 557 12
T19 0 0 0 0
ce que je veux faire c de transformer ce texte en 4 tableaux nommé comme suit I, D, A et T. le tableau I va contenir les données de la colonne I de T01 à T19, le tableau D va contenir les données de la colonne D de T01 à T19, le tableau A va contenir les données de la colonne A de T01 à T19 et le tableau T va contenir les données de la colonne T de T01 à T19.
j'ai le code suivant qui permet de convertir les donnés de la colonne A mais ça ne marche pas :

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
Public Sub ImporterTA(strNomFichier As String)
Dim FSO As New Scripting.FileSystemObject
Dim oFichier As Scripting.TextStream
Dim strLigne As String
Dim strNomChamp As String
Dim strValeur As String
Set oFichier = FSO.OpenTextFile(strNomFichier, ForReading)
Dim oRst As DAO.Recordset
Dim I As Integer
'Charge la table en mémoire
Set oRst = CurrentDb.OpenRecordset("classe TA", dbOpenTable)
'Tant que non fin de fichier
While Not oFichier.AtEndOfStream
'lit la ligne
strLigne = oFichier.ReadLine
'Si elle n'est pas vide
If Trim(strLigne) <> "" Then
'Si c'est une ligne de date
If InStr(1, strLigne, "/") <> 0 Then
 
 
 
If InStr(1, Trim(strLigne), "/") = 1 Then
dateTA = Mid(Trim(strLigne), 2, 16)
d = CDate(Mid(dateTA, 1, 8))
 
heure = CInt(Mid(dateTA, 10, 2))
 
min = CInt((Mid(dateTA, 15, 2)))
 
annee = Day(d)
If Year(d) < 2000 Then
jour = Year(d) - 1900
Else
jour = Year(d) - 2000
End If
Mois = Month(d)
dc = jour & "-" & Mois & "-" & annee
d = CDate(dc)
dateTA = d
End If
If InStr(1, Trim(strLigne), "/") > 1 Then
dateTA = Mid(Trim(strLigne), 1, 16)
End If
 
 
'Si on est sur un nouvel enregistrement, on le valide
If oRst.EditMode = dbEditAdd Then oRst.Update
Else
'Sinon, si on est pas en mode ajout, on ajoute un nouvel enregistrement
If Not oRst.EditMode = dbEditAdd Then
oRst.AddNew
'Fixe le numéro
oRst.Fields("NumeroTA") = oRst.RecordCount + 1
oRst.Fields("dateTA") = dateTA
oRst.Fields("heure") = heure
oRst.Fields("minute") = min
End If
'Récupère la position des :
 
If Trim(Mid(strLigne, 1, 6)) <> "" Then
'Récupère le nom du champ et la valeur
strNomChamp = Trim(Mid(strLigne, 1, 5))
strValeur = Trim(Mid(strLigne, 33, 11))
 
'MsgBox strNomChamp
' MsgBox strValeur
'Remplit la table
If Len(strNomChamp) > 1 Then
oRst.Fields(strNomChamp).Value = strValeur
End If
End If
End If
End If
Wend
If oRst.EditMode = dbEditAdd Then
 
oRst.Update
 
End If
 
oFichier.Close
oRst.Close
Set oRst = Nothing
Set oFichier = Nothing
Set FSO = Nothing
End Sub
Merci d'avance