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