Comment faire pour zipper à partir d'excel tous les fichiers contenus dans un dossier ?

Si tu ne veux zipper que des fichiers dont tu auras établi auparavant la liste dans un fichier *.txt sers toi de cette macro pour l'adapter.

sub Compresser_Plusieurs_fichiers()
 'Cette procédure va "lire" le fichier "C:	mpzaza.txt" et compresser les
 fichiers lus dans l'archive "C:	mpzaza.zip"
 'Ici le fichier zaza.txt contient
 'C:	mptest.doc
 'C:	mptest.zip
 'C:	mptest.xls
 'Attention, une ligne par fichier
 Const CheminWinZip = "C:\Program FilesWinZip" 'Répertoire ou est installé
 WinZip
 Const NomArchive = "C:	mpzaza.zip" 'Nom du fichier Zip a créér
 Const QuelFichier = "C:	mpzaza.txt" 'Nom du fichier comprenant les
 fichiers à inclure
 Shell (CheminWinZip & "winzip32.exe -a " & NomArchive & " @" & QuelFichier)
 'execution
 end sub

Astuce illustrée par ce classeur
skfc-zipper