Discussion :

[Ghost0000]

Bonjour,

Tous le monde connait les avantages du format "XLSB" qui permet de compresser au mieux les données que le XLSM...

Simplement je souhaiterai enregistrer un classeur en XLSB SANS MACRO, comment m'y prendre ?

Pour le moment j'utilise ceci pour enregistrer en XLSX :

Code :

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

ThisWorkbook.SaveAs Filename:=INI_DestFichier & ExcelFile_Name, FileFormat:=xlOpenXMLWorkbook

Et moi j'aimerai enregistrer en XLSB SANS MACRO.

CODE POUR ENREGISTRER EN XLSB AVEC MACRO :

Code :

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

ThisWorkbook.SaveAs Filename:=INI_DestFichier & ExcelFile_Name, FileFormat:=xlExcel12

ou encore

Code :

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

ThisWorkbook.SaveAs Filename:=INI_DestFichier & ExcelFile_Name, FileFormat:=50

Merci de votre aide.

Cdlt.

GK

[Marc-L]

Bonjour, bonjour !

Enregistrer d'abord en .xlsx pour faire sauter les codes puis en .xlsb et enfin supprimer le .xlsx …

Voilà, voilà !

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Ghost0000]

Et si j'exportai les feuilles dans un autre classeur, ça ne serait pas plus simple que de faire cette manipulation ? (le nouveau classeur ne devrait pas contenir les codes VBA je pense ?)

[kiki29]

Salut, la plus alambiquée ( à titre de curiosité ) : Supprimer les macros par une macro

[Ghost0000]

Salut, la plus alambiquée ( à titre de curiosité ) : Supprimer les macros par une macro

J'ai essayé avec ce code pour supprimer mon module avant d'enregistrer :

Code :

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

1
2
3
4
5
Sub supprimerUnModule()
    With ThisWorkbook.VBProject.VBComponents
        .Remove .Item("Module2")
    End With
End Sub

Le problème c'est que j'effectue la suppression avant d'enregistrer ... donc cela ne fonctionne pas...

Je vais essayé d'enregistrer en xlsx puis ensuite en xslb...

Merci.

GK

[Ghost0000]

J'ai essayé ça :

Code :

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

1
2
3
4
5
'Enregistrement en xlsx
ThisWorkbook.SaveAs Filename:=INI_DestFichier & ExcelFile_Name, FileFormat:=xlOpenXMLWorkbook
 
'Enregistrement en xlsb
ThisWorkbook.SaveAs Filename:=INI_DestFichier & ExcelFile_Name, FileFormat:=xlExcel12

Mais même avec ça , cela ne fonctionne pas...
J'ai toujours mon module 1 dans mon XLSB

[clementmarcotte]

Bonjour,

Bonjour,

Tous le monde connait les avantages du format "XLSB" qui permet de compresser au mieux les données que le XLSM...

Pas si sûr que cela que le gain soit énorme. Le format xlsx/xslm est déjà un fichier zip. Et puis les macros sont déjà sous un format binaire dans le zip déguisé. Il faudrait une quantité astronomique de classeurs pour que le gain éventuel soit significatif.

[joe.levrai]

Bonjour,

Pas si sûr que cela que le gain soit énorme. Le format xlsx/xslm est déjà un fichier zip. Et puis les macros sont déjà sous un format binaire dans le zip déguisé. Il faudrait une quantité astronomique de classeurs pour que le gain éventuel soit significatif.

Bonjour,

je confirme le contraire, le gain peut être conséquent sur un seul classeur.
le fait de ne plus stocker les données sous format xml permet un gain proportionnel à la quantité de données stockées.

dernier exemple en date : on me balance un fichier en indiquant "il marche plus".
le fichier contenait une feuille avec un ListObject de 750 000 lignes de données (sur 25 colonnes parfois)
taille du fichier : 50Mo !!

je l'ai passé en xlsb, on est tombé à 8Mo, le fichier ne plante plus (même bien sûr, il est lent) ... et je ne désespère pas qu'ils comprennent que c'est un pansement temporaire... un tel fichier ne devrait jamais exister ainsi


Jp a fait un bon tuto sur les format de fichiers, et notamment un comparatif du poids en fonction du format
http://jpcheck.developpez.com/tutori...s-xlsb/#LIII-A

[Ghost0000]

je confirme également, mon fichier de 11Mo se transforme en fichier de 5.7Mo ... donc c'est un avantage, surtout que mon fichier doit être envoyé par mail au final...

Une idée de solution pour mon problème ?

Cdlt.

GK

[Ghost0000]

J'ai fait ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'***ETAPE 1***
'Enregistrement en XLSX TEMP
ThisWorkbook.SaveAs Filename:=INI_DestFichier & ExcelFile_Name, FileFormat:=xlOpenXMLWorkbook
 
'***ETAPE 2***
'Enregistrement en XLSB
Workbooks(INI_DestFichier & ExcelFile_Name & ".xlsx").SaveAs Filename:=INI_DestFichier & ExcelFile_Name, FileFormat:=xlExcel12
 
'***ETAPE 3***
'Suppression du fichier XLSX TEMP
Kill INI_DestFichier & ExcelFile_Name & ".xlsx"

ça ne marche pas ... une idée ?

Merci d'avance.

Gk.

[Marc-L]

C'est juste une question de logique !

• Enregistrer d'abord une copie du classeur via la méthode SaveCopyAs en modifiant le nom.
• Ouvrir la copie puis la sauvegarder en .xlsx via SaveAs.
• Sauvegarder ensuite en .xlsb toujours via SaveAs.
• Fermer puis supprimer du disque tous les classeurs intermédiaires …