Discussion :

[papyxy]

Bonjour
cette instruction donne une erreur :

Code :

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

1
2
3
4
    Set  xlapp = CreateObject("Excel.Application")
    Set owk =   xlapp.Workbooks.Add
    Set owk =   xlapp.Workbooks.Add
        owk.SaveAs ("fichier binaire.xlsb")

Comment formuler la commande?
Merci d'avance.

PS.version Excel 97

[clementmarcotte]

Bonjour,

Le format xlsb n'est pas supporté avant Excel 2007.

En fait, le format xls est déjà un fichier binaire.

En résumé :

Avant Office 2007 (extensions à 3 lettres ) ==> Fichiers binaires dans un format propriétaire Microsoft.

Depuis Office 2007 (extensions à 4 lettres) ==> Fichiers xml (textes et feuilles de calculs) et fichiers binaires (macros, images, sons, vidéos ) regroupés dans un conteneur au format zip

[papyxy]

bonjour
ok, pour la réponse.
Par contre si je crée un fichier en format normal (XLS), tout se passe bien; le programme se termine sans erreur.
Seulement, lorsque je veux le rouvrir (manuellement) voila le message qui apparait :

"Le format du fichier que vous tentez d'ouvrir, xxxxx.xls, est différent de celui spécifié par l'extension de fichier.
Assurez-vous que le fichier n'est pas endommagé et qu'il provient d'une source fiable avant de l'ouvrir. Souhaitez-vous ouvrir le fichier maintenant?"

Lorsque je réponds "Oui", celui-ci s'ouvre bien.

PS. je me suis trompé sur ma version Excel , c'est celle de 2007
veuillez m'excuser

[tsuji]

La méthode SaveAs a des options, parametrès positionels, disponibles:
https://msdn.microsoft.com/en-us/lib.../ff841185.aspx

Syntax

expression .SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)

expression A variable that represents a Workbook object.

Et FileFormat disponible est listé dans la documentation aussi:
https://msdn.microsoft.com/en-us/lib.../ff198017.aspx

XLExcel12 (50) s'applique pour xlsb... donc, on peut faire comme ça.

Code :

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

owk.SaveAs "fichier binaire.xlsb", 50    'XLExcel12=50

[papyxy]

Merci pour la réponse.

Mais je ne comprends pas comment on fait la liaison entre XlExcel12 et xlsb; ce n'est pas évident!
De ce fait je ne vois pas les équivalents avec xls et xlsm.