1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
IdFichierXLS est un xlsDocument
FichierExcel est une chaîne
i,NbLigne est un entier
FichierExcel=("G:\Applications\Habilitations\SIR\BASES_IMPORT_ EXPORT\EXPORT_TABLEAU_HABILITATIONS_AGENTS.xlsx")
SI fFichierExiste(FichierExcel) ALORS
HCréation(AGENTS)
IdFichierXLS = xlsOuvre(FichierExcel)
NbLigne=xlsNbLigne(IdFichierXLS)
HOuvre(AGENTS)
POUR i=2 A NbLigne
SI IdFichierXLS <> -1 ALORS
AGENTS.IDAGENTS = xlsDonnée (IdFichierXLS,i,1,Vrai)
AGENTS.prenom_nom= xlsDonnée (IdFichierXLS,i,2,Vrai)
AGENTS.service= xlsDonnée (IdFichierXLS,i,3,Vrai)
AGENTS.pole= xlsDonnée (IdFichierXLS,i,4,Vrai)
...
HAjoute(AGENTS)
FIN
FIN
SINON
Erreur("Le fichier Excel Agents.xls n'existe pas")
FIN
ToastAffiche("Import terminé !",toastCourt,cvMilieu)
TableAffiche(TABLE_AGENTS_RED,taDébut) |
Partager