Discussion :

[Rémy.A]

Bonjour à tous,

Je suis en train de réaliser un fichier Excel qui à partir d'une nomenclature génére un schéma électrique sous AutoCAD.
Dans ce fichier Excel je créer un array (Tab_Valeur As Variant) qui me sert à exploiter les donner entre EXCEL, ACCESS et AutoCAD.

Je veux exporter mon tableau Tab_Valeur vers un fichier XML pour avoir une "configuration" puis par la suite importer le XML dans le array Tab_Valeur (As Variant).

Exemple des données du ARRAY:

Tab_Valeur (0, 0) = 1 (integer)
Tab_Valeur (0, 1) = TOTO (texte)
Tab_Valeur (0, 2) = 58.9 (Nombre real)

Là mes compétences en VBA son limitées...

Existe-il une solution pour créer un fichier XML à partir du array Tab_Valeur et qui pourra par la suite créer un array qui se nomme comme le fichier XML et sera identique array Tab_Valeur?

Je n'ai pas encore du code à proposer car je ne sais pas faire et je cherche une solution!!

Merci d'avance pour votre aide!!

[Rémy.A]

Bonjour,

Suite à des recherches, j'ai écris ce bout 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
26
27
28
29
30
31
32
33
34
Public Sub XML()
 
Dim Doc_XML As Object      'Va nous permettre de créer le XML
Dim Root As Object         '... de créer la racine du XML
Dim Node As Object         '... de créer les noeuds
Dim Name As Object         '... de créer les attributs
Dim CheminXML As String    'Chemin de sauvegarde
Dim Tab_Array As Variant   'Tableau vba pour les données
 
 
CheminXML = ActiveWorkbook.Path & "\Test.XML"
 
'Création du XML
Set Doc_XML = CreateObject("MSXML2.DOMDocument")
Set Node = Doc_XML.CreateProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8""")
 
'Ajout des données au fichier
Doc_XML.appendChild Node
 
'Remise à zéro du noeud
Set Node = Nothing
 
'Création d'une racine
Set Root = Doc_XML.CreateElement("root")
Doc_XML.appendChild Root
 
'Doc_XML.DocumentElement.setAttribute "xmlns",
Doc_XML.DocumentElement.setAttribute "xsd", "http://www.w3.org/2001/XMLSchema"
 
 
 
Doc_XML.Save CheminXML
 
End Sub

Je n'arrive pas à écrire dans le XML la ligne suivante:

Code XML :

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

<root xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:od="urn:schemas-microsoft-com:officedata">