Sub ImporterFichierXML()
Dim XM As XmlMap
'Importe le fichier dans la cellule B1 de la Feuil3.
ThisWorkbook.XmlImport _
URL:="C:\Nom Fichier.xml", _
ImportMap:=Nothing, _
Overwrite:=True, _
Destination:=Worksheets("Feuil3").Range("$B$1")
'Définit le mappage qui vient d'être ajouté.
'ThisWorkbook.XmlMaps.Count correspond au dernier xml mappé dans le classeur
Set XM = ThisWorkbook.XmlMaps(ThisWorkbook.XmlMaps.Count)
MsgBox "Import terminé" & vbCrLf & _
XM.RootElementName & vbCrLf & _
XM.Name & vbCrLf & _
XM.DataBinding.SourceUrl
End Sub