* Ce programme alimente une feuille Excel à partir des éléments d'une liste graphique.
* Chaque élément est constitué des variables ZZ_COD_MATRICUL, ZZ_NOM_PERSONNE,
* ZZ_PRN_PERSONNE, ZZ_LIB_VIL_PERS.
* La plage comporte donc 4 cellules : de la cellule A,I à D,I .
* Création d'un nouveau classeur, d'une nouvelle feuille Excel
TYPE_FEUILLE = _EXL_FEUILLE_CALCUL
APPELER_METHODE FEN_PERSO.CLI_EXCEL CLASS_CREER TYPE_FEUILLE COD_RETOUR
*
* chargement des cellules de la feuille (Cellules A,I B,I C,I D,I)
I = 0
*
LIRE_P_ELT FEN_PERSO.LST_PERSO:LISTE
* si Non vide
SI &CODE_LST(FEN_PERSO.LST_PERSO:LISTE) = *NORMAL
*
LECTURE_LST FEN_PERSO.LST_PERSO:LISTE
*
VAR_OU_TABLEAU = *BLANK
VAR_OU_TABLEAU(1,1) = ZZ_COD_MATRICUL
VAR_OU_TABLEAU(1,2) = ZZ_NOM_PERSONNE
VAR_OU_TABLEAU(1,3) = ZZ_PRN_PERSONNE
VAR_OU_TABLEAU(1,4) = ZZ_LIB_VIL_PERS
*
I = I + 1
* définition de la plage : de la cellule A,I à D,I (4 cellules)
Plage = 'A' // I // ':D' // I
NB_ELEMENTS = 4
APPELER_METHODE FEN_PERSO.CLI_EXCEL PLAGE_FIXER_VALEURS Plage Var_Ou_Tableau -
Nb_Elements Cod_Retour
FIN_LECTURE_LST
FIN
* affichage feuille EXCEL
VISIBILITE = *VRAI
APPELER_METHODE FEN_PERSO.CLI_EXCEL APPLI_FIXER_VISIBILITE VISIBILITE COD_RETOUR
