Bonsoir,

J'ai un fichier XSD que je souhaite utiliser pour ensuite importer des fichiers XML.

Comment faire en VBA la partie qui consiste à prendre l'arborescence complète et à la poser sur la cellule A1 pour mapper l'ensemble des éléments ?

l’enregistreur de macro zappe cette partie, et je ne trouve que peu de doc la dessus.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
   Set MyMap = ActiveWorkbook.XmlMaps.Add( _
        "c:\xml\FichierEDI.xsd"   , "FichierEDI")
 
       MyMap.Name = "FichierEDI"
 
        '############ICI #################
         'MAPPAGE AVEC A1:AF1
 
    ActiveWorkbook.XmlMaps("FichierEDI_Mappage").Import URL:= _
        "c:\xml\20181220000001.xml"