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 :

Création d'un fichier xml particulié [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Inscrit en
    Mai 2013
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mai 2013
    Messages : 16
    Par défaut Création d'un fichier xml particulié
    Bonjour à tous !

    Malgré mes recherches, je n'arrive pas à résoudre mon problème.
    Dans le cadre de mon travail je dois générer un fichier grpx (qui est en fait un xml où on a changer l'extension)

    Ce fichier est sous cette forme :

    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
    <?xml version="1.0" encoding="UTF-8"?>
     
    <Groups Kind="Volatile" Created="2014-08-06T14:09:49.571+02:00" Liuip="PME1.ID:CrawlerExcavator:::::::::" Version="2">
     
    	<Group Feature="" Roles="0">
     
    		<GroupLocale Lang="FRE">
    			<Name>sufix1</Name>
    			<Description></Description>
    		</GroupLocale>
     
    		<Group Feature="" Roles="0">
    			<GroupLocale Lang="FRE">
    				<Name>crit1</Name>
    				<Description></Description>
    			</GroupLocale>
    			<Item Identity="IRGearOilTempB15"/>
    		</Group>
     
    	</Group>
     
    </Groups>

    Le problème c'est que n'arrive pas à reproduir un fichier avec des noeuds comme ça...
    Comment mettre des guillemets dans une balise ? Même question pour le égal ?

    Comment appel t'on cela ? des paramètres ? Je suis un peu perdu.....

    Je me suis arrêté sur un exemple créer pour comprendre l'utilisation des fonctions xml mais mon savoir s'arrête ici :

    Code xml : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    <?xml version="1.0" encoding="UTF-8"?>
    <blabla>
    	<info1>test text 1</info1>
    	<info2>test text 2</info2>
    	<info>
    		<subinfo1>test sous-text 1</subinfo1>
    		<subinfo2>test sous-text 2</subinfo2>
    	</info>
    </blabla>


    Je suis perdu pour mettre ces genres de "paramètres"...
    Impossible de créer une balise : <GroupLocale Lang="FRE"> et de la fermer avec un </GroupLocale>


    Je peux poster mon code VB mais je ne pense aps que cela soit utile ? Fais-je bien d'utiliser la librairie microsoft XML ? Quelqu'un pourrait me montrer la voie à prendre ?


    Je ne sais pas si je me suis bien exprimer pour exposer mon problème, si vous avez des quesitons n'hésitez pas


    D'avance merci !

  2. #2
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    bonjour,

    cela aurait était bien de voir ton code ... , voir du côté des attributs ...

    http://vb.developpez.com/faq/vbs?pag...une-balise-XML

  3. #3
    Invité
    Invité(e)
    Par défaut
    Bonjour,
    il faut doubler les guillemet

  4. #4
    Membre averti
    Homme Profil pro
    Inscrit en
    Mai 2013
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mai 2013
    Messages : 16
    Par défaut
    Citation Envoyé par bbil Voir le message
    bonjour,

    cela aurait était bien de voir ton code ... , voir du côté des attributs ...

    http://vb.developpez.com/faq/vbs?pag...une-balise-XML
    Premièrement, désolé de cette semaine sans réponse de ma part, c'était ma seule semaine de vacances de l'été...

    Merci à toi bbil! c'est exactement ce que je cherchais ! Je vais essayer de me débrouiller, je reviendrais pour donner des nouvelles ou peu être avec une question.

    Merci aussi à toi rdurupt mais j'avais déjà essayer, et il me disait que les symboles = ou les " étaient interdit.

  5. #5
    Membre averti
    Homme Profil pro
    Inscrit en
    Mai 2013
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mai 2013
    Messages : 16
    Par défaut
    Après quelques recherches et grâce à votre aide j'ai bien avancé !

    Pour expliquer mon besoin, ce fichier xml est une arborescence de dossiers et sous-dossiers dans lesquels se trouvent des variables.

    Pour la création de dossier et sous-dossier j'y arrive bien. Le problème est pour ajouter des variables.

    Je m'éxplique :

    Code xml : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    		<Group Feature="" Roles="0">
    			<GroupLocale Lang="FRE">
    				<Name>crit1</Name>
    				<Description></Description>
    			</GroupLocale>
    			<Item Identity="IRGearOilTempB15"/>
    		</Group>

    Dans cet exemple, on ajoute la variable "IRGearOiTempB15" dans le dossier "crit1"
    POur la création des dossier et tout c'est bon mais je ne sais comment générer cette ligne :

    Code xml : Sélectionner tout - Visualiser dans une fenêtre à part
    <Item Identity="IRGearOilTempB15"/>

    J'arrive très bien a faire des choses comme ça :
    Code xml : Sélectionner tout - Visualiser dans une fenêtre à part
     <titre>blablabla</titre>
    Par quoi dois-je passer ? comment fait-on ?

    D'avance merci !

    ps : je peux poster un peu de mon code pour les intéressés

    Edit : apparemment c'est une balise vide avec un attribut ? Je vais regarder de plûs près !

  6. #6
    Membre émérite Avatar de Nico Chg
    Homme Profil pro
    Apprenti ingénieur Business Development
    Inscrit en
    Juillet 2014
    Messages
    352
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Apprenti ingénieur Business Development
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Juillet 2014
    Messages : 352
    Par défaut
    Bonjour,

    Peux tu poster ton code ?

    Voila un exemple de code

    Code : 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
    Dim oXML As MSXML2.DOMDocument
    Dim oNode As MSXML2.IXMLDOMNode
    Dim oElem As Object
    Dim oSubElem as Object
     
    Set oXML = New MSXML2.DOMDocument
     
    oXML.async = False
    oXML.Load path\file.xml
     
    For Each oNode In oXML.DocumentElement.ChildNodes
         Set oElem = oXML.SelectSingleNode("Group")
         Set oElem = oXML.createElement("Item")
         oElem.setAttribute "Identity", "IRGearOilTempB15"
         oNode.appendChild oElem
         oNode.appenchild oXML.createTextNode(vbCrlf)           'Indentation, effectue un retour chariot
         oNode.appenchild oXML.createTextNode(vbTab)           'Effectue une tabulation
     
              Set oSubElem = oXML.createElement("SubItem")
              oSubElem.setAttribute "SubAtt1", "Attr1"
              oSubElem.setAttribute "SubAtt2", "Attr2"
              oSubElem.Text = "toto"
              oElem.appendChild oSubElem
         oElem.appenchild oXML.createTextNode(vbCrlf)          
    Next oNode
    Ce qui donne normalement, je n'ai pas fait de test, et j'ai du mal avec l'indentation (ce n'est pas obligatoire !)
    Code xml : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    <Group>
    	<Item Identity="IRGearOilTempB15">
                    <SubItem SubAtt1="Attr1" SubAtt2="Attr2">toto</SubItem>
            </Item>
    </Group>

    Citation Envoyé par prorider68 Voir le message
    Dans cet exemple, on ajoute la variable "IRGearOiTempB15" dans le dossier "crit1"
    Ah bon ? Moi je vois un Ensemble Group contenant un sous ensemble GroupLocal et Item. Et enfin, dans le sous ensemble GroupLocal je vois un Sous-sous ensemble Name qui porte le nom de Crit1.

    Mais je vois pas de "IRGearOiTempB15" dans le dossier cirt1

    Je remercie Bbil pour le lien, toutes les informations sont présentes.
    je remet le lien de bbil Click ici et un autre lien sur lequel je me suis également appuyé Click ici

  7. #7
    Membre averti
    Homme Profil pro
    Inscrit en
    Mai 2013
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mai 2013
    Messages : 16
    Par défaut
    Citation Envoyé par Nico Chg Voir le message
    Ah bon ? Moi je vois un Ensemble Group contenant un sous ensemble GroupLocal et Item. Et enfin, dans le sous ensemble GroupLocal je vois un Sous-sous ensemble Name qui porte le nom de Crit1.

    Mais je vois pas de "IRGearOiTempB15" dans le dossier cirt1
    Je ne sais pas vr'aiment pourquoi il faut faut faire cela comme ça mais c'est ansi que ça fonctione.


    Utilisation de mon code :

    j'ai créé des fonctions pour créer des dossiers et des sous dossiers, puis une fonction pour ajouter des variables dans un dossier :

    Code : 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
    26
    27
    28
     
     
     
    'créer dossier principal
    Call creer_dossier_Pincipal("C:\Users\lfrjar1\Documents\TEST XML ET XSD CEDRIC CREATION GROUPE SCULI\test.xml", "DOSSIER")
     
     
    'dossier sufix
    Call creer_dossier_sufix("C:\Users\lfrjar1\Documents\TEST XML ET XSD CEDRIC CREATION GROUPE SCULI\test.xml", "SUFIX1")
    'dossier critère
    Call creer_dossier_critere("C:\Users\lfrjar1\Documents\TEST XML ET XSD CEDRIC CREATION GROUPE SCULI\test.xml", "s1crit1", "SUFIX1")
    Call creer_dossier_critere("C:\Users\lfrjar1\Documents\TEST XML ET XSD CEDRIC CREATION GROUPE SCULI\test.xml", "s1crit2", "SUFIX1")
    Call creer_dossier_critere("C:\Users\lfrjar1\Documents\TEST XML ET XSD CEDRIC CREATION GROUPE SCULI\test.xml", "s1crit3", "SUFIX1")
     
     
     
    'dossier sufix
    Call creer_dossier_sufix("C:\Users\lfrjar1\Documents\TEST XML ET XSD CEDRIC CREATION GROUPE SCULI\test.xml", "SUFIX2")
    'dossier critère
    Call creer_dossier_critere("C:\Users\lfrjar1\Documents\TEST XML ET XSD CEDRIC CREATION GROUPE SCULI\test.xml", "s2crit1", "SUFIX2")
    Call creer_dossier_critere("C:\Users\lfrjar1\Documents\TEST XML ET XSD CEDRIC CREATION GROUPE SCULI\test.xml", "s2crit2", "SUFIX2")
    Call creer_dossier_critere("C:\Users\lfrjar1\Documents\TEST XML ET XSD CEDRIC CREATION GROUPE SCULI\test.xml", "s2crit3", "SUFIX2")
     
     
    'ajouter des variable
     
    Call Ajouter_variable("C:\Users\lfrjar1\Documents\TEST XML ET XSD CEDRIC CREATION GROUPE SCULI\test.xml", "IRSafety", "SUFIX1", "s1crit3")
    Call Ajouter_variable("C:\Users\lfrjar1\Documents\TEST XML ET XSD CEDRIC CREATION GROUPE SCULI\test.xml", "IRSensB55_1_2", "SUFIX2", "s2crit2")


    Ce qui donne dans logiciel :

    Nom : Sculi_exemple.png
Affichages : 213
Taille : 17,6 Ko


    exemple d'un fonction pour créer un sous dossier : (le code est dégeulasse, mais ça fonctionne....)

    Code : 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
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
     
     
    Public Sub creer_dossier_critere(ByVal filename As String, ByVal nom_dossier As String, ByVal nom_dossier_sufix As String)
     
        Dim xmlDoc As DOMDocument, root As IXMLDOMElement
        Set xmlDoc = New DOMDocument
        xmlDoc.async = False
        xmlDoc.Load filename
     
     For Each oNode In xmlDoc.DocumentElement.ChildNodes
        For Each oChild In oNode.ChildNodes
     
            If InStr(oChild.Text, nom_dossier_sufix) Then
     
                    Dim LO_Noeud As IXMLDOMNode
                    Set LO_Noeud = oChild
     
                    Set o1 = xmlDoc.createElement("Group")
                    o1.setAttribute "Roles", "0"
                    o1.setAttribute "Feature", ""
     
                    LO_Noeud.appendChild o1
     
                    Set oSUFIX = xmlDoc.createElement("GroupLocale")
                    oSUFIX.setAttribute "Lang", "FRE"
                    o1.appendChild oSUFIX
     
                    Set oNom = xmlDoc.createElement("Name")
                    oNom.Text = nom_dossier
                    oSUFIX.appendChild oNom
                    Set oNom = Nothing
                    Set oDescription = xmlDoc.createElement("Description")
                    oDescription.Text = ""
                    oSUFIX.appendChild oDescription
                    Set oDescription = Nothing
     
                    Set o1 = Nothing
     
            End If
        Next
    Next
     
     
    xmlDoc.Save (filename)
    Set xmlDoc = Nothing
     
     
    End Sub
    Je ne m'amuse pas à faire ça très propre vue qu'une fois le programme terminé, il ne servira qu'une seule fois (maqs traitera dans les 150 dossiers et 100 sous-dossiers par dossier. le tout pour trier environ 65000 variables...

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [JDOM] Création d'un fichier xml avec jdom
    Par fabricew59 dans le forum Format d'échange (XML, JSON...)
    Réponses: 4
    Dernier message: 09/08/2006, 11h17
  2. [XSD] Création d'un fichier XML
    Par Taylor² dans le forum Format d'échange (XML, JSON...)
    Réponses: 1
    Dernier message: 06/06/2006, 22h16
  3. Création d'un fichier XML
    Par fantasio31 dans le forum Général Python
    Réponses: 2
    Dernier message: 09/09/2004, 17h06
  4. [XML] Création d'un fichier XML
    Par TheDarkLewis dans le forum Langage
    Réponses: 6
    Dernier message: 24/07/2004, 18h27
  5. ligne d'entête création d'un fichier XML
    Par cduterme dans le forum XML/XSL et SOAP
    Réponses: 6
    Dernier message: 23/02/2004, 15h30

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