Kaillou, Forum AS400

Forum AS400 et de discussions


    Utiliser excel depuis un as400 avec un transfert ftp

    Partagez
    avatar
    Shewolf
    Admin

    Nombre de messages : 190
    Localisation : 91 idf
    Emploi : Analyste Réalisateur / Chef de Projets

    Utiliser excel depuis un as400 avec un transfert ftp

    Message par Shewolf le Mar 3 Juil - 17:38

    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.
    avatar
    Shewolf
    Admin

    Nombre de messages : 190
    Localisation : 91 idf
    Emploi : Analyste Réalisateur / Chef de Projets

    Re: Utiliser excel depuis un as400 avec un transfert ftp

    Message par Shewolf le Lun 12 Nov - 9:52

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

      La date/heure actuelle est Lun 20 Nov - 1:48