XL 2016 [Résolu] Combiner plusieurs fichiers XML dans Excel

[Amilo]

Bonsoir le forum,

Je cherche à combiner plusieurs fichiers .xml en un tableau .xlsx,
J'ai essayé avec Power query mais sans y parvenir,
Il doit certainement avoir une ligne de code en langage M, à saisir comme pour les fichiers .xls ou .xlsx mais cela ne fonctionne pas sur les fichers .xml,
J'ai également essayé de passer par le développeur puis "Importer" mais je ne peux sélectionner qu'un seul fichier.
Sinon, avez-vous svp une solution en VBA voire un Add-In excel prévu pour cela ?
Un Add-In dans l'autre sens m'intéresserait également à savoir de .xlsx vers .xml
Merci d'avance pour vos réponses,

Cordialement

 

[Staple1600]

Bonsoir le fil, le forum, Amilo

@Amilo
A tester (mais pas sur du résultat)
Quand tu lances la macro, tu dois sélectionner un dossier contenant des fichiers *.xml

Sub Compiler_XMLs()
Dim wb_A As Workbook, WBKS As Workbook, strPath$, fXML$, i&
On Error GoTo ErrHandler
With Application.FileDialog(4)
  .AllowMultiSelect = 0: .Title = "Choisir le répertoire XML"
  If .Show = -1 Then strPath = .SelectedItems(1)
End With
If strPath = "" Then Exit Sub
Application.ScreenUpdating = False
Set wb_A = ThisWorkbook: i = 1
fXML = Dir(strPath & "\*.xml")
Do While fXML <> vbNullString
  Set WBKS = Workbooks.OpenXML(strPath & "\" & fXML)
  WBKS.Sheets(1).UsedRange.Copy wb_A.Sheets(1).Cells(i, 1)
  WBKS.Close False
  i = wb_A.Sheets(1).UsedRange.Rows.Count + 2
  fXML = Dir()
Loop
Application.ScreenUpdating = True
wb_A.Save
Exit Sub
ErrHandler:
MsgBox "Aucun fichier XML!", vbCritical, "Erreur"
End Sub

 

[Amilo]

Bonsoir Staple1600,

Merci pour votre proposition, le résultat est plutôt pas mal surtout sans avoir de fichiers exemple de ma part,
Cependant, les entêtes de colonnes sont dupliquées à chaque changement de fichier mais ce n'est pas trop gênant,
Le souci est surtout que les colonnes numériques sont dédoublées, une fois avec le titre "/Donnees_tableau/Tableau1/Saisie/Montant" et dans une 2ème colonne avec le titre "/Donnees_tableau/Tableau1/Saisie/Montant/#agg"
Et ceci a priori pour chaque colonne au format numérique.
Je chercherai à voir si mon formulaire de départ ne pose pas de problème et je me permettrais de revenir éventuellement avec 2 fichiers exemple en .xml
Merci encore pour votre réponse

Bonne nuit

 

[Staple1600]

Re

@Amilo
Pourrais-tu joindre un à trois fichiers XML anonymisés que je puisse faire des tests sur mon PC, stp ?

 

[Amilo]

Staple1600,
Oui sans problème, je repasserai certainement demain soir pour les fichiers exemple
Merci d'avance à vous
Bonne nuit

 

[Amilo]

Re,

Finalement, j'ai pris le temps de créer 3 fichiers .xml en exemple,
Pour information, je suis parti d'un modèle du formulaire en pièce jointe "Exemple fact.pdf" pour générer mes fichiers xml via adobe acrobat XI Pro,
J'avoue que ce formulaire est encore en l'état de brouillon et je n'ai pas pris le temps de renommer correctement tous les objets ou champs dont le nom sera récupéré automatiquement dans les entêtes de colonne des fichiers xml/xlsx
Je vous mets également une capture d'écran du mappage XML de l'un des 3 fichiers pour voir sa structure (j'ai mis en rouge, les champs que j'aurais dû renommer correctement, sans parler du champ "Adresse du client" qui est en un seul bloc et que j'aurais dû diviser en plusieurs zones)
Sinon, on constate aussi, malgré un formatage des champs numériques dans le formulaire pdf, que le mappage génère plusieurs chiffres après la virgule.
Merci d'avance

Bonne nuit

 

[Amilo]

Bonjour le forum, Staple 1600,
Je me permets de relancer le fil pour lequel je pense que ma dernière réponse avec les exemples a très certainement échappé à Staple1600,
Effectivement, je n'avais pas attendu le lendemain pour déposer quelques fichiers demandés par Staple1600 dans son message 4,
Merci d'avance
Cordialement

 

[Staple1600]

Bonsoir le fil, le forum

@Amilo

je repasserai certainement demain soir pour les fichiers exemple

Ah bah oui, demain c'est demain et les rêves d'aujourd'hui sont les souvenirs de demains
Et là, cela se corse quand je lis mappage XML.

 

[Amilo]

Bonsoir Staple1600,
Merci pour votre réponse rapide,
Si c'est trop de travail et compliqué, ce n'est pas important, j'essayerai d'autres pistes ou faire autrement avec l'aide du forum
Bonne soirée

 

[Staple1600]

Re

@Amilo
J'ai juste dit que cela se corsait
Ce qui veut juste dire que cela demande plus de temps (en tout cas, pour mes neurones )

 

[Amilo]

Staple1600,
J'avais bien compris, je ne le pensais pas et ce n'est pas cet "exercice" qui va vous arrêter, il faut beaucoup plus "compliqué" que ça,
Bonne soirée

 

[Staple1600]

Re

@Amilo
J'ai commencé par le commencement : l'enregistreur de macros

Sub Macro1()
    With ActiveWorkbook.XmlMaps("formulaire1_Mappage")
        .ShowImportExportValidationErrors = False
        .AdjustColumnWidth = True
        .PreserveColumnFilter = True
        .PreserveNumberFormatting = False
        .AppendOnImport = False
    End With
    ActiveWorkbook.XmlImport URL:= _
        "C:\Users\STAPLE\Documents\xml\Fact Serge.xml", ImportMap:=Nothing, _
        Overwrite:=True, Destination:=Range("$A$1")
End Sub

Avec cette macro, je n'ai pas de ce que tu revelais

Sinon, on constate aussi, malgré un formatage des champs numériques dans le formulaire pdf, que le mappage génère plusieurs chiffres après la virgule.

 

[Amilo]

Re,
Staple1600, effectivement je n'ai pas eu de problème de formatage en procédant par l'enregistreur de macro,
J'ai réessayé avec le code de votre tout 1er message et là également le formatage est finalement bon,
Je ne me souviens plus dans quel contexte cela donnait tout autre formatage.
J'ai cependant toujours les colonnes en doublon comma évoqué dans mon message #3,
Cordialement

 

[Lone-wolf]

Bonsoir Amilo, Jean Marie

@Amilo

Si tu veux fusionner plusieurs fichiers en une seule étape avec Power Query, un tuto ICI

 

[Staple1600]

Re

@Amilo
Tu veux compiler chaque fichier XML sur un onglet distinct?
(1 fichier= 1 onglet)
Ou tu veux que les données se compilent sur la même feuille mais "à la queue leu-leu"?