PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2025 → erreur dans mon code
erreur dans mon code
Débuté par OHOU Stéphane Vital, 06 juin 2026 07:57 - 1 réponse
#1
Posté le 06 juin 2026 - 07:57
Bonjour à tous,
dans mon projet, utilise ce code pour importer des fichiers dans mon fichier de données.
Malheureusement je rencontre une reerur.
Voici le code:

IdFichierXLS est une entier
NbLigne est un entier
IdFichierXLS = fSélecteur("", "", "Sélectionnez un fichier...", "Tous" + TAB + "*.*", "xls", fselMulti)
SI IdFichierXLS <> -1 ALORS
NbLigne = xlsNbLigne(IdFichierXLS)
// Parcours des lignes (en ignorant les en-têtes éventuels avec i = 2)
POUR i = 2 À NbLigne
// Récupération des données selon le numéro de colonne
BEPCBACETS.IDBEPC = xlsDonnée(IdFichierXLS, i, 1)
BEPCBACETS.DDEN = xlsDonnée(IdFichierXLS, i, 2)
BEPCBACETS.ECOLE = xlsDonnée(IdFichierXLS, i, 3)
BEPCBACETS.CODE = xlsDonnée(IdFichierXLS, i, 4)
BEPCBACETS.TEL = xlsDonnée(IdFichierXLS, i, 5)
BEPCBACETS.EMAIL = xlsDonnée(IdFichierXLS, i, 6)
BEPCBACETS.LOCALISATION = xlsDonnée(IdFichierXLS, i, 7)
BEPCBACETS.CITE = xlsDonnée(IdFichierXLS, i, 8)

// Ajout dans le fichier HFSQL
HAjoute(BEPCBACETS)
TableDésactiveFiltre(TABLE_BEPCBACETS)
FIN
FIN

l'erreur affiche à la ligne 5. l'erreur est :
Vous appelez la fonction xlsNbLigne.
Le numéro 0 ne désigne pas une feuille Excel ouverte avec la fonction xlsOuvre.

Que faire ?
#2
Posté le 09 juin 2026 - 14:55
OHOU Stéphane Vital a écrit :
Bonjour à tous,
dans mon projet, utilise ce code pour importer des fichiers dans mon fichier de données.
Malheureusement je rencontre une reerur.
Voici le code:

IdFichierXLS est une entier
NbLigne est un entier
IdFichierXLS = fSélecteur("", "", "Sélectionnez un fichier...", "Tous" + TAB + "*.*", "xls", fselMulti)
SI IdFichierXLS <> -1 ALORS
NbLigne = xlsNbLigne(IdFichierXLS)
// Parcours des lignes (en ignorant les en-têtes éventuels avec i = 2)
POUR i = 2 À NbLigne
// Récupération des données selon le numéro de colonne
BEPCBACETS.IDBEPC = xlsDonnée(IdFichierXLS, i, 1)
BEPCBACETS.DDEN = xlsDonnée(IdFichierXLS, i, 2)
BEPCBACETS.ECOLE = xlsDonnée(IdFichierXLS, i, 3)
BEPCBACETS.CODE = xlsDonnée(IdFichierXLS, i, 4)
BEPCBACETS.TEL = xlsDonnée(IdFichierXLS, i, 5)
BEPCBACETS.EMAIL = xlsDonnée(IdFichierXLS, i, 6)
BEPCBACETS.LOCALISATION = xlsDonnée(IdFichierXLS, i, 7)
BEPCBACETS.CITE = xlsDonnée(IdFichierXLS, i, 8)

// Ajout dans le fichier HFSQL
HAjoute(BEPCBACETS)
TableDésactiveFiltre(TABLE_BEPCBACETS)
FIN
FIN

l'erreur affiche à la ligne 5. l'erreur est :
Vous appelez la fonction xlsNbLigne.
Le numéro 0 ne désigne pas une feuille Excel ouverte avec la fonction xlsOuvre.

Que faire ?


Bonjour

Il manque le xlsOuvre !

Doc windev dans l'aide:

FichierXLS est une chaîne
IDFichierXLS est un entier
// Sélection du fichier XLS
FichierXLS = fSélecteur("", "", "Sélection d'un fichier XLS", ...
"Fichier XLS" + TAB + "*.XLS", "XLS", fselOuvre + fselExiste)
// Ouverture du fichier sélectionné
IDFichierXLS = xlsOuvre(FichierXLS)
SI ErreurDétectée = Faux ALORS
// Traitements dans le fichier XLS
...
// Fin des traitements dans le fichier XLS
SINON
// Affichage du message d'erreur si l'ouverture n'a pas été effectuée
Erreur(xlsMsgErreur(IDFichierXLS))
FIN

Bon Dev.
→ Revenir à WINDEV 2025