EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DESCRIPTIONFIC" TO F.DESCRIPTIONFIC ELSE STOP
10 READNEXT FICHIER ELSE STOP
DFICHIER="D_":FICHIER
PRINT "Fichier : ":FICHIER
EXECUTE "!copy \\serveurnt\basenous\basedonnees\":DFICHIER:" \\serveurnt\basenous\baseentreprise\":DFICHIER
GOTO 10
