Kaillou, Forum AS400

Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Kaillou, Forum AS400

Forum AS400 et de discussions

Le Deal du moment :
Google Pixel 7 5G – Smartphone 6,3″ OLED ...
Voir le deal
316 €

2 participants

    Transfert AS400 vers Excel

    avatar
    Famu
    Nouveau
    Nouveau


    Nombre de messages : 2

     Transfert AS400 vers Excel  Empty Transfert AS400 vers Excel

    Message par Famu 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.
    Shewolf
    Shewolf
    Admin


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

     Transfert AS400 vers Excel  Empty Re: Transfert AS400 vers Excel

    Message par Shewolf 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
    avatar
    Famu
    Nouveau
    Nouveau


    Nombre de messages : 2

     Transfert AS400 vers Excel  Empty Re: Transfert AS400 vers Excel

    Message par Famu Mar 17 Mar - 19:16

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


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

     Transfert AS400 vers Excel  Empty Re: Transfert AS400 vers Excel

    Message par Shewolf Mer 18 Mar - 13:02

    de rien, vous aussi Smile

    Contenu sponsorisé


     Transfert AS400 vers Excel  Empty Re: Transfert AS400 vers Excel

    Message par Contenu sponsorisé


      La date/heure actuelle est Jeu 28 Mar - 20:08

      Ne ratez plus aucun deal !
      Abonnez-vous pour recevoir par notification une sélection des meilleurs deals chaque jour.
      IgnorerAutoriser