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 30 31 32
| PROCEDURE ImporterFicXLS()
xlClasseurExp est un xlsDocument
sNomFichier est une chaîne
nLigne_Debut,nCol_Exp_Français,nCol_Exp_Langue sont des entiers
// à adapter éventuellement les coordonnées en fonction de votre fichier xls
nLigne_Debut=2 // numéro par défaut, de ligne à partir de laquelle l'import va s'opérer
nCol_Exp_Français=1 // numéro par défaut, de la colonne mot en français
nCol_Exp_Langue=2 // numéro par défaut, de la colonne mot en anglais
sNomFichier = fSélecteur("", "", ...
"Sélectionnez un fichier..........", ...
"Fichiers Excel *.xls, *.xlsx"+TAB+"*.xlsx;*.xls", "*.xlsx", fselOuvre+fselExiste)
SI sNomFichier = "" ALORS RETOUR
xlClasseurExp = xlsOuvre(sNomFichier, xlsEcriture)
SI xlClasseurExp <> -1 ALORS
SI OKAnnuler("Confirmez-vous l'import du fichier Excel")=Vrai ALORS
HRAZ(LesExpressions)
POUR i = nLigne_Debut _A_ xlsNbLigne(xlClasseurExp)-1
LesExpressions.NDX_ExpFrancais=xlsDonnée(xlClasseurExp, i, nCol_Exp_Français)
LesExpressions.ExpEnLangue=xlsDonnée(xlClasseurExp, i, nCol_Exp_Langue)
HAjoute(LesExpressions)
FIN
FIN
xlsFerme(xlClasseurExp)
ExécuteTraitement(TABLE_LesExpressions,trtInit)
TableAffiche(TABLE_LesExpressions,taDébut)
FIN |
Partager