FORUM WINDEV

comment transformer en fonction automatique quelque soit le fichier
w_ndl,W_npl est un entier
W_npl=2
w_ndl=266
sW_don1,sw_don2,sw_don3,sw_don4,sw_don5,sw_don6,sw_don7 est une chaîne
rW_don11 est un réel
w_nbl est un entier
idf est un entier
fxls est une chaîne
fxls=fSélecteur("","","Sélection d'un fichier XLS","Fichier XLS"+TAB+"*.XLS","XLS",fselOuvre+fselExiste)
idf =xlsOuvre(fxls)
w_nbl=W_npl
TANTQUE w_nbl <=w_ndl
sW_don1=xlsDonnée(idf,w_nbl,1,Faux)
sw_don2=xlsDonnée(idf,w_nbl,2,Faux)
sw_don3=xlsDonnée(idf,w_nbl,3,Faux)
sw_don4=xlsDonnée(idf,w_nbl,4,Faux)
sw_don5=xlsDonnée(idf,w_nbl,5,Faux)
sw_don6=xlsDonnée(idf,w_nbl,6,Faux)
sw_don7=xlsDonnée(idf,w_nbl,7,Faux)
Fichier.rubrique1=sW_don1
Fichier.rubrique2=sw_don2
Fichier.rubrique3=sw_don3
Fichier.rubrique4=sw_don4
Fichier.rubrique5=sw_don5
Fichier.rubrique6=sw_don6
Fichier.rubrique7=sw_don7
HAjoute(fichier)
w_nbl++
FIN
On peut améliorer la programmation ci-dessus en utilisant les fonctions suivantes
xlsDonnée
Récupère les données d'une cellule d'un fichier XLS
xlsFerme
Ferme un fichier XLS
xlsFeuilleEnCours
Permet de connaître ou modifier la feuille courante d'un fichier XLS
xlsMsgErreur
Renvoie le libellé de la dernière erreur due à une fonction X
xlsNbColonne
Renvoie le nombre de colonnes d'un fichier XLS
xlsNbFeuille
Renvoie le nombre de feuilles d'un fichier XLS
xlsNbLigne
Renvoie le nombre de lignes d'un fichier XLS
xlsOuvre
Ouvre un fichier XLS
xlsTitreColonne
Récupère l'intitulé d'une colonne d'un fichier XLS
xlsTypeColonne
Renvoie le type des données saisies dans une colonne d'un fichier XLS
xlsVersion
Renvoie la version d'Excel utilisée
merci pour l'aide