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.

 

[patricktoulon]

re
écoute c'est simple ce que l'on te demande
donne nous un fichier excel fait a la main avec ton tableau comme tu veux qu'il soit (quelque lignes)
et le fichier XML a quoi il correspond
que l'on voit déjà si c'est possible
c'est pas compliqué sinon on va y passer des plombes et on va pas s'en sortir
et perso je travaille en vba mais pas avec xpath ,je travaille a l'ancienne avec le DOM

Le Document Object Model (DOM) est une interface de programmation normalisée par le W3C, qui permet à des scripts(VB,VBA,VBS,Javascript,etc..) d'examiner et de modifier le contenu d'un document structuré avec des balises

 

[StagExcelle]

patricktoulon

Je ne sais pas faire un fichier XML à partir d'Excel
Si j'ouvre le fichier XML dans Excel et que je supprime des lignes et que je retire les données réelles, je ne peux pas ensuite l'exporter en XML.

C'est pour cela que je fais la méthode que tu m'as dit
L'afficher dans Internet Explorer (ce que j'ai fait)
Ensuite j'ai fait Afficher la source et je fais Edition/Remplacer pour remplacer tout ce je n'ai pas le droit de diffuser sur le forum.
Je mets ce que je vois dans Internet

Comme on me donne d'autres travaux à faire, je modifie le fichier XML quand j'ai fini.

Désolé, mais je n'ai pas vos compétences, j'essaie de m'en sortir comme je peux.

 

[patricktoulon]

re
tu sais pas nous faire un tableau excel avec quelques lignes à la main et nous envoyer ce fichier excel avec le xml dans un zip

si tu sais pas faire ça c'est pas gagné
test captures d’écran n'apportent rien

 

[StagExcelle]

J'ai réussi à a faire un fichier xml raccourci


Donc à partir du fichier XML qui est dans le fichier ZIP, il faut par exemple ne garder que ces colonnes

ns4:Name	Colonne P
ns4:SIRET	Colonne Q
ns4:Name20	Colonne AU
ns2:ChargeTotalAmount	Colonne CQ
ns2:CalculationPercent	Colonne DA
ns2:ReasonCode	Colonne DB
ns3:Name	Colonne DF

 

[StagExcelle]

patricktoulon

Est-ce que le fichier simplifié suffit pour que tu puisses m'aider ?

 

[StagExcelle]

patricktoulon,

Les colonnes indiquées dans le tableau du message #34 sont les colonnes EXCEL quand on ouvre le fichier dans EXCEL.
J'ai fait Données/Autres sources/Fichier XML
Après avoir répondu OK aux deux messages d'erreur, j'obtiens un tableau mise en forme automatiquement par EXCEL.
Ensuite, je mets les lignes du tableau même hauteur que la ligne 1.

C'est ensuite que je sais pas faire

Je me mélange avec Nodes, SingleNode , SelectNodes etc.

Je ne sais quels sont les noms des nœuds à utiliser dans le code VBA.

Merci si vous pouvez m'expliquez un peu comment fonctionne DOM.

 

[Hasco]

Bonjour,

Voici un moyen de lire vos données.

Fonctionne sur le fichier ESPPADOM_Test_5.xml

Cordialement

 

[StagExcelle]

Merci baucoup Hasco

Je teste dès que possible votre fichier et vous fait un retour dés que possible.

 

[StagExcelle]

Bonjour Hasco

Voici le code de mes essais actuels en VBA

Sub ImportationFichierXML() ' version de septembre 2021
'Des portions de code sont issues ou adaptées du forum Excel Downloads,d'exemples lus sur des sites internet ou dans des livres VBA
Dim Fichier_XML As String, WBK As Workbook, Feuil As Worksheet
Dim Contenu_XML As Variant, colonnes
Fichier_XML = ThisWorkbook.Path & "\ESPPADOM_TEST_5.xml"
Application.ScreenUpdating = False
'Ouverture du fichier XML dans un nouveau classeur ne contenant qu'une feuille
With ActiveSheet.QueryTables.Add(Connection:="FINDER;" & Fichier_XML, Destination:=Workbooks.Add(1).Sheets(1).Cells(1))
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .BackgroundQuery = False
        .RefreshStyle = xlInsertDeleteCells
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .Refresh BackgroundQuery:=False
End With
'On définit le nouveau classeur
Set WBK = Workbooks(ActiveWorkbook.Name)
'On définit la feuille de travail
Set Feuil = WBK.Sheets(WBK.Sheets.Count)
Feuil.Activate
'Ajustement des lignes et nettoyage des données
Feuil.Rows("1:2").EntireRow.Delete
Feuil.Cells.RowHeight = 15
Feuil.Columns(105).Delete
'Remplissage du tableau en mémoire : Contenu_XML
Contenu_XML = Feuil.UsedRange.Value
'Effacement de la feuille
Feuil.UsedRange.ClearContents
'Choix des colonnes à garder dans un tableau en mémoire: colonnes
colonnes = Array(84, 87, 89, 85, 110, 116, 119, 123, 126)
'Restitution de la sélection des données issues du fichier XML initial
Feuil.Range("A1").Resize(UBound(Contenu_XML), 9).Value = Application.Index(Contenu_XML, Evaluate("Row(1:" & UBound(Contenu_XML) & ")"), colonnes)
'Mise en forme esthétique
Feuil.Range("E:F").NumberFormat = "0.00"
Feuil.UsedRange.EntireColumn.AutoFit
'reste à faire: Enregistrer sous => Format XLSX ou PDF puis envoi par mail
End Sub

N'hésitez pas à me dire ce que vous en pensez. Merci.

J'ai pris cette piste à cause de la grande taille de certains fichiers XML.

Et après réunion avec les encadrants, on s'oriente plus vers la diffusion du fichier Excel avec une macro VBA.
(comme celle de ce message)
Et c'est le client qui traite le fichier XML qu'on lui dépose dans le Cloud.
(ou par mail si petit taille)

 

[StagExcelle]

Hasco,

Je reviens plus tard poster mes essais et adaptations de votre code du message # 37

Merci encore pour votre aide.

 

[StagExcelle]

Bonjour Hasco

Comme promis, je fais le retour de mes tests avec votre code

Sub EssaisV3_DOM()
    Dim Ids As IXMLDOMSelection
    Dim Id As IXMLDOMElement
    Dim Data1() As Variant
    Dim Data2() As Variant
    Dim Data3() As Variant
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    If Ouvrir() Then
    SetNameSpace NS_PIE
        Set Ids = xmlDoc.SelectNodes("//pie:DefinedCITradeContact/pie:PersonName")
        ReDim Data1(1 To Ids.Length, 1 To 3)
        For Each Id In Ids
            i = i + 1
            Data1(i, 1) = Id.Text
        Next
       
        Set Ids = xmlDoc.SelectNodes("//pie:AdditionnalInformation/pie:Content")
        ReDim Data2(1 To Ids.Length, 1 To 3)
        For Each Id In Ids
            j = j + 1
            Data2(j, 1) = Id.Text
        Next
       
    SetNameSpace NS_RAM
    Set Ids = xmlDoc.SelectNodes("//ram:SpecifiedCIOLSupplyChainTradeSettlement/ram:SpecifiedCITradeAllowanceCharge/ram:CalculationPercent")
        ReDim Data3(1 To Ids.Length, 1 To 3)
        For Each Id In Ids
            k = k + 1
            Data3(k, 1) = Id.Text
        Next
     End If
    ThisWorkbook.Sheets("Feuil1").Range("C2").Resize(i) = Data1
    ThisWorkbook.Sheets("Feuil1").Range("D2").Resize(j) = Data2
    ThisWorkbook.Sheets("Feuil1").Range("E2").Resize(k) = Data3
    Set xmlDoc = Nothing
End Sub

Mais je n'arrive pas encore à bien comprendre la logique.
Ce que j'essaie d'avoir avec votre code c'est un résultat de ce genre

Cela j'arrive à le faire avec le code de mon message précédent.

Mais j'aimerais réussir à le faire avec votre code VBA.

Vous pouvez m'apportez votre aide, svp?

 

[Hasco]

Bonjour,

He bien donnez vous du mal, apprenez la structure de votre fichier xml, comment atteindre un ou des éléments particuliers par xpath, à manipuler les collections d'éléments et leurs attributs.

Ce n'est pas moi qui vais le faire à votre place.

Bon courage

 

[StagExcelle]

Bonjour Hasco

Je ne demande pas à ce que vous fassiez les choses à ma place.
Je suis débutant dans le traitement de fichier XLM avec DOM, donc je sollicite simplement aide et conseil auprès des membres "expert" tel que vous.

Je croyais que c'était l'essence des forums: aider et aiguiller les débutants

(Je vous remercie encore de m'avoir fait avancé avec vos exemples)

Dans le message # 41, j'ai fais des tests par moi-même non ? En partant de votre code.

Pouvez-vous me dire, svp, si faire plusieurs boucles est à faire ou pas ?

Je me connecte sur le forum juste quand je suis dans l'entreprise (mais jamais trop longtemps)

 

[Hasco]

Bonjour,

SelectNodes(xPath) retourne une collection d'éléments d'indice 0 à n.
Il faut donc faire une boucle sur la collection.

SelectSingleNode(xPath) retourne un seul élément, il n'y a donc pas de boucle à faire.
A vous de connaître la structure de votre document et de savoir ce que vous voulez retourner.

J'ai vu dans les pages précédentes de cette discussion que d'autres vous ont donné également des exemples.
Tirez-en profit.

Cordialement