Autres [XML] Importer fichier XML dans Excel (uniquement certaines colonnes)

[StagExcelle]

Bonjour,

Dans le cadre de mon stage, je dois importer un fichier XML puis le rendre plus lisible
Je voudrais le faire par VBA.
Les recherches que j'ai faites sur internet m'ont dirigé sur cette piste : CreateObject("Microsoft.XMLDOM"), XPath SelecNodes etc..
Malheureusement, je ne comprends pas bien ce langage.

Actuellement, j'utilise cette macro construite avec ce que j'ai trouvé sur internet

Sub xEssai_Macro_XML()
'Déclarations des variables
Dim fd As Office.FileDialog
Dim strFile As String, WBK As Workbook
'Choisir le fichier avec une boite de dialogue
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
    .Filters.Clear
    .Filters.Add "FICHIER XML", "*.xml", 1
    .Title = "Choisir le fichier XML"
    .AllowMultiSelect = False
    If .Show = True Then
    strFile = .SelectedItems(1)
    End If
End With
Application.ScreenUpdating = False
'Importer le fichier dans un tableau dans Excel
strXML_Fic = strFile
Workbooks.OpenXML Filename:=strXML_Fic, LoadOption:=xlXmlLoadImportToList
End Sub

Mais cette macro importe tout le fichier XML alors que le besoin serait de n'importer que certaines colonnes.

Je vous joins un fichier XML dans le fichier ZIP attaché.

Le fichier XML exemple génère une erreur quand on l'importe manuellement ou par macro.
Je ne sais pas pourquoi.

Merci pour l'aide et explications que vous voudrez bien m'apporter.

 

[StagExcelle]

J'ai aussi essayé avec l'outil PowerQuery
Mais cela donne ce résultat

Je ne sais pas quelles opérations faire dans PowerQuery pour ne pas avoir

en colonne B.

 

[StagExcelle]

Suite du message précédent
Comment faire par exemple pour n'importer que ces colonnes en passant par la méthode de mon 1er message ?

 

[StagExcelle]

Je me permets de relancer ma question.

Merci.

 

[StagExcelle]

Bonjour,

Personne ne peut m'aider ?

Le langage XML n'est pas simple à comprendre.

Il n'y a pas des membres du forum qui l'utilise ?

 

[Etoto]

Hello,

Autant aller dans un forum spécialisé dans le développement, comme celui-ci :

Développement

Forum d'entraide Développement, PHP, JavaScript, Python, C#, VB.NET, C++, etc, y compris d'autres types de langages (HTML, CSS, SQL) (contenant 334 posts)...

forum.excel-pratique.com

 

[StagExcelle]

Bonjour Etoto

Merci de ton intérêt pour ma question.

Je viens de m'inscrire sur le forum Excel-Download parce ma question est liée à Excel.

Et en faisant des recherches sur le forum, j'ai vu qu'il y avait des discussions qui parle d'XML et Excel.

Mais je n'ai pas su les adapter à mon besoin.

C'est pour cela que j'ai posé ma question.

 

[Etoto]

Bonjour Etoto

Merci de ton intérêt pour ma question.

Je viens de m'inscrire sur le forum Excel-Download parce ma question est liée à Excel.

Et en faisant des recherches sur le forum, j'ai vu qu'il y avait des discussions qui parle d'XML et Excel.

Mais je n'ai pas su les adapter à mon besoin.

C'est pour cela que j'ai posé ma question.

Ok,

Normalement je ne devrais pas conseiller un forum concurrent mais ils sont meilleurs pour ça, nous c'est plus le VBA et les formules, c'est pour cela que je suis dans les deux forums.

 

[StagExcelle]

Il y aussi l'outil PowerQuery qui peut ouvrir le fichier XML
Mais je ne sais pas faire la suite (après l'ouverture)

Est-ce que je dois créer une autre discussion en mettant au début PowerQuery ?

 

[Etoto]

Il y aussi l'outil PowerQuery qui peut ouvrir le fichier XML
Mais je ne sais pas faire la suite (après l'ouverture)

Est-ce que je dois créer une autre discussion en mettant au début PowerQuery ?

Tu veux importer des données XML dans Excel ? Avec Power Query c'est le meilleur logiciel pour cela, oui !!

 

[Etoto]

Regarde tous les tableaux que tu peux importer depuis ton XML !

Tu n'as plus qu'a choisir et si tu veux modifier un tableau, Power Query et parfait.

 

[StagExcelle]

Quand j'ouvre dans Powerquery, ca donne l'image de mon message #2

Je ne sais pas quelle manipulation faire pour ne pas avoir Table (mais le contenu)

Sinon, j'ai trouvé de code VBA dans le forum
Mais je ne sais pas aller plus loin avec

Ca mets tout dans la même cellule, ligne par ligne.

Code VBA avec le langage XML

Sub Test()
    Dim xmlDoc As DOMDocument
    Dim root As IXMLDOMElement
    Set xmlDoc = New DOMDocument
    xmlDoc.async = False
    xmlDoc.Load ThisWorkbook.Path & "\order.exemple.xml"
    Set root = xmlDoc.DocumentElement
        Cells(1, 1) = root.BaseName
        j = 1
    BrowseChildNodes root
    j = 0
End Sub
 
Private Sub BrowseChildNodes(root_node As IXMLDOMNode)
    Dim i As Long
    For i = 0 To root_node.ChildNodes.Length - 1
        If root_node.ChildNodes.Item(i).NodeType <> 3 Then
            j = j + 1
            Cells(j, 1) = root_node.ChildNodes.Item(i).BaseName & "/" & _
                root_node.ChildNodes.Item(i).Text
        End If
        BrowseChildNodes root_node.ChildNodes(i)
    Next
End Sub

 

[Etoto]

Dans ton post 2 tu ne veux pas la colonne B, c'est ça ?

 

[StagExcelle]

Non, je veux le contenu de ce qu'il y a dans

Si on ouvre le fichier XML (qui est un fichier d'exemple), en faisant Données/Autres sources/Fichier XML
Le fichier XML s'ouvre dans une feuille Excel

Mais je n'ai pas besoin de toutes les colonnes.

 

[Etoto]

Si tu modifies sur PQ, tu n'as une option "dévoiler la table" ou quelque chose du genre, je connais bien Power Query mais absolument pas le XLM.