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 58 59 60 61 62
| FichierXLS est une chaîne
IdFichier="C:\SIMAG\SIMAG_Import\SAV.xls"
IdFichierXLS est un entier
// Sélection du fichier XLS
FichierXLS = "C:\SIMAG\SIMAG_Import\SAV.xls"
// Ouverture du fichier sélectionné
IdFichierXLS = xlsOuvre(FichierXLS)
t est un entier
nNbligne est un entier= xlsNbLigne(IdFichierXLS)
Trace(xlsNbLigne(IdFichierXLS))
SI IdFichierXLS <> -1 ALORS
POUR t = 2 A nNbligne
TABLE_SAV.COL_Colonne1 = xlsDonnée(IdFichierXLS, t, 1)
TABLE_SAV.COL_Colonne2 = xlsDonnée(IdFichierXLS, t, 2)
TABLE_SAV.COL_Colonne3 = xlsDonnée(IdFichierXLS, t ,3)
TABLE_SAV.COL_Colonne4 = xlsDonnée(IdFichierXLS, t, 4)
TABLE_SAV.COL_Colonne5 = xlsDonnée(IdFichierXLS, t, 5)
TABLE_SAV.COL_Colonne6 = xlsDonnée(IdFichierXLS, t, 6)
TABLE_SAV.COL_Colonne7 = xlsDonnée(IdFichierXLS, t, 7)
TABLE_SAV.COL_Colonne8 = xlsDonnée(IdFichierXLS, t, 8)
TABLE_SAV.COL_Colonne9 = xlsDonnée(IdFichierXLS, t, 9)
TABLE_SAV.COL_Colonne10 = xlsDonnée(IdFichierXLS, t, 10)
TABLE_SAV.COL_Colonne11 = xlsDonnée(IdFichierXLS, t, 11)
TABLE_SAV.COL_Colonne12 = xlsDonnée(IdFichierXLS, t, 12)
TABLE_SAV.COL_Colonne13 = xlsDonnée(IdFichierXLS, t, 13)
TABLE_SAV.COL_Colonne14 = xlsDonnée(IdFichierXLS, t, 14)
TABLE_SAV.COL_Colonne15 = xlsDonnée(IdFichierXLS, t, 15)
TABLE_SAV.COL_Colonne16 = xlsDonnée(IdFichierXLS, t, 16)
TABLE_SAV.COL_Colonne17 = xlsDonnée(IdFichierXLS, t, 17)
TABLE_SAV.COL_Colonne18 = xlsDonnée(IdFichierXLS, t ,18)
TABLE_SAV.COL_Colonne19 = xlsDonnée(IdFichierXLS, t, 19)
TABLE_SAV.COL_Colonne20 = xlsDonnée(IdFichierXLS, t, 20)
TABLE_SAV.COL_Colonne21 = xlsDonnée(IdFichierXLS, t, 21)
TABLE_SAV.COL_Colonne22 = xlsDonnée(IdFichierXLS, t, 22)
TABLE_SAV.COL_Colonne23 = xlsDonnée(IdFichierXLS, t, 23)
TABLE_SAV.COL_Colonne24 = xlsDonnée(IdFichierXLS, t, 24)
TABLE_SAV.COL_Colonne25 = xlsDonnée(IdFichierXLS, t, 25)
TABLE_SAV.COL_Colonne26 = xlsDonnée(IdFichierXLS, t, 26)
TABLE_SAV.COL_Colonne27 = xlsDonnée(IdFichierXLS, t, 27)
TABLE_SAV.COL_Colonne28 = xlsDonnée(IdFichierXLS, t, 28)
TABLE_SAV.COL_Colonne29 = xlsDonnée(IdFichierXLS, t, 29)
TABLE_SAV.COL_Colonne30 = xlsDonnée(IdFichierXLS, t, 30)
TABLE_SAV.COL_Colonne31 = xlsDonnée(IdFichierXLS, t, 31)
TABLE_SAV.COL_Colonne32 = xlsDonnée(IdFichierXLS, t, 32)
TABLE_SAV.COL_Colonne33 = xlsDonnée(IdFichierXLS, t, 33)
TABLE_SAV.COL_Colonne34 = xlsDonnée(IdFichierXLS, t, 34)
TABLE_SAV.COL_Colonne35 = xlsDonnée(IdFichierXLS, t, 35)
TABLE_SAV.COL_Colonne36 = xlsDonnée(IdFichierXLS, t, 36)
TABLE_SAV.COL_Colonne37 = xlsDonnée(IdFichierXLS, t, 37)
TABLE_SAV.COL_Colonne38 = xlsDonnée(IdFichierXLS, t, 38)
TABLE_SAV.COL_Colonne39 = xlsDonnée(IdFichierXLS, t, 39)
TableAjoute(TABLE_SAV)
FIN
SINON
// Affichage du message d'erreur si l'ouverture n'a pas été effectuée
Erreur(xlsMsgErreur(IdFichierXLS))
FIN |
Partager