Exemple d'utilisation de la commande xlsNbcolonne

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués

Le code suivant permet d'obtenir le nombre de colonnes d'un fichier XLS. Les colonnes entièrement vides ne sont pas prises en compte (booléen Vrai ). Ce fichier est préalablement ouvert avec la fonction xlsOuvre .

// Déclaration des variables
IdFichierXLS est un entier
ResNbColonnes est un entier
// Ouverture d'un fichier XLS
IdFichierXLS = xlsOuvre("C:\MesRépertoires\MesFichiers\Fichier.XLS")
SI IdFichierXLS<> -1 ALORS
   // Nombre de colonnes
   ResNbColonnes = xlsNbColonne (IdFichierXLS, Vrai )
   SI ResNbColonnes<> -1 ALORS
     SI ResNbColonnes= 0 ALORS
          // Il n'y a pas de colonnes
          Info("Le fichier XLS ne contient pas de colonnes")
       SINON
          // Affichage du nombre de colonnes
          Info("Le fichier contient : " + ResNbColonnes + "colonnes")
       FIN
   SINON
      // Affichage du message d'erreur
    Erreur(xlsMsgErreur(IdFichierXLS))
   FIN
SINON
   // Affichage du message d'erreur si l'ouverture n'a pas été effectuée
    Erreur(xlsMsgErreur(IdFichierXLS))
FIN
// Fermeture du fichier XLS
xlsFerme(IdFichierXLS)