créer une table par un module macro

Version imprimable

Bonjour,
je veux importer un fichier txt pour créer une table (et l'inclure après ds une procédure automatique)

mon fichier txt se présente ainsi:
600809.544;128568.889;0;COA;0110;1 01
600809.544;128568.889;0;COA;0110;MOA-COA

mon module est écrit ainsi:

Code:

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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
 
Dim Fichier As String, ligne As String, mslink As String, B As String, C As String
Dim X As String, Y As String, nom As String, pave As String, A As String, nvaleur As String
Dim I As Double, J As Integer, K As Integer
 
 
DoCmd.DeleteObject acTable, "pvpcoa"
DoCmd.RunSQL "create table pvpcoa (mslink double constraint MyFieldconstraint Primary key,x double, y double, a double, nom varchar(255), pave varchar(255), nvaleur varchar(255));"
DoCmd.OpenTable "pvpcoa", acNormal, acEdit
 
Fichier = "C:\pvp1\encours\COA\pvptagcoa.txt"
Open Fichier For Input As #1
I = 0
 
Do Until EOF(1)
I = I + 1
mslink = Str(I)
Input #1, ligne
B = LTrim(ligne)
J = 0
C = ""
 
Do Until J = 128
J = J + 1
C = Mid(B, J, 1)
If C = ";" Then
X = Left(B, J - 1)
X = LTrim(X)
Exit Do
Else
End If
Loop
 
K = J
Do Until K = 200
K = K + 1
C = Mid(B, K, 1)
If C = ";" Then
Y = Mid(B, J + 1, K - J - 1)
Y = LTrim(Y)
Exit Do
Else
End If
Loop
 
J = K
Do Until J = 200
J = J + 1
C = Mid(B, J, 1)
If C = ";" Then
A = Mid(B, K + 1, J - K - 1)
A = LTrim(A)
Exit Do
Else
End If
Loop
 
K = J
Do Until K = 200
K = K + 1
C = Mid(B, K, 1)
If C = ";" Then
nom = Mid(B, J + 1, K - J - 1)
nom = LTrim(nom)
Exit Do
Else
End If
Loop
 
J = K
Do Until J = 200
J = J + 1
C = Mid(B, J, 1)
If C = "" Then
pave = Mid(B, K + 1, J - K)
pave = LTrim(pave)
Exit Do
Else
End If
Loop
 
K = J
Do Until K = 200
K = K + 1
C = Mid(B, K, 1)
If C = ";" Then
nom = Mid(B, J + 1, K - J - 1)
nom = LTrim(nvaleur)
Exit Do
Else
End If
Loop
 
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO pvpcoa (mslink,x,y,a,nom,pave,nvaleur) VALUES ('" + mslink + "','" + X + "','" + Y + "','" + A + "','" + nom + "','" + pave + "','" + nvaleur + "');"
 
Loop
Close #1
DoCmd.Save acTable, "pvpcoa"
DoCmd.Close acTable, "pvpcoa"
DoCmd.SetWarnings True
DoCmd.Quit
 
End Function

mais voilà la table obtenue se présente ainsi:

colonnes: mslink x y a nom pave ID
mslink ok, x ok, yok, a ok, nom ok,
mais pavé pas bon 0110;1 01 ou 0110;MOA-COA or je voudrais que 101 ou MOA-COA soit ds le champs ID car champs ID est vide

je ne trouve pas l'erreur dans mon module

merci pour votre aide

05/08/2009, 11h02
fgiambelluco

Bonjour
Si le fichier texte utilise le séparateur ; comme séparateur de champ, il serait plus simple de faire un import direct, par macro ou par code

Code:

DoCmd.TransferText ....
05/08/2009, 11h25
Béaté

j'ai déjà essayé mais je n'y suis pas arrivé
et puis le but et de rendre cela automatique
05/08/2009, 11h27
fgiambelluco

Re
Ok, mais plutôt que de lire caractère par caractère, la fonction InStr permet de retrouver une chaine dans une chaine. Donc pour chercher un ; c'est plus pratique
05/08/2009, 11h48
Béaté

bon, je vais être honnête,
je reprends un module déjà existant et comme je débute (vrai débutante) je ne connais pas toutes les commandes
j'ai réussi à insérer de nouveaux champs et je suis têtue j'aimerai voir là où ça cloche

Re
En regardant un peu je vois 2 erreurs, mais je ne peus pas tester.
Il manque le ; dans la recherche de pave et nvaleur se transforme en nom.

Proposition :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 J = K Do Until J = 200 J = J + 1 C = Mid(B, J, 1) If C = ";" Then pave = Mid(B, K + 1, J - K) pave = LTrim(pave) Exit Do Else End If Loop K = J Do Until K = 200 K = K + 1 C = Mid(B, K, 1) If C = ";" Then nvaleur= Mid(B, J + 1, K - J - 1) nvaleur= LTrim(nvaleur) Exit Do Else End If Loop

05/08/2009, 12h14
Béaté

vu
mais ça ne fonctionne tjrs pas
x, y, a, nom ok
pave-> 0110;
ID est vide, je ne récupère tjrs pas le 1 01 ou le COA-MOA
MERCI POUR TON AIDE fgiambelluco
05/08/2009, 12h28
loufab

Bonjour,

la technique que tu utilises risques de prendre 3 plombes...

As-tu regardé le Schema.ini ? c'est une solution valable.

Pourquoi le docmd.transfertext n'a pas marché ? C'est peut-être un petit détail. Qu'est-ce qui empêche que cela soit automatique avec le TRansferText ? Ton fichier texte ne conserve pas la même structure ?

Cordialement,
05/08/2009, 12h32
fgiambelluco

Re

Citation:

ID est vide, je ne récupère tjrs pas le 1 01 ou le COA-MOA

Il sort d'où ce ID? Je le trouve nulle part dans la définition de la table
05/08/2009, 12h43
Béaté

pardon "nvaleur"
05/08/2009, 12h56
fgiambelluco
Re
En fait, j'avais pas vu, mais le code suivant ne sert à rien puisqu'il n'y a plus de ;
Code:

1 2 3 4 5 6 7 8 9 10 11 K = J Do Until K = 200 K = K + 1 C = Mid(B, K, 1) If C = ";" Then nvaleur= Mid(B, J + 1, K - J - 1) nvaleur= LTrim(nvaleur) Exit Do Else End If Loop
on peut le remplacer par

Code:

nvaleur= Mid(B, J + 1)