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
|
// VARIABLES EXCEL
IdFichierXLS est un entier
FichierExcel est une chaîne
i,NbLigne est un entier
FichierExcel=("\\S51017020\Organisation$\Applications\Habilitations\SIR\BASES_IMPORT_ EXPORT\EXPORT_TABLEAU_HABILITATIONS_AGENTS.xlsx")
HSupprimeTout(AGENTS)
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)
AGENTS.responsable= xlsDonnée (IdFichierXLS,i,5,Vrai)
AGENTS.statut= xlsDonnée (IdFichierXLS,i,6,Vrai)
AGENTS.Etat = xlsDonnée(IdFichierXLS,i,7,Vrai)
AGENTS.date_etat = xlsDonnée(IdFichierXLS,i,8,Vrai)
AGENTS.tel= xlsDonnée (IdFichierXLS,i,9,Vrai) |
Partager