Importer un fichier XML

[nadia_42]

Bonjours tous le monde 🙂

voila un problème que j’espère simple mais que je ne sais pas 😡

comment importer par macro un fichier *.XML???!!! 😎

merci d'avance pour votre aide 😀

note : pas besoin de fichier a joindre tous est claire. 😉

 

[Lone-wolf]

Bonsoir Nadia 🙂

Comme ceci peut-être?! 🙄

Sub ImportXmlFromFile()
ThisWorkbook.XmlMaps("BookInfo_Map").Import ("C:\BookData.xml")
End Sub

Et pour importer les données (Source Microsoft)

Sub ImportXMLtoList()
     Dim strTargetFile As String
     Application.DisplayAlerts = False
     strTargetFile = "C:\BookData.xml"
     Workbooks.OpenXML Filename:=strTargetFile, LoadOption:=xlXmlLoadImportToList
     Application.DisplayAlerts = True
End Sub

 

[nadia_42]

Merci Lone-Wolf pour votre repense 🙂

je vais étudie ces code et je vous réponds 😎

a propos comment choisir un fichier xml parmi d'autre???!!!

a bientôt 😀

 

[Lone-wolf]

Avec une boîte de dialouge Ouvrir un fichier. 😉

 

[nadia_42]

merci

oui je sais mais par macro affecter a une bouton comment ??? je sais pas !!!😀

 

[Lone-wolf]

Hé Hé Hé ! Je le savais 😉

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

Pour la suite, je ne sais pas comment faire