comment dézipper avec vba ???

[albert]

bonjour à tous et à toutes forumiens, forumiennes,

Je cherche à dézipper en boucle des fichier avec une macro vba.

je test une création de zip, pour ensuite transformer en code de dézippage
(je crois qu’i faut remplacer Shell (CheminWinZip & "winzip32.exe –a par Shell (CheminWinZip & "winzip32.exe -e )

J’utilise le code
<A HREF= » http://dj.joss.free.fr/zip.htm »>zip</A

à cet effet, j’enregistre un fichier excel sous le nom "Programme.bas"
et je lance la macro Sub Zip_Un_fichier()
…
La ligne suivante bogue : Shell (CheminWinZip & "winzip32.exe -a " & NomArchive & " " & QuelFichier) 'execution

Je ne trouve pas l’erreur…
Puis-je avoir une aide ??

Merci d’avance
albert

'Déclaration globale
Public Const CheminWinZip = "C:\Program Files\WinZip\WINZIP32" 'Répertoire ou est installé Winzip


Sub Zip_Un_fichier()
'Cette procédure va compresser le fichiers "Programme.bas" et le placer dans l'archive "C:\tmp\zaza.zip"

Const NomArchive = "C:\tmp\zaza.zip" 'Nom du fichier Zip a créer
Const QuelFichier = "C:\tmp\Programme.bas" 'Nom du fichier à compresser
Shell (CheminWinZip & "winzip32.exe -a " & NomArchive & " " & QuelFichier) 'execution
End Sub

 

[albert]

tiens, je pensais avoir bien écrit le code html pour rendre l'adresse active...
c'est râté

http://dj.joss.free.fr/zip.htm

 

[albert]

en fait, il semble que winzip 8.0 n'a pas d'exécutable... une recherche sur
winzip32.exe donne WINZIP32 en zip...
c'est bizarre