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

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

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).

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)