Exportation
loopss
Messages postés
2
Date d'inscription
mercredi 15 mars 2006
Statut
Membre
Dernière intervention
17 janvier 2008
-
16 janv. 2008 à 17:46
loopss Messages postés 2 Date d'inscription mercredi 15 mars 2006 Statut Membre Dernière intervention 17 janvier 2008 - 17 janv. 2008 à 12:45
loopss Messages postés 2 Date d'inscription mercredi 15 mars 2006 Statut Membre Dernière intervention 17 janvier 2008 - 17 janv. 2008 à 12:45
1 réponse
loopss
Messages postés
2
Date d'inscription
mercredi 15 mars 2006
Statut
Membre
Dernière intervention
17 janvier 2008
17 janv. 2008 à 12:45
17 janv. 2008 à 12:45
Salut A Tous
Du coup j'ai trouvé ma solution
chdir(GETDIR("C:\org"))
NBTABLE=ADIR(TABLEAU,'*.dbf')
for k=1 to nbtable
curnom=tableau(k,1)
curnom2=left(curnom,len(curnom)-4)
* insérer vos requêtes
use &curnom2
count to nbenr
req = "select * from '"+curnom2+"' where recno()=1 or recno()="+alltrim(str(nbenr))+" nowait"
&req
req1="copy to diito"+curnom2+" xl5"
&req1
close tables
next k
close tables
messagebox("Les dittos ont bien ete exportés !!")
Du coup j'ai trouvé ma solution
chdir(GETDIR("C:\org"))
NBTABLE=ADIR(TABLEAU,'*.dbf')
for k=1 to nbtable
curnom=tableau(k,1)
curnom2=left(curnom,len(curnom)-4)
* insérer vos requêtes
use &curnom2
count to nbenr
req = "select * from '"+curnom2+"' where recno()=1 or recno()="+alltrim(str(nbenr))+" nowait"
&req
req1="copy to diito"+curnom2+" xl5"
&req1
close tables
next k
close tables
messagebox("Les dittos ont bien ete exportés !!")
