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
| PROCEDURE Parcours_Fichier_Xls()
// Déclaration des variables
IdFichier est un entier
ResLecture est une chaîne
ResFermeFichier est un entier
chnvoie,chlibelle,chjour,chprogjour sont des chaînes
D1,D2,D3,D4,F1,F2,F3,F4,indice2 sont des entiers
// Sélection du fichier à ouvrir
NomCheminFichier2 = fSélecteur (repertoireDuSite ,"PRG-*.csv","Sélectionner un fichier","Feuille de Calculs Excel (*.csv)"+TAB+"*.csv" ,"*.csv", fselOuvre+ fselExiste )
// Ouverture du fichier
IdFichier = fOuvre(NomCheminFichier2, foLectureEcriture )
// Affichage du message d'erreur si l'ouverture n'a pas été effectuée
SI IdFichier = -1 ALORS
Erreur(ErreurInfo( errMessage ))
SINON
ResLecture = fLitLigne(IdFichier)
// Affichage du message d'erreur si la lecture n'a pas été effectuée
SI ResLecture = "" ALORS
Erreur(ErreurInfo( errMessage ))
SINON
BOUCLE
ResLecture = fLitLigne(IdFichier)
SI ResLecture = EOT OU ResLecture = "" ALORS SORTIR
lignedanstableau(Table1, ResLecture)
FIN
FIN
// Fermeture du fichier
ResFermeFichier = fFerme(IdFichier)
SI ResFermeFichier = -1 ALORS
// Affichage du message d'erreur si la fermeture n'a pas été effectuée
Erreur(ErreurInfo( errMessage ))
FIN
FIN |
Partager