Discussion :

[C_Mila]

Bonjour,

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

Merci !!

Biz.
Mila

[La Praline]

Bonjour,

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

Essaie de renommer ton .xml en .xls


_______


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

[C_Mila]

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 :

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

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 !

[Mat.M]

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

[SfJ5Rpw8]

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

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

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
 
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