Utiliser excel depuis un as400 avec un transfert ftp

Utiliser excel depuis un as400 avec un transfert ftp.

Sur l'as400, le CL qui permet de lancer des ordres PC en direct :

0015.00 PGM
0016.00
0017.00 /*******************************************************/
0018.00 /* lancer l'intégrateur de commandes PC */
0019.00 STRPCO
0020.00 MONMSG MSGID(IWS4010)
0021.00
0022.00 STRPCCMD PCCMD('C:') PAUSE(*NO)
0023.00 MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(FIN))
0024.00
0025.00 STRPCCMD PCCMD('CD mondossierpc') PAUSE(*NO)
0026.00 MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(FIN))
0027.00
0028.00 STRPCCMD PCCMD('C:\mondossierpc\TFR.BAT') PAUSE(*NO)
0029.00
0030.00 FIN: ENDPGM

et sur le pc, dans le répertoire mondossierpc
TFR.BAT

ftp -s:C:\mondossierpc\TFR.TXT 123.123.123.123 ( adresse IP de ton AS/400 )

"C:\Program Files\Microsoft Office\Office\EXCEL.EXE"
C:\mondossierpc\ IMPORT.XLS

(si EXCEL est sur ton disque C: , sinon, adapter)

TFR.TXT

logginas400

passwordas400

cd mondossieras400

get monfichier.monmembre "C:\mondossierpc\fichierrécupéré.TXT"

quit

et le fichier IMPORT.XLS
qui contient une macro qui importe fichierrécupéré.TXT dans EXCEL et en fait toute la mise en page.

le même pour world:

STRPCCMD +
PCCMD('"C:\Program Files\Microsoft Office\Office\winword.exe" "import.doc"') +
PAUSE(*NO)

ou en générique :

STRPCCMD PCCMD('START import.doc')