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

StagExcelle · 31 Août 2021

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

VB:

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 · 31 Août 2021

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 · 31 Août 2021

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 · 31 Août 2021

Je me permets de relancer ma question.

Merci.

StagExcelle · 1 Septembre 2021

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 · 1 Septembre 2021

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 · 1 Septembre 2021

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 · 1 Septembre 2021

StagExcelle à dit:
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 · 1 Septembre 2021

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 · 1 Septembre 2021

StagExcelle à dit:
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 · 1 Septembre 2021

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 · 1 Septembre 2021

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

VB:

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 · 1 Septembre 2021

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

StagExcelle · 1 Septembre 2021

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 · 1 Septembre 2021

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.

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

StagExcelle

XLDnaute Junior

Pièces jointes

StagExcelle

XLDnaute Junior

StagExcelle

XLDnaute Junior

StagExcelle

XLDnaute Junior

StagExcelle

XLDnaute Junior

Etoto

XLDnaute Barbatruc

Développement

StagExcelle

XLDnaute Junior

Etoto

XLDnaute Barbatruc

StagExcelle

XLDnaute Junior

Etoto

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

StagExcelle

XLDnaute Junior

Etoto

XLDnaute Barbatruc

StagExcelle

XLDnaute Junior

Etoto

XLDnaute Barbatruc

Discussions similaires