Discussion :

[ALAIN77260]

Bonjour,

J'ai un fichier TXt : Z1;Z2;Z3;D1;D2;D3;

je voudrait créer une base avec le résultat suivant :

Z1 Z2 Z3 D1
Z1 Z2 Z3 D2
Z1 Z2 Z3 D3


Une idée ?

Merci.

modération : cafeine, sujet divisé, ne greffez pas vos questions à un sujet préexistant,

[marot_r]

Si ta structure est toujours la même et que tu utilise Access XP.

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
 
private sub LireFichier()
   dim nomFic as string
   dim numFic as integer
   dim db as database:set db=currentdb
   dim r as recordset
   dim lf as string
   dim data as variant
 
   numFic=freefile()
   nomFich="monFichier"
   open nomFic as numFic for imput
   lineinput #numFic, lf
   data=split(lf,";")
   close numFic
 
   set r=db.openRecordset(maTable)
 
   dim i as integer
   for i=4 to 6
     r.addnew
     r!z1=data(1)
     r!z2=data(2)
     r!z3=data(3)
     r!d=data(i)
     r.update
   next i
 
   r.close:set r=nothing
   db.close:set db=nothing
end sub

[ALAIN77260]

Merci,

Je pour l'info.

Alain.