XML To XLS en VB

Bonjour,

je dois transformer un fichier XML en Excel.
Est-ce que quelqu'un a une idée ?

Merci !!

Biz.
Mila :)

Bonjour,

Citation:

---

je dois transformer un fichier XML en Excel.
Est-ce que quelqu'un a une idée ?

---

Essaie de renommer ton .xml en .xls :mouarf:


_______


Blague à part il faudrait que tu développe un peu l'idée... Quel est le but, quelle est la manière...
Qu'on comprenne le pourquoi du comment ;)

Merci d'avance

La Praline

l'idée, c'est de pouvoir créer un tableau dans Excel contenant toutes les données qu'il y a dans le fichier XML.

Exemple:

dans le fichier XML:

Code:

---

1 2 3 4 5 6 7 8 9

<annuaire> <personne class = "etudiant"> <nom>Pillou</nom> <prenom>Jean-Francois</prenom> <telephone>555-123456</telephone> <email>webmaster@comment camarche.net</email>   </personne>

---

Je voudrais le transformer en un fichier excel, qui donnerait la chose suivante:

Nom ==> Pillon
Prenom ==> JF
Telepone ==> 555
email ==> webmaster@comment camarche.net

Biz !

Citation:

---

Envoyé par C_Mila

Bonjour,

je dois transformer un fichier XML en Excel.
Est-ce que quelqu'un a une idée ?

Merci !!

Biz.
Mila :)

---

!!
Il ya des outils et composants tout fait par Microsoft.
Chercher sur le MSDN il existe un "parser" XML qu'on peut appeler sous VB.
Une fois le fichier XML analyse il faut appeler Excel via CreateObject et adresser les cellules d'un document avec les chaines caracteres desirees
( desole pour les accents )

http://msdn.microsoft.com/library/de...ae3597eb0c.asp

http://www.microsoft.com/downloads/d...displaylang=en

pour le "parser" XML ... voici un début de code :

pense à rajouter la référence à "Microsoft XML ..."

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

sub LectureAdresseXML() Dim xmlDoc As New MSXML2.DOMDocument Dim oElement As IXMLDOMElement Dim stFichier As String Dim stNom As String   stFichier = App.Path & "\carnetAdresse.xml" xmlDoc.async = False xmlDoc.Load (stFichier) '---insérer ici l'ouverture ou création du fichier excel For Each oElement In xmlDoc.getElementsByTagName("personne") Debug.Print oElement.getAttribute("class") 'récupére l'attribut class stNom = oElement.getElementsByTagName("nom").Item(0).Text Debug.Print stNom '--------- insérer ici la lecture des autre noeuds '----------insérer ici l'écriture ds fichier excel Next '----------insérer ici la sauvegarde du fichier excel Set oElement = Nothing Set xmlDoc = Nothing   End Sub

---

à Voir : Visual Basic 6.0 et le format XML par Cécile Muno

puis Utiliser Excel à partir de Visual Basic par Sébastien Curutchet