1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| NomFichierXls est une chaîne
NomFichierXls = fSélecteur(fRepExe(), "", ...
"Sélectionnez un fichier.....", ...
"Tous fichiers (*.*)"+TAB+"*.*", "*", fselOuvre + fselExiste)
SI NomFichierXls = "" ALORS RETOUR
nIdx est un entier = xlsOuvre(NomFichierXls)
nbligne est un entier = xlsNbLigne(nIdx)
i est un entier = 2
TANTQUE i <= nbligne
TableAjouteLigne(Table1,xlsDonnée(nIdx,i,1,Vrai),xlsDonnée(nIdx,i,2,Vrai),xlsDonnée(nIdx,i,3,Vrai),xlsDonnée(nIdx,i,4,Vrai),xlsDonnée(nIdx,i,5,Vrai),xlsDonnée(nIdx,i,6,Vrai),xlsDonnée(nIdx,i,7,Vrai),xlsDonnée(nIdx,i,8,Vrai),xlsDonnée(nIdx,i,9,Vrai),xlsDonnée(nIdx,i,10,Vrai),xlsDonnée(nIdx,i,11,Vrai),xlsDonnée(nIdx,i,12,Vrai),xlsDonnée(nIdx,i,13,Vrai))
i++
FIN
Bouton2..Etat = Actif
bouton1..Etat = Grisé
Info("Attention vérifiée la dernière ID de la Table pour éviter la corruption les ID sont des clefs Automatiques") |
Partager