PreviousNext
Help > Programmation avec LAUNCHER Office > Les commandes LNCCMD > Liste des commandes > Commande XLMENU
Commande XLMENU

Construit une barre de menu personnalisée sous EXCEL.


XLMENU doit être utilisé avec les commandes XLADDINS et XLWAIT.

 

Syntaxe

 

CHGVAR

VAR(&CMD) VALUE('XLMENU')

CHGVAR

VAR(&PARM1) VALUE('

Captions="Libellés des boutons"
[;Tips="Bulle d’aide"]

[;Remove]

')

CHGVAR

VAR(&PARM2) VALUE(' ')

CALL

PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +
&PARM2 &RESULT)

 

Paramètres

Paramètres

 

Parm1

Captions : Permet de donner le libellé de chaque bouton de la nouvelle barre de menu.
Les libellés sont séparés entre eux par un point virgule ( ;).
Le nombre de libellés détermine le nombre de boutons de la barre de menu.


Tips : Permet d’afficher une bulle d’aide pour chaque bouton.

Les tips sont séparés entre eux par un point virgule ( ;). Leur nombre doit correspondre au nombre de libellés.


Remove : supprime le précédent menu.

 

 

 

Remarques

1) 

Le complément "LNCExcelAddin.xla" doit être chargé par la commande XLADDINS avant d’utiliser XLMENU.
Lors de l’appel de la commande XLWAIT, le programme AS/400 se met en attente d’une action de la part de l’utilisateur. Il reprend la main quand Excel est fermé, ou sur l’action d’un des boutons du nouveau menu.
Au retour de la commande XLWAIT, la variable &RESULT contient le numéro sur 5 chiffres du bouton actionné (de 1 à n).

 

2)

Le menu personnalisé apparaîtra dans l'onglet "Complément" du menu Excel.

 

 

Exemple

 

CHGVAR

VAR(&CMD) VALUE('XLADDINS')

CHGVAR

VAR(&PARM1) VALUE('%LNCDIR%\LNCExcelAddin.xla')

CHGVAR

VAR(&PARM2) VALUE(' ')

CALL

PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +
&PARM2 &RESULT)

 

 

CHGVAR

VAR(&CMD) VALUE('XLMENU')

CHGVAR

VAR(&PARM1) VALUE('Captions="Valider;Annuler";Tips="Valider le document;Abandonner le document"')

CHGVAR

VAR(&PARM2) VALUE(' ')

CALL

PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +
&PARM2 &RESULT)

 

 

CHGVAR

VAR(&CMD) VALUE('XLWAIT')

CHGVAR

VAR(&PARM1) VALUE(' ')

CHGVAR

VAR(&PARM2) VALUE(' ')

CALL

PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +
&PARM2 &RESULT)