Conversion Excel -> XML

[feut]

On peut facilement à partir d'excel, enregistrer son document au format XML.

Cependant est-il possible d'automatiser cette conversion, par un script ou autre.

ci vous avez des idée pour me mettre sur la voie.

Cordialement,
Christophe

 

[Catrice]

Re : Conversion Excel -> XML

Bonsoir,

En Vba ?

Sub Test()
ActiveWorkbook.SaveAs Filename:="C:\Classeur1.xml", FileFormat:=xlXMLSpreadsheet
End Sub

 

[feut]

Re : Conversion Excel -> XML

Oui comment fait ton pour convertir une liste de fichier excel en XML avec ton code sans les ouvrir un par un, et executer la macro ?

 

[Catrice]

Re : Conversion Excel -> XML

Bonsoir,

Je ne m'y connais pas bien en XML mais je crois qu'on est obligé d'ouvrir les fichiers.
Il suffit de faire une boucle qui ouvre, enregistre en XML et referme le fichier.

 

[Staple1600]

Re : Conversion Excel -> XML

Bonsoir

Si je ne sais pas si cela pourra t'aider

Export Excel to XML in VBA - The Code Project - VB / VBScript

Export an Excel Worksheet to XML (Excel Macro)

 

[MichelXld]

Re : Conversion Excel -> XML

bonjour Feut, Catrice et Staple1600

Tout comme Catrice, je pense que ça va être difficile sans ouvrir le classeur.


Sinon une solution pour enregistrer une feuille seule au format xml sans ouvrir le classeur, en utilisant le modèle ADO
et à condition que la feuille ne serve que de stockage de données (comme pour une table Access)

Sub exportTableFeuille_XML()
    Dim Cn As ADODB.Connection
    Dim Rs As ADODB.Recordset
    Dim Fichier As String
 
    Fichier = "C:\Documents and Settings\mimi\NomClasseur.xls"
 
    Set Cn = New ADODB.Connection
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Open
    End With
 
    Set Rs = New ADODB.Recordset
    With Rs
        .ActiveConnection = Cn
        .Open "SELECT * FROM [Feuil1$]", , _
            adOpenStatic, adLockOptimistic, adCmdText
    End With
 
    Rs.Save "C:\exportTable.xml", adPersistXML
 
    Cn.Close
    Set Cn = Nothing
End Sub

d'autres exemples sur le xml:

https://www.excel-downloads.com/threads/xml-le-mappage-xml.78630/

https://www.excel-downloads.com/threads/ref-wiki-page-9-de-michelxld.92377/


Bonne journée
MichelXld

 

[feut]

Re : Conversion Excel -> XML

Merci a jour tous pour votre aide, mais j'ai resolu mon problème en faisant un Script AppleScript, qui me permet de glisser un nombre x de fichier excel et il me les convertis tous en xml.