Ajouter un fichier dans un zip
Bonjour le forum,
Tout d'abord je tiens à vous dire que je n'y connais pas grand chose sur les commandes Shell.
Je viens sur ce forum car je n'ai pas eu la solution sur le forum outlook VBA.
Voici le problème :
J'ai créé une macro outlook, celle ci permet d'enregistrer des pièces jointes à un emplacement du serveur. Ensuite il faudrait rajouter ce fichier à un fichier ZIP existant.
Voici ce que j'ai tenter d'après les différentes infos que j'ai pu trouver sur différents forum... Si quelqu'un peut m'aider...
Code:
1
2
3
4
|
commandeZip = "D:\Program Files\WinZip\WINZIP32.EXE -a " & repertoirePJ & "\" & moisEnCours & ".zip" & " " & repertoirePJ & "\" & monMail.Attachments.Item(k).DisplayName
MsgBox (Chr(34) & commandeZip & Chr(34))
resultat = objShell.Run(Chr(34) & commandeZip & Chr(34), 0, True) ' ne rendra la main qu'une fois terminé |
Donc celà correspondrait à faire :
Code:
1
2
3
4
5
|
"D:\Program Files\WinZip\WINZIP32.EXE -a U:\DSE\Employeurs\
S.F Employeurs\Ctrl Quotidien Lots Docs TIDE GFE\EXPERIAN\TEST\
2009mars.zip U:\DSE\Employeurs\S.F Employeurs\
Ctrl Quotidien Lots Docs TIDE GFE\EXPERIAN\TEST\toto.txt |
Je me suis demandé si le problème ne venait pas de la longueur du chemin d'accès au répertoire ou si les espaces posaient problème.
Merci d'avance pour vos réponses.
