Changer un format .xlsx en .xls par le code ? [Résolu]

[Nitromard]

Bonjour à tous,

Alors tout est dans le nom de la discussion, j'aimerais transformer un fichier xlsx avec une ou plusieurs feuilles en un fichier xls afin d'utiliser ensuite des méthodes d'extraction vers access (méthodes bien distinctes à mes structures de fichiers donc impossibles à changer ^^).

Est-ce que quelqu'un saurait si cela est possible ?

S'il n'y a pas de fonction prédéfinies, quelle serait la méthode?
Prendre l'ensemble des données, les stocker dans une table et les recoller dans un nouveau fichier? Puis supprimer l'ancien? Avec ADO, avec Do.cmd?

Voilà, discussion assez libre et pas urgente.

Merci pour vos réponses,

Cordialement,

Q.D.

[pgz]

Bonjour.

Pour transformer un xlsx en xls, il faut l'enregistrer dans ce dernier format.

• Donc tu l'ouvres
• Tu l'enregistres (SaveAs) avec l'argument FIleFormat = xlExcel8.

Ce changement de format entraîne généralement l'ouverture d'une boîte de dialogue qui dit que des infos vont être perdues (généralement mises en forme, du fait que les feilles sont plus petites en xls). A toit de voir si tu masques le alertes ou pas.

COrdialement,

PGZ

[Nitromard]

Donc ce serait ça ? :

Code :

1
2
3
4
5
Dim Obj as Object
Dim ObjWorkbook
Set Obj = createobject("Excel.Apllication")
Set ObjWorkbook = Obj.Workbooks.Open("C\FileName.xlsx")
ObjWorkbook.Saveas("C\FileName.xls")

Ou dans le mm genre mais qui fonctionnerait ^^

[Nitromard]

Bon le code que j'ai posté fonctionne mais a l'ouverture manuelle du fichier xls, j'ai juste un message pour me dire que le format a été changé un truc du genre.

Et avec ce genre de manip, travailler ensuite sur le fichier .xls ne pose pas de problème? Peut être juste pour le format des données ?

Merci.

[pgz]

Re,

Comme je te le disais dans mon message précédent, il faut préciser le format de fichier.

Code :

ObjWorkbook.Saveas "C\FileName.xls", xlExcel8

Cordialement,

PGZ

[Nitromard]

Ok, merci bcp, et bonne continuation ^^ !