Appelle une méthode de l’objet Excel.Application.
Syntaxe
|
CHGVAR |
VAR(&CMD) VALUE('XLMETHOD') |
|
CHGVAR |
VAR(&PARM1) VALUE('Méthode') |
|
CHGVAR |
VAR(&PARM2) VALUE(' ') |
|
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT)) |
|
MONMSG |
MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR)) |
Paramètres
|
Paramètres |
|
|
Parm1 |
Le chemin complet de la méthode à appeler. |
|
|
Remarque
La commande XLMETHOD permet d'exécuter depuis l'AS/400 des méthodes du langage VBA Excel.
Le contenu de Parm1 respecte la syntaxe utilisée en Visual Basic.
Il est possible d'utiliser toutes les constantes d’Excel et Visual Basic Application ou bien la valeur de la constante elle-même.
Pour avoir une idée des méthodes à appeler, placez vous sous Word en mode "Enregistrement de macros" : Menu "Outils" – "Macro" – "Nouvelle macro".
Faites les opérations désirées au clavier et souris.
Arrêtez l'enregistrement de macro, et allez voir le code généré par Word : Menu "Outils" – "Macro" – "Macros" – "Modifier".
Exemple :
La macro qui active le graphique et modifie une propriété est la suivante :
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowPercent, LegendKey:=True _
, HasLeaderLines:=False
Note : Il y a 2 différences à noter entre la syntaxe VB d’Excel et la syntaxe LAUNCHER :
1) Quand on sélectionne un objet d'une collection, il faut ajouter ".Item" après le nom de la collection.
Pour sélectionner "Graphique 1" dans la collection des graphiques, la syntaxe VB :
ActiveSheet.ChartObjects("Graphique 1")
Devient
ActiveSheet.ChartObjects.Item("Graphique 1")
2) Les noms de paramètres ( Nom:=valeur ) est propre à la syntaxe VB.
Avec LAUNCHER, il faut lister les valeurs de chaque paramètre, dans l'ordre attendu, séparés par ';'
L'instruction suivante
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowPercent, LegendKey:=True
Devient
ActiveChart.ApplyDataLabels(xlDataLabelsShowPercent;True)
Sinon, optez pour l'écriture d'une macro sous Word, que vous appellerez par XLEXEMACRO.
Exemple
L’exemple ci-dessous active la feuille 2 du classeur Excel
|
CHGVAR |
VAR(&CMD) VALUE('XLMETHOD') |
|
CHGVAR |
VAR(&PARM1) VALUE('Sheets.Item("Feuil2").Activate') |
|
CHGVAR |
VAR(&PARM2) VALUE(' ') |
|
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT)) |
Voir aussi