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

GENTILE · 9 Septembre 2022

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 · 10 Septembre 2022

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 · 10 Septembre 2022

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 :

VB:

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

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

GENTILE

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires