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) |
