Discussion :

[Jean351]

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 :

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

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

[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.

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

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

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

[Jean351]

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 !

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 :

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

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 !