import fichier XML

Bonjour à tous,
Je recherche le moyen d'importer des fichiers XML depuis VBA, mon problème est que le fichier d'import XML est "variable", jamais le même, j'ai donc besoin quand je clique sur un bouton, que VBA me demande le fichier XML a importer.

J'utilise :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'ActiveWorkbook.XmlMaps("DATA_Mappage").Import Url:= _
'"C:\Dossier\fichier.xml"
 
Ici le nom de fichier est fixe.
J'essaye de voir avec cela, mais franchement je n'y arrive pas, si vous avez une idée svp ?: 
Dim xFilePath As String
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFilePicker)
  With xObjFD
        .AllowMultiSelect = False
        .Filters.Add "Extensible Markup Language Files", "*.xml", 1
        .Show
        If .SelectedItems.Count > 0 Then
            xFilePath = .SelectedItems.Item(1)
        Else
            Exit Sub
        End If
    End With
    Workbooks.Open xFilePath

Merci d'avance.