Kaillou, Forum AS400

Forum AS400 et de discussions


    Transfert AS400 vers Excel

    Partagez

    Famu
    Nouveau
    Nouveau

    Nombre de messages : 2

    Transfert AS400 vers Excel

    Message par Famu le Lun 16 Mar - 11:45

    Bonjour,
    Je souhaite modifier une macro VBA (qui fonctionne très bien) en y mettant une variable.
    Tout se déroule sans problème sauf à ce stade :

    Code initial: celui qui va bien

    Print #fn, "del c:\temp\GPOMST.dwl"
    Print #fn, "rtopcb c:\temp\GPOMST.tto"
    Print #fn, "del c:\temp\GPOMST.tto"
    Print #fn, "exit"
    Close #fn

    Code avec Variable: celui qui ne va pas !

    VariableDirectory= "c:\temp"

    Print #fn, "del VariableDirectory &'\GPOMST.dwl'"
    Print #fn, "rtopcb VariableDirectory &'\GPOMST.tto'"
    Print #fn, "del VariableDirectory &'\GPOMST.tto'"
    Print #fn, "exit"
    Close #fn

    Je pense que c'est un problèlme de " " ou de ' ' ou de ??? J'ai tout essayé...
    Merci pour votre aide,
    Famu.
    avatar
    Shewolf
    Admin

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

    Re: Transfert AS400 vers Excel

    Message par Shewolf le Mar 17 Mar - 15:58

    Bonjour ^^

    bah, dans :

    VariableDirectory= "c:\temp\"

    Print #fn, "del VariableDirectory &'GPOMST.dwl'"
    Print #fn, "rtopcb VariableDirectory &'GPOMST.tto'"
    Print #fn, "del VariableDirectory &'GPOMST.tto'"
    Print #fn, "exit"
    Close #fn

    le problème c'est que la variable est dans les guillemets, donc, normal que ça ne marche pas terrible,
    pour avoir une idée simple et rapide du résultat d'une chaine de ce type, perso., je la place dans une variable,
    et je l'affiche, ou je la debug, comme ça, je vois tout de suite ce qui va pas !

    Vous pouvez peut-être aussi ajouter une ligne tout en haut du source pour changer le directory en cours au besoin,
    pour diminuer le nombre de concaténations.

    Ce qui donnerai pour un premier test  (attention: pas testé, à vous de vous amuser :p ) :

    VariableDirectory= "c:\temp"
    VariableChaine= " "

    VariableChaine = "del "  & VariableDirectory  & "GPOMST.dwl"
    Print #fn, VariableChaine

    VariableChaine = "rtopcb " &  VariableDirectory & "GPOMST.tto"
    Print #fn, VariableChaine

    VariableChaine = "del " & VariableDirectory  & "GPOMST.tto"
    Print #fn, VariableChaine

    Print #fn, "exit"
    Close #fn



    bonne chance ^^


    Dernière édition par Shewolf le Mer 18 Mar - 13:02, édité 1 fois

    Famu
    Nouveau
    Nouveau

    Nombre de messages : 2

    Re: Transfert AS400 vers Excel

    Message par Famu le Mar 17 Mar - 19:16

    Bonsoir,
    Merci beaucoup pour votre aide. Ça marche !
    Très bonne fin de journée,
    Famu
    avatar
    Shewolf
    Admin

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

    Re: Transfert AS400 vers Excel

    Message par Shewolf le Mer 18 Mar - 13:02

    de rien, vous aussi Smile


    _________________
    Mon CV (Dév. / Unity 3D, Oracle et AS400) : https://fr.linkedin.com/pub/roseline-person/a0/137/4b3

    Admin de:

    Forum AS400 : http://www.forumas400.top-talk.net

    Contenu sponsorisé

    Re: Transfert AS400 vers Excel

    Message par Contenu sponsorisé


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