windev احسن واسرع طريقة للبرمجة

[قلام الحاج]

// Ouvre le sélecteur de fichiers
sFichier = fSélecteur("", "", "Sélectionnez un fichier...", "*" + TAB + "*", "*")
fich=xlsOuvre(sFichier,xlsEcriture)
SI ErreurDétectée=Faux ALORS
nBnrfeuil est un entier=xlsNbFeuille(fich)
POUR i=1 A nBnrfeuil
xlsFeuilleEnCours(fich,i)
nBrcl est un entier=xlsNbColonne(fich,Faux)
nBrli est un entier=xlsNbLigne(fich,Faux)
TableAjouteLigne(Table1,i,nBrcl,nBrli)
FIN
FIN