pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

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 de renvoyer un message d'erreur si les fonctions xlsOuvre et xlsDonnée ont généré une erreur.



// Déclaration des variables
ResDonnée
est une chaîne
IdFichierXLS
est un entier

// Ouverture d'un fichier XLS
IdFichierXLS
= xlsOuvre ( "C:\MesRépertoires\MesFichiers\Fichier.XLS" )

SI IdFichierXLS <> - 1 ALORS
// Récupération du contenu d'une cellule

ResDonnée
= xlsDonnée ( IdFichierXLS , 3 , 4 )

SI ResDonnée = "" ALORS
SI xlsMsgErreur ( IdFichierXLS ) = "" ALORS
// La cellule est vide
Info ( "La cellule est vide" )
SINON
// Affichage du message d'erreur si la récupération n'a pas été effectuée

Erreur ( xlsMsgErreur ( IdFichierXLS ))
// Identique à : Erreur(ErreurInfo(errMessage))

FIN
SINON
// Affichage du contenu de la cellule
Info ( "Le contenu de la cellule est : " + ResDonnée )
FIN
SINON
// Affichage du message d'erreur si l'ouverture n'a pas été effectuée

Erreur
( xlsMsgErreur ( IdFichierXLS ))
// Identique à : Erreur(ErreurInfo(errMessage))

FIN


Le code suivant permet de renvoyer un message d'erreur si les fonctions xlsOuvre et xlsDonnée ont généré une erreur.



// Déclaration des variables
ResDonnée
est une chaîne
IdFichierXLS
est un entier

// Ouverture d'un fichier XLS
IdFichierXLS
= xlsOuvre ( "C:\MesRépertoires\MesFichiers\Fichier.XLS" )

SI IdFichierXLS <> - 1 ALORS
// Récupération du contenu d'une cellule

ResDonnée
= xlsDonnée ( IdFichierXLS , 3 , 4 )

SI ResDonnée = "" ALORS
SI xlsMsgErreur ( IdFichierXLS ) = "" ALORS
// La cellule est vide
Info ( "La cellule est vide" )
SINON
// Affichage du message d'erreur si la récupération n'a pas été effectuée

Erreur ( xlsMsgErreur ( IdFichierXLS ))
// Identique à : Erreur(ErreurInfo(errMessage))

FIN
SINON
// Affichage du contenu de la cellule
Info ( "Le contenu de la cellule est : " + ResDonnée )
FIN
SINON
// Affichage du message d'erreur si l'ouverture n'a pas été effectuée

Erreur
( xlsMsgErreur ( IdFichierXLS ))
// Identique à : Erreur(ErreurInfo(errMessage))

FIN