Compresser un fichier xls avec 7zip

Version imprimable

08/06/2016, 16h30
Jean351

Compresser un fichier xls avec 7zip
Bonjour,
j'ai besoin d'envoyer un fichier XLS par mail via un fichier bat.
Problème il est trop volumineux du coup j'aimerais via
un fichier VBS (ou .bat) le compresser.
Voici le code que j'ai essayé:
Code:

1 2 3 Shell "C:\Program Files\7-Zip\7z a -tzip c:\test.zip ""D:\PARTAGES_LIMITES\RAPPORTS\Rapports v2\jean-claude \ suivic.xls"""
J'ai essayé à un autre code du type :" CreateObject...shell..."
Mais rien n'a faire ça ne fonctionne en aucun point.
Je suis assez désespéré car c'est la dernière étape afin que mon outil soit complet, j'espère avoir un retours. Pour au moins peu être pouvoir avancé vers une piste:(
Cordialement
08/06/2016, 22h38
clementmarcotte

Bonjour,

Ton fichier xls est un fichier binaire. Je ne suis pas certain que la compression seule te permette de réduire énormément la taille de ton fichier. Cela vaudrait la peine que tu vérifies manuellement si le jeu en vaut la chandelle.

Je ne connais pas 7-zip, mais il y a des logiciels de zip (le mien c'est PeaZip) qui permettent de diviser un fichier en plusieurs zip et de les recombiner.

Certains logiciels de courrier électronique on des fonctionnalités similaires.

VbScript n'utilise pas (nativement) la méthode Shell.
D'autre part, les chemins longs avec des espaces provoquent une erreur notamment avant et après le séparateur de dossier(le caractère \ ) comme dans ton code.

Essaie avec ce
Code:

1 2 3 4 5 6 7 8 9 Option Explicit Dim WS, CM, DestZip, SrcFile, Prg, fso Set fso = CreateObject("Scripting.FileSystemObject") Set WS = CreateObject("Wscript.Shell") SrcFile = fso.GetFile("D:\PARTAGES_LIMITES\RAPPORTS\Rapports v2\jean-claude\suivic.xls").ShortPath DestZip = "C:\test.zip" Prg = fso.GetFile("C:\Program Files\7-Zip\7z.exe").ShortPath CM = Prg & " a -tzip " & DestZip & " " & SrcFile WS.Run CM , 0, True

Citation:

Envoyé par clementmarcotte

Bonjour,

Cela vaudrait la peine que tu vérifies manuellement si le jeu en vaut la chandelle.

Je ne connais pas 7-zip, mais il y a des logiciels de zip (le mien c'est PeaZip) qui permettent de diviser un fichier en plusieurs zip et de les recombiner.
.

Oui c'est ce que j'avais fait en amont et son poid est divisé par 9 !
Citation:
Envoyé par l_autodidacte
VbScript n'utilise pas (nativement) la méthode Shell.
D'autre part, les chemins longs avec des espaces provoquent une erreur notamment avant et après le séparateur de dossier(le caractère \ ) comme dans ton code.

Essaie avec ce
Code:

1 2 3 4 5 6 7 8 9 Option Explicit Dim WS, CM, DestZip, SrcFile, Prg, fso Set fso = CreateObject("Scripting.FileSystemObject") Set WS = CreateObject("Wscript.Shell") SrcFile = fso.GetFile("D:\PARTAGES_LIMITES\RAPPORTS\Rapports v2\jean-claude\suivic.xls").ShortPath DestZip = "C:\test.zip" Prg = fso.GetFile("C:\Program Files\7-Zip\7z.exe").ShortPath CM = Prg & " a -tzip " & DestZip & " " & SrcFile WS.Run CM , 0, True
J'avais réussi sous vba à partir d'excel mais cette solution alourdissait mon exécution, ta solution est nettement plus fluide je te remercie vraiment !