Sub ImportXmlFromFile()
ThisWorkbook.XmlMaps("BookInfo_Map").Import ("C:\BookData.xml")
End Sub
Et pour importer les données (Source Microsoft)
VB:
Sub ImportXMLtoList()
Dim strTargetFile As String
Application.DisplayAlerts = False
strTargetFile = "C:\BookData.xml"
Workbooks.OpenXML Filename:=strTargetFile, LoadOption:=xlXmlLoadImportToList
Application.DisplayAlerts = True
End Sub
Option Explicit
Sub Ouvrir_Fichier()
Dim fichier As String
fichier = "D:\Dossiers Excel\Formules\"
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = fichier
.Show
If .SelectedItems.Count > 0 Then fichier = .SelectedItems(1): _
Workbooks.Open (fichier)
End With
End Sub