IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

VBA pour recuperer des donnees XML et les copier dans des fichiers xml


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Étudiant
    Inscrit en
    Juillet 2012
    Messages
    44
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Juillet 2012
    Messages : 44
    Par défaut VBA pour recuperer des donnees XML et les copier dans des fichiers xml
    Bonjour

    J'ai un fihcier xml organisé comme suit :

    Code xml : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    <JDDs>
       <JDD>
          <id></id>
          <numC>
             <numC1></numC1>
             <numC2></numC2>
             <numC3></numC3>
          </numC>
       </JDD>
       <JDD>
          <id></id>
          <numC>
             <numC1></numC1>
             <numC2></numC2>
             <numC3></numC3>
          </numC>
       </JDD>
       <JDD>
          <id></id>
          <numC>
             <numC1></numC1>
             <numC2></numC2>
             <numC3></numC3>
          </numC>
       </JDD>

    et je voudrais recupérer chaque portion de code
    Code xml : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
       <JDD>
          <id></id>
          <numC>
             <numC1></numC1>
             <numC2></numC2>
             <numC3></numC3>
          </numC>
       </JDD>
    dans des fichiers distinct (xml).
    Je n'ai vraiment aucune piste, parce que je ne sais pas très bien manipuler les xml avec excel, je tatonne un peu.


    Bien cordialement.

  2. #2
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Il faut le traiter comme n'importe quel fichier texte.

    Il y a certainement de nombreuses façon de traiter ça.
    A ta place, je ferais ça simplement en séquentiel.

    Tu ouvres le fichier source en lecture (Input).
    https://msdn.microsoft.com/fr-fr/lib.../gg264163.aspx

    Tu lis chaque ligne en mettant un Input dans une boucle avec un EOF().
    https://msdn.microsoft.com/fr-fr/lib.../gg264519.aspx

    Si la chaine récupérée est un <JDD>, tu ouvres un fichier cible en écriture (Output).

    Quelle que soit la chaine récupérée, tu l'écris dans le fichier cible.
    https://msdn.microsoft.com/fr-fr/lib.../gg264278.aspx

    Si la chaine récupérée était un </JDD>, tu fermes le fichier cible.
    https://msdn.microsoft.com/fr-fr/lib.../gg264418.aspx

    A la fin de la boucle, tu fermes le fichier source.
    Tu peux aussi vérifier qu'il ne reste pas un fichier cible ouvert (au cas où).

Discussions similaires

  1. Récupérer les dates dans un fichier XML
    Par Norore dans le forum Langage
    Réponses: 2
    Dernier message: 07/02/2011, 15h40
  2. Réponses: 1
    Dernier message: 09/11/2010, 15h50
  3. Réponses: 8
    Dernier message: 01/05/2007, 17h13
  4. [](VB) Récupérer les données dans un fichier .xml
    Par Furius dans le forum VBScript
    Réponses: 4
    Dernier message: 02/10/2005, 20h39

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo