XML avec ":" dans le nom de la balise

Version imprimable

16/08/2012, 17h21
jarod1990

XML avec ":" dans le nom de la balise

Bonjour,
Je suis entrain de programmer pour Access (en vba) une macro qui importerait le contenu d'un fichier xml. (fichier xml généré par un site du gouvernement pour l'histoire...).
Grace au tuto suivant (merci Baptiste !) : http://baptiste-wicht.developpez.com...ipt/xml/xpath/ je parviens parfaitement à lire un fichier xml. Tout ce complique lorsque la balise dans le fichier xml n'est plus <personnes> mais <fy:personnes> (le fichier xml m'arrive ainsi !) Les ":" (deux points) me posent évidament un problème. J'ai beau écrire :

Code:

For Each [fy:declarantElement] In xmlDoc.SelectNodes("blabla")...

ou encore

Code:

For Each [fy:declarant]Element In xmlDoc.SelectNodes("blabla")....

Rien ne va. Si quelqu'un a une idée pour encadrer ces ":".... Merci d'avance.
Jarod
16/08/2012, 18h35
ClaudeLELOUP

Bonjour,

n'est-ce pas plutôt les fonctions "Replace" ou "Instr" que tu devrais utiliser pour rechercher les occurrences et les traiter comme tu dois ?
16/08/2012, 19h29
jarod1990

Bonjour et merci pour ta suggestion.
La méthode pour parcourir le fichier le xml me convient très très bien. Donc j'aimerai vraiment la garder car elle présente plusieurs avantages.

Bonne soirée.
Jarod
18/08/2012, 16h29
LedZeppII

Bonjour,

Est-ce qu'il ne suffit pas de renommer la variable se trouvant entre For Each et In ?
Ça devrait au moins résoudre le problème de syntaxe.
Par exemple :

Code:

For Each fy_declarantElement In xmlDoc.SelectNodes("blabla")...

A+
25/08/2012, 13h48
jarod1990

Hélas non, je ne choisi pas le nom, il vient du fichier XML. J'ai finalement trouvé une solution :
- je parcours l'ensemble des lignes du fichier xml et copie/remplace les ":" aux endroits qui me posent problème.

ensuite, je lis le fichier ainsi modifié.

Merci qu'en même.

Jarod
26/08/2012, 15h01
LedZeppII

Bonjour,

Est-ce qu'il est possible de voir le fichier xml ?

A+
27/08/2012, 08h55
argyronet

Bonjour,

Citation:

Envoyé par LedZeppII

Est-ce qu'il est possible de voir le fichier xml ?

Bien tu as un très bon exemple : les fichiers de personnalisation du Ruban Office. Même problème... (Par ex : Access.officeUI).

Argy

Bonjour,

Merci Argy.
Je n'ai pas de problème avec les noms qualifiés par un espace de nom.
C'est pour ça que je voulais voir le fichier de jarod1990.

J'ai fait un test rapide avec Access.qat.
Voici le mien:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
<mso:customUI xmlns:mso="http://schemas.microsoft.com/office/2006/01/customui">
    <mso:ribbon>
        <mso:qat>
            <mso:sharedControls>
                <mso:control idQ="mso:FileOpenDatabase" visible="false" insertBeforeQ="mso:FileNewDatabase"/>
                <mso:control idQ="mso:FileSave" visible="true" insertBeforeQ="mso:FileNewDatabase"/>
                <mso:control idQ="mso:FilePrintQuick" visible="false" insertBeforeQ="mso:FileNewDatabase"/>
                <mso:control idQ="mso:FilePrintPreview" visible="false" insertBeforeQ="mso:FileNewDatabase"/>
                <mso:control idQ="mso:SpellingAccess" visible="false" insertBeforeQ="mso:FileNewDatabase"/>
                <mso:control idQ="mso:Undo" visible="true" insertBeforeQ="mso:FileNewDatabase"/>
                <mso:control idQ="mso:Redo" visible="true" insertBeforeQ="mso:FileNewDatabase"/>
                <mso:control idQ="mso:GroupViewsShowHide" visible="true" insertBeforeQ="mso:FileNewDatabase"/>
                <mso:control idQ="mso:FileNewDatabase" visible="false"/>
                <mso:control idQ="mso:FileSendAsAttachment" visible="false"/>
                <mso:control idQ="mso:DataRefreshAll" visible="false" insertBeforeQ="mso:ViewsModeMenu"/>
                <mso:control idQ="mso:ViewsModeMenu" visible="false"/>
            </mso:sharedControls>
        </mso:qat>
    </mso:ribbon>
</mso:customUI>

Voici maintenant un bout de code pour me sortir l'idQ des contrôles masqués (visible="false").

Code:

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
Sub tstAccessQat()
' utilise ref VBA : Microsoft XML, version 2 ...\system32\msxml.dll
Dim xmlDoc As MSXML.DOMDocument
Dim xmlNode As MSXML.IXMLDOMNode
Dim xmlAttr As MSXML.IXMLDOMAttribute
Dim sQatFile As String
 
sQatFile = "Chemin\Access.qat"
 
Set xmlDoc = New MSXML.DOMDocument
xmlDoc.async = False
xmlDoc.Load sQatFile
 
' Enumérer les éléments (noeuds) ayant un attribut visible à "false"
For Each xmlNode In xmlDoc.selectNodes("//mso:control[@visible='false']")
    ' Enumérer les attribut et imprimer l'idQ dans le fenêtre d'exécution de l'éditeur VBA
    For Each xmlAttr In xmlNode.Attributes
        If xmlAttr.Name = "idQ" Then
           Debug.Print xmlAttr.Value
        End If
    Next
Next
 
Set xmlDoc = Nothing
End Sub

Ça me sort

Code:

1
2
3
4
5
6
7
8
9
 
mso:FileOpenDatabase
mso:FilePrintQuick
mso:FilePrintPreview
mso:SpellingAccess
mso:FileNewDatabase
mso:FileSendAsAttachment
mso:DataRefreshAll
mso:ViewsModeMenu

Ça m'a l'air tout à fait correct.
Donc, les noms qualifiés n'ont pas l'air de poser de souci particulier, dans une expression XPath.

A+

28/08/2012, 11h06
argyronet

Oui bien sûr ; en fait, j'avais mal mentionné dans mon message :

Citation:

Envoyé par Argy

Même problème... (Par ex : Access.officeUI).

Je voulais dire en fait Même apparence.

Merci pour ta contribution. ;)

Argy