Discussion :

[kevdevvba]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[jurassic pork]

Hello,
et avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveWorkbook.XmlMaps("DATA_Mappage").Import Url:= _
xFilePath

au lieu du Workbooks.Open xFilePath ?

Ami calmant, J.P