Comment enregistrer les lignes d'une table dans un fichier

Bonjour,
Je débute avec windev.
Je voudrais savoir comment puis-je enregistrer mes lignes d'une table dans un fichier. J'ai essayé mais une seule ligne est enregistré pour remplacer un enregistrement existant
mon code est le suivant
K est un entier
K0 est un entier
K0 = TableOccurrence(TABLE_PROJET)
POUR K = 1 A K0
TPROJET.Numprojet = TABLE_PROJET.COL_NUMPRO[K]
TPROJET.libelprojet = TABLE_PROJET.COL_LIBELLE[K]
TPROJET.typrojet = TABLE_PROJET.COL_TYPEPRO[K]
TPROJET.codprovince = TABLE_PROJET.COL_CODPROV[K]
TPROJET.coutproj = TABLE_PROJET.COL_COUT[K]
HAjoute(TPROJET)
FIN
TableSupprimeTout(TABLE_PROJET)
Info(" enregistrement reussi")