XL 2019 VBA ouverture XML mais avec possibilité de choisir une StyleSheet

[GENTILE]

Bonjour,

Je vous expose mon problème, je dois récupérer des données dans un fichier XML et les traiter.

Actuellement pour ouvrir ce fichier bla bla bla classique, Ficher, Ouvrir, sélection du ficher et Excel me propose le choix du StyleSheet à appliquer, hors je souhaiterais pourvoir réaliser cela via une macro VBA.

Quelle serai cette commande ?

Merci par avance de votre retour.

 

[patricktoulon]

Bonjour
pourrait on avoir un exemple de xml et le model du comment tu veux que les donnée soient rapatriées dans excel

 

[sylvanu]

Bonjour Gentile, Patricktoulon,
@GENTILE, désirez vous un stylesheet particulier, ou suffit il d'ouvrir le fichier avec le stylesheet par défaut ?
Dans le second cas, il suffit de faire :

Sub ChoixFichier()
    Dim Fichier As Variant
    'Affiche la boîte de dialogue "Ouvrir" avec filtre XML
    Fichier = Application.GetOpenFilename("Fichiers XML (*.xml),*.xml")
    'On sort si aucun fichier n'a été sélectionné sinon on l'ouvre
    If Fichier = False Then
        Exit Sub
    Else
        Workbooks.Open Filename:=Fichier
    End If
End Sub