Discussion :

[vince07]

Bonjour,

J'ai trouvé dans la FAQ comment ouvrir et visualiser un XML depuis Access.
C'est Ok si je met le nom du fichier directement dans le code.

Par contre, je n'arrive pas à visualiser le contenu si le nom de mon fichier est issu d'un formulaire.

Dans le code ci dessous,

* C'est ok avec la variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

filename ="D:\TEST\VL.XML"

* Cela ne marche pas avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

filename = Chr(34) & Forms![Formulaire1].Texte2 & Chr(34)

Pour vérifier si ma variable était bien reprise, j'ai affiché dans un msgbox la valeur issue de mon formulaire : elle est bien affichée.

J'ai essayé aussi de saisir dans un inputbox le nom de mon fichier "D:\TEST\VL.XML"
Cela ne marche pas non plus.

Il y a certainement quelque chose que je fait mal et/ou que je n'ai pas compris.

Merci de votre aide
Cordialement

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
 
Public Sub BrowseChildNodes(root_node As IXMLDOMNode)
 
    Dim i As Long
 
    For i = 0 To root_node.ChildNodes.Length - 1
        If root_node.ChildNodes.Item(i).NodeType <> 3 Then Debug.Print root_node.ChildNodes.Item(i).BaseName
        BrowseChildNodes root_node.ChildNodes(i)
    Next
 
End Sub
 
Public Sub BrowseXMLDocument(ByVal filename As String)
 
    Dim xmlDoc As DOMDocument, root As IXMLDOMElement
 
    Set xmlDoc = New DOMDocument
 
    filename = "D:\Test\VL.xml"
    'MsgBox (Forms![Formulaire1].Texte2)
 
    'filename = Chr(34) & Forms![Formulaire1].Texte2 & Chr(34)
    'InputBox (filename)
 
    'MsgBox (filename)
 
    xmlDoc.async = False
    xmlDoc.Load filename
 
    Set root = xmlDoc.DocumentElement
    If Not root Is Nothing Then
        Debug.Print root.BaseName
        BrowseChildNodes root
    End If
 
End Sub

[jimbolion]

vince07,

Je viens de faire l'essai à partir d'une zone de texte.

çà fonctionne pourtant très bien ?

mon code

Function lire()
'
' Lecture à partir d'une étiquette
'
Dim doc As New MSXML2.DOMDocument60
Dim success As Boolean

Set xmldoc = CreateObject("Microsoft.XMLDOM")
xmldoc.async = "false"
'
N_File = Forms![Formulaire1]![N_File]
Debug.Print N_File
'
'N_File = "c:\test.xml"
success = xmldoc.Load(N_File)
For Each x In xmldoc.DocumentElement.ChildNodes
Debug.Print x.nodeName & " " & x.Text
Next
'
Set xmldoc = Nothing
End Function

La capture d'écran ici :

JimboLion

[vince07]

Merci de ta réponse Jimbolion,

je vais revoir mon code à partir de ton exemple.
Cordialement

[jimbolion]

vince07,

Tiens moi au courant quitte à te préparer un exemple !

JimBoLion

[vince07]

Merci Jimbolion
Nickel çà marche ...

J'ai simplement posé ton code en remplaçant le nom de l'étiquette
Je vais pouvoir passer à la suite : Trouver une balise précise et modifier sa valeur ...
Quelques recherches préalables s'imposent

[jimbolion]

Vince07,

Tout simplement ici :

http://www.developpez.net/forums/d10...r-d-noeud-xml/

JimBoLion

[vince07]

Voilà de quoi occuper ce week end pluvieux ...
Merci Jimbolion

[jimbolion]

vince07

Alors en mode et



JimBoLion

[vince07]

c'est exactement çà

il faut que digère çà déjà ...
http://arkham46.developpez.com/artic...ge=page_4#L5-C

café + cachet mal de tête à proximité

[jimbolion]

vince07

Attention le document de Arkham ne traite pas de la notion d'attribut, donc si tu dois les utiliser, enrichi ta lecture de cette faq

http://vb.developpez.com/faqvbs/?page=II.5

La lecture d'un attribut dans un nœud se fait en utilisant le @ : exemple /noeud1/noeud2/toto[@att='" & valeur & "']/titi"

Bon courage en tout cas

JimBoLion

[vince07]

Ton dernier lien semble bien mieux adapté à ce que je cherche à faire ...
Une nouvelle fois, merci pour cette aide