Discussion :

[duge]

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.

[alain.couthures]

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

Voici un exemple de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[duge]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?