Sauvegarde en XLSB sans Macro

Version imprimable

10/04/2017, 18h20
Ghost0000

Sauvegarde en XLSB sans Macro

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:

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:

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

ou encore

Code:

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

Merci de votre aide.

Cdlt.

GK
10/04/2017, 18h27
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, …
10/04/2017, 18h40
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 ?)
10/04/2017, 19h18
kiki29

Salut, la plus alambiquée ( à titre de curiosité ) : Supprimer les macros par une macro
10/04/2017, 19h46
clementmarcotte

Bonjour,

Citation:

Envoyé par Ghost0000

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.
11/04/2017, 11h36
Ghost0000
Citation:

Envoyé par kiki29

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:

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

J'ai essayé ça :
Code:

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

11/04/2017, 11h51
joe.levrai

Citation:

Envoyé par clementmarcotte

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 :aie:

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
11/04/2017, 12h08
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

J'ai fait ça :

Code:

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.

11/04/2017, 14h06
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 …

Ceci donc ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'1-Enregistrement de la copie en XLSX
ActiveWorkbook.SaveCopyAs Filename:=INI_DestFichier & ExcelFile_Name & "1.xlsx"
 
'2-Ouverture de la copie du fichier XLSX
Workbooks.Open INI_DestFichier & ExcelFile_Name & "1.xlsx"
 
'3-Enregistrement de la Copie en XLSX
ThisWorkbook.SaveAs Filename:=INI_DestFichier & ExcelFile_Name, FileFormat:=xlOpenXMLWorkbook
 
'4-Enregistrement en XLSB
ThisWorkbook.SaveAs Filename:=INI_DestFichier & ExcelFile_Name, FileFormat:=xlExcel12
ActiveWorkbook.Close
 
'5-Suppression du fichier XLSX
Kill INI_DestFichier & ExcelFile_Name & "1.xlsx"

J'obtiens l'erreur suivante : "impossible d'ouvrir le fichier car son format ou son extension n'est pas valide" --> dans la partie "2-Ouverture de la copie du fichier XLSX"

11/04/2017, 14h41
Marc-L

Oui normal car la première directive n'a pas été suivie !
La copie via SaveCopyAs est dans le même format donc l'extension du fichier ne doit pas changer …

J'ai fais ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'1-Enregistrement de la copie en XLSB
ActiveWorkbook.SaveCopyAs Filename:=INI_DestFichier & ExcelFile_Name & "_1"
 
'2-Ouverture de la copie du fichier XLSB
Workbooks.Open INI_DestFichier & ExcelFile_Name & "_1"
 
'3-Enregistrement de la Copie en XLSX
ThisWorkbook.SaveAs Filename:=INI_DestFichier & ExcelFile_Name, FileFormat:=xlOpenXMLWorkbook
 
'4-Enregistrement en XLSB
ThisWorkbook.SaveAs Filename:=INI_DestFichier & ExcelFile_Name, FileFormat:=xlExcel12
ActiveWorkbook.Close
 
'5-Suppression du fichier XLSB Copié
Kill INI_DestFichier & ExcelFile_Name & "_1"

Mais j'obtiens un XLSB avec la macro ?

11/04/2017, 15h17
Marc-L

Erreur en ligne de code n°8 : quel classeur doit être donc sauvegardé ?‼

???

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'1-Enregistrement de la copie en XLSB
ActiveWorkbook.SaveCopyAs Filename:=INI_DestFichier & ExcelFile_Name & "_1"
 
'2-Ouverture de la copie du fichier XLSB
Workbooks.Open INI_DestFichier & ExcelFile_Name & "_1"
 
'3-Enregistrement de la Copie en XLSX
Workbooks(ExcelFile_Name & "_1").SaveAs Filename:=INI_DestFichier & ExcelFile_Name, FileFormat:=xlOpenXMLWorkbook
 
'4-Enregistrement en XLSB
Workbooks(ExcelFile_Name).SaveAs Filename:=INI_DestFichier & ExcelFile_Name, FileFormat:=xlExcel12
Workbooks(ExcelFile_Name).Close
 
'5-Suppression du fichier XLSX
Kill INI_DestFichier & ExcelFile_Name & "_1"

11/04/2017, 15h28
Marc-L

A quoi fait donc référence ThisWorkbook ?!

Au classeur initial contenant le code (donc encore une fois ne devant pas être modifié !)
mais pas à la copie devant elle être sauvegardée sous un autre format …

Et comme un classeur quand il est ouvert devient le classeur actif …

Ce code marche :

Code:

1
2
3
ThisWorkbook.sheets(Array("Synthèse")).Copy
ActiveWorkbook.SaveAs Filename:=INI_DestFichier & ExcelFile_Name, FileFormat:=xlExcel12
ActiveWorkbook.Close

Merci à tous ! :)

Cdlt.

Gk

11/04/2017, 18h19
Marc-L

Ah la demande initiale a changée … :roll:

Et pour une seule feuille de calculs Array est superfétatoire !

Oui tu as raison, le code idéale est celui-ci :

Attention toutefois entre "Thisworkbook" et "Activeworkbook" qui sont des fichiers bien différents (j'ai eu des problèmes avec ça)
Code:

1 2 3 ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")).Copy 'Fichier de la macro qui exporte les onglets dans un autre classeur (classeur1) ActiveWorkbook.SaveAs Filename:=INI_DestFichier & ExcelFile_Name, FileFormat:=xlExcel12 'Enregistrement de l'autre classeur (classeur1) contenant les onglets au format XLSB sans macro (car l'autre classeur qui ne contient pas de macro) ActiveWorkbook.Close 'Fermeture de l'autre classeur (classeur1) qui ne contient pas de macro
Et pour exporter un seul sheet uniquement, cette ligne suffira :

Code:

ThisWorkbook.Sheets("Sheet1").Copy

Je poste ici, car cela pourrai servir à quelqu'un...

Merci à tous.

GhostK.

Fuseau horaire GMT +2. Il est actuellement 15h18.