Liste Excel vers XML via VBA

[riccco]

Bonjour,

Je souhaite écrire une petite macro qui pourrait me permettre de parcourir les valeurs d'une feuille excell fomartée sous forme de liste afin d'extraire les valeurs dans un fichier XML.

Je ne connais pas VB mais j'ai juste besoin d'un coup de pouce de départ : à quel objet dois-je recourir et quelles méthodes utiliser. Je vous expose mon pb :

J'ai une liste Excel typique :

|A|B|C|D|E|E|
---------------
1|a|b|c|d|e|f|
2|b|c|d|e|f|g|


Ce que je voudrais faire :

pour chaque ligne de la feuille,

on prends chaque colonne,​

on recupere le nom l'étiquette de colonne,​

on recupere la valeur de la celulle​

on ecrit le XML​

ce qui donnerait

<monXml>

<A>a</A>
<B>b</B>
<C>c</C>
...​

</monXml>


et ainsi de suite

Qqu'un a t'il une amorce de code à me suggerer ?

Merci d'avance

Ricco

 

[Pierrot93]

Re : Liste Excel vers XML via VBA

Bonjour Ricco

peut être une piste dans le wiki , pages de MichelXLD, merci à lui :

https://www.excel-downloads.com/threads/ref-wiki-page-9-de-michelxld.92377/

bonne soirée
@+

 

[riccco]

Re : Liste Excel vers XML via VBA

Bonjour,

@Pierrot93 : merci beaucoup pour ta réponse.

il me semble en effet que ça puisse me satisfaire.


riccco

 

[riccco]

Re : Liste Excel vers XML via VBA

RE..

Je rectifie ma réponse précedente : C'est exactement ce dont j'avais besoin. Cette petite macro fonctionne très bien. C'est du bonheur.

Bonne journée à tous

riccco

 

[vincentz]

Re : Liste Excel vers XML via VBA

Bonjour,

Moi aussi c'est exactement ce doit je devrai avoir besoin mais le lien demande une identification pour un accès restreint...
https://www.excel-downloads.com/threads/ref-wiki-page-9-de-michelxld.92377/

Est-ce que quelqu'un pourrait m'aider?

Merci

 

[vbacrumble]

Re : Liste Excel vers XML via VBA

Bonjour


Tu retrouveras ces pages

dans la FAQ du forum
https://www.excel-downloads.com/forums/trucs-et-astuces.34/

 

[disashy]

Donnees Excel vers XML via VBA

Bonjour,
J'ai reussi a convertir mes donnees excel 2003 en fichier xml, chez moi; mais au bureau, le fichier xml cree est vide.
Pourriez-vous m'aider, svp?
Merci d'avance

Code:

Option Explicit
Option Base 1

Sub XMLmarkers()
Dim xmlDoc As MSXML2.DOMDocument
Dim xmLstring As String, File As String, strQuote As String
Dim Row As Integer, Col As Integer
Dim Attribut As Variant


strQuote = """"
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmLstring = "<?xml version=""1.0"" encoding=""utf-8"" ?> "
xmLstring = xmLstring & "<Markers TitleName=" & strQuote _
& "markers" & strQuote & "> "

Attribut = Array("Lat", "Lng", "Postcode", "Address", "Name", "Category", "Description")


For Row = 2 To Sheets("Sheet1").UsedRange.Rows.Count
xmLstring = xmLstring & "<marker "
For Col = 1 To 7
xmLstring = xmLstring & Attribut(Col) & "=" & _
strQuote & Cells(Row, Col) & strQuote & " "
Next
xmLstring = xmLstring & " />"
xmLstring = xmLstring & " "

Next Row

xmLstring = xmLstring & "</Markers>"

xmlDoc.loadXML xmLstring
File = "C:\Users\Tex'Ance\Desktop\test2.xml"
xmlDoc.Save (File)
End Sub