Discussion :

[Ptikir]

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 :

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

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 :

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

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.

[Winnt]

Salut,

Sauf que ici c'est le forum Linux et ca

"D:\Program Files\WinZip\WINZIP32.EXE

c'est typiquement windows

[Ptikir]

oups....