i est un entier
res est une chaîne UNICODE = DateVersChaîne(DateDuJour(),"JJ-MM-AAAA")
Idfichier est un entier = fCrée(ComplèteRep(fRepExe()) + "Exportation du " + res + ".txt", foCréation)

sChemin est une chaîne UNICODE
SI Idfichier <> -1 ALORS
    POUR i = 1 A 10
         fEcrit(Idfichier, UnicodeVersAnsi("Valeur1 : " + i + ESP + "Valeur 2 : " + i*2 + RC))
    FIN
    LanceAppliAssociée(ComplèteRep(fRepExe()) + "Exportation du " + res + ".txt")
SINON
    Erreur("Erreur durand la création du fichier")
FIN

fFerme(Idfichier)