Import fichiers .xml sur Excel

Bonjour,

pour l'instant j'ai le code suivant qui me permets d'importer les fichiers .xml à la racine d'un sossier:

Sub From_XML_To_XL()

Application.ScreenUpdating = False
Dim xmlWb As Workbook, xSWb As Workbook, xStrPath$, xfdial As FileDialog, xFile$, lr%
Set xfdial = Application.FileDialog(msoFileDialogFolderPicker)
xfdial.AllowMultiSelect = False
xfdial.Title = "Select a folder"
If xfdial.Show = -1 Then xStrPath = xfdial.SelectedItems(1) & ""
If xStrPath = "" Then Exit Sub
Set xSWb = ThisWorkbook
lr = xSWb.ActiveSheet.Range("a" & Rows.Count).End(xlUp).Row    ' last used row, column A
xFile = Dir(xStrPath & "\*.xml")
Do While xFile <> ""
   Set xmlWb = Workbooks.OpenXML(xStrPath & "\" & xFile)
    xmlWb.Sheets(1).UsedRange.Copy xSWb.ActiveSheet.Cells(lr + 2, 1)

   lr = xSWb.ActiveSheet.Range("a" & Rows.Count).End(xlUp).Row
    xSWb.ActiveSheet.Cells(lr + 1, 1) = "******"                ' separator
    MsgBox xmlWb.Name & " copied to " & xSWb.Sheets(xSWb.Worksheets.Count).Name
    xmlWb.Close False
    xFile = Dir()
Loop
Application.ScreenUpdating = True
xSWb.Save
MsgBox "End of code."
Exit Sub
ErrHandler:
MsgBox "Error!", , "Kutools for Excel"
End Sub

J'aimerais le modifier de la façon suivante:
-au lieu d'importer les fichiers .xml d'un seul dossier, je sélectionne un "dossier master" avec des sous-dossiers et j'importe la totalité des fichiers .xml de tout les sous-dossiers.
-J'insère dans la colonne A le titre du sous dossier, dans la case B le titre du fichier et dans la case C le contenu du fichier.
Chaque fichier sera donc sur une ligne (je ne sais pas si le fait que la totalité du fichier soit dans une cseul cellule soit possible)
-lors de l'import de vérifie que le fichier n'a pas été déjà importé et je ne l'importe pas  si il est déjà présent.

Voila, je suis nouveau sur VBA et je ne sais pas trop par quel bout commencer, je suis ouvert à vos idéés :) , merci beaucoup.

Bonjour,

Tu travailles avec Office 365.

Tu as donc la possibilté de combiner l'ensemble des fichiers dans le répertoire 'Dossier Master'.

Suis la procédure ci-dessous dans un nouveau classeur.

1 - Ruban, Données, Récupérer et transformer des données, Obtenir des données

2 - A partir d'un fichier, A partir d'un dossier.

3 - Sélectionne le chemin du dossier à traiter et valide.

4 - Dans la fenêtre qui s'ouvre, clique sur Combiner, puis Combiner et charger.

5 - Sélectionne analysis et fais OK.

Le résultat est-il celui attendu ?

Cdlt.

Merci Jean-Eric! Je découvre totalement,

Le résultat est mieux que ce à quoi je pourrais prétendre en utilisant le VBA seul.

Le language M de Power Query est super, seulement si j'arrive à le transformer en VBA.

Je ne sais pas si cela est possible, j'ai fait une enregistrement de MACRO et utilisant les étapes décrites. Lorsque j'essaye de réutiliser la macro, il me donne l'erreur jointe. Je ne sais pas si l'enregistrement Macro de power query fonctionne. As tu déjà réalisé un enregistrement de language M sous VBA?

Merci beaucoup,