Fiche_Cde_Fou Fiche_Cde_Fou.BTN_MCU 28bfcd4509248a46 00000004 0017000e // Saisissez ici le code de votre macro MoiMême.LIBELLE = "Export" EXPORT CDE 1 Fiche_Cde_Fou.BTN_MCU 28bfcd4509248a46 00000004 00170012 // Saisissez ici le code de votre macro. sLigne, sCodeclient, sChemin_Data est une chaîne nFic est un entier nFic = fOuvre("c:\export.txt",foCréation) sChemin_Data = INILit("CHEMIN","DATA","C:\Serveur HF\BDD\LVC\",ComplèteRep(fRepExe())+"KeziaII.ini") sCodeclient = INILit("ENTETE", "CODE_CLIENT", "", sChemin_Data + "KeziaII.ini") //Info(sChemin_Data + "/" + sCodeclient) SI PAS nFic=-1 ALORS sLigne = "ENT" + sCodeclient SI fEcritLigne(nFic,sLigne) = Faux ALORS Info("EXPORT IMPOSSIBLE.") Ferme() FIN POUR TOUTE LIGNE de TABLEREL sLigne = "LIG" + TABLEREL.COL_REF_FOU + " " + TABLEREL.QTE SI fEcritLigne(nFic,sLigne) = Faux ALORS Info("EXPORT IMPOSSIBLE.") Ferme() FIN FIN FIN Info("EXPORT TERMINE.") LanceAppli("NOTEPAD.EXE C:\EXPORT.TXT") fFerme(nFic) EXPORT CDE 1