EXEMPLE D'UTILISATION DU XML AVEC VB.NET

Messages postés
2859
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
26 novembre 2013
- - Dernière réponse : disashy
Messages postés
3
Date d'inscription
lundi 8 février 2010
Statut
Membre
Dernière intervention
29 juillet 2010
- 29 juil. 2010 à 02:05
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/51982-exemple-d-utilisation-du-xml-avec-vb-net

Afficher la suite 
Mayzz
Messages postés
2859
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
26 novembre 2013
16 -
Ah ! Voila une source bien utile =)
radcur
Messages postés
283
Date d'inscription
lundi 29 septembre 2003
Statut
Membre
Dernière intervention
15 août 2012
2 -
Super!

j'avais justement besoin d'un exemple comme ca pour ce que je voulais faire avec un fichier XML
disashy
Messages postés
3
Date d'inscription
lundi 8 février 2010
Statut
Membre
Dernière intervention
29 juillet 2010
-
bonjour, j'ai le code suivant pour creer un fichier xml depuis excel 2003.Chez mioi, le fichier xml est parfiait, mais au travail (intranet), le fichier xml cree est vide.
Aidez-moi, svp.
Disa
disashy
Messages postés
3
Date d'inscription
lundi 8 février 2010
Statut
Membre
Dernière intervention
29 juillet 2010
-
Mon code est le suivant:

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
christian_grandjean
Messages postés
30
Date d'inscription
dimanche 7 novembre 2004
Statut
Membre
Dernière intervention
19 novembre 2013
2 -
Bonjour,
Je ne vois rien qui saute aux yeux dans votre code, une seule chose me dérange c'est le chemin utilisé File = "C:\Users\Tex'Ance\Desktop\test2.xml" il y a un ' apostrophe dans le chemin je ne sais pas si c'est désiré.
Salutations
http://www.simple-tech.info