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 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57
| //sélecteur de fichier
sSel est une chaîne
sFichier est une chaîne
// Ouvre le sélecteur de fichiers
sSel = fSélecteur("", "", "Sélectionnez un fichier.....", "Tous les fichiers (*.*)" + TAB + "*.*", "*.*")
//sSel=fSélecteur(SAI_chemin_fichier_excel, "Sélectionnez un fichier...",
//"tous fichiers(*.xls)"+TAB+"*.xls*","*",fselOuvre+fselExiste)
SI sSel<>""ALORS
//SAI_chemin_fichier_excel=sSel
FIN
nIdfic est un entier
i est un entier
nResnblignes est un entier
nIdfic=xlsOuvre(sSel)//SAI_chemin_fichier_excel)
nResnblignes=xlsNbLigne(nIdfic)
//importation données dans la table
SI nIdfic<>-1 ALORS
SI OuiNon("Voulez vous importer les données ?") ALORS
Sablier(Vrai)
// POUR i = 0 A 23 pas -1
POUR i=0 A nResnblignes
TABLE_Valeur.COL_Colonne1=xlsDonnée(nIdfic,i,1)
TABLE_Valeur.COL_Colonne2=xlsDonnée(nIdfic,i,2)
TABLE_Valeur.COL_Colonne3=xlsDonnée(nIdfic,i,3)
TABLE_Valeur.COL_Colonne4=xlsDonnée(nIdfic,i,4)
TABLE_Valeur.COL_Colonne5=xlsDonnée(nIdfic,i,5)
TABLE_Valeur.COL_Colonne6=xlsDonnée(nIdfic,i,6)
TABLE_Valeur.COL_Colonne7=xlsDonnée(nIdfic,i,7)
TABLE_Valeur.COL_Colonne8=xlsDonnée(nIdfic,i,8)
TABLE_Valeur.COL_Colonne9=xlsDonnée(nIdfic,i,9)
TableAjoute(TABLE_Valeur,COL_Colonne1+TAB+COL_Colonne2+TAB+COL_Colonne3+TAB+COL_Colonne4+TAB+COL_Colonne5+TAB+COL_Colonne6+TAB+COL_Colonne7+TAB+COL_Colonne8+TAB+COL_Colonne9)
FIN
Info("Importation terminée")
FIN
FIN
//Erreur("Le fichier Excel est déjà ouvert !"+RC+"ou le lien n'est pas
//valide." )
RETOUR
Sablier(Faux)
xlsFerme(nIdfic) |
Partager