Conversion classeur OpenXML vers XLS

Version imprimable

15/02/2008, 16h46
duge

Conversion classeur OpenXML vers XLS

Bonjour à tous,

Je voudrai convertir un classeur Excel qui se trouve au format xml (fichier très volumineux) en un classeur classique xls (qui est deux fois moins gros pour la même chose). Cette manip doit être possible car depuis Excel et même depuis le VBA en faisant un saveAs(), cette opération fonctionne bien.

Mais alors pourquoi, je post? le problème c'est que pour faire un saveAs, il faut (je pense) ouvrir le classeur XML et cela fonctionne pour des classeur xml de taile <8Mo, pour des tailles supérieures vba renvois une erreur de "type inconnu" (j'aime bien le nom...) et mon ordi n'est pas spécialement un vieux coucou!!!.

Donc est-il possible de faire un saveAs (ou equivalent) d'un classeur sans avoir à l'ouvrir. Pour info j'ai aussi creusé du coté de Application.FileConverters sans avoir trouver mon bonheur.

merci d'avance.

Ca vaudrait la peine d'essayer avec .Net (pas besoin d'avoir Visual Studio...).

Voici un exemple de code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Excel._Application app = new Excel.Application();
app.Visible = false;
Excel.Workbooks workbooks = app.Workbooks;
object missing = Missing.Value;
Excel._Workbook workbook = workbooks.Open(tempname, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing);
try
{
    File.Delete(filename);
}
catch {}
object fileToSave = filename;
object workbooknormal = -4143;
Excel.XlSaveAsAccessMode nochange = Excel.XlSaveAsAccessMode.xlNoChange;
workbook.SaveAs(fileToSave, workbooknormal, missing, missing, missing, missing, nochange, missing, missing, missing, missing, missing);
workbook.Close(missing, missing, missing);
app.Quit();

Par contre, il faut télécharger et installer un complément à Office (Microsoft.Office.Interop.Excel.dll)

ok merci, je vais tenter le coup

----EDIT

J'ai fait un test de ta manip mais sans passer par le .net car je dois me débrouiller uniquement en vba, en gros ça donne un truc du genre:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub MaSub() Dim xlApp As New Excel.Application ' déclarer Public si dans un module Dim xlBook As New Excel.Workbook 'Ouvrir le classeur dont on a besoin avec tout le chemin... Set xlBook = xlApp.Workbooks.Open("classeur.xml") xlBook.saveAs("classeur.xls", xlNormal) xlBook.Close xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing End Sub
mais ça plante comme avant donc dés lors que l'ont veut utiliser Excel ou une instance de celui-ci, ça plante dès que mon fichier dépasse une certaine taille. On dirait qu'il pédale sur une multitude d'action (tests-boucles) à l'interprétation du classeur xml.

D'autres pistes?