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 !!")