Bonjour wahoo31 et le forum,
Essaye ceci (faire éventuellement une sauvegarde préalable du dossier à zipper...) :
Sub Zip_And_Delete()
Dim sDossier As String
Dim sArchive As String
sDossier = "C:\MonDossier" 'Dossier contenant les fichiers à zipper
sArchive = "C:\MonAutreDossier\" & Dir(sDossier, vbDirectory) & ".zip" 'Chemin et nom de l'archive
'Zip du dossier (C:\MonDossier -> C:\MonAutreDossier\MonDossier.zip)
Shell """C:\Program Files\Winzip\Winzip32.exe""" & " -min -a " & sArchive & " " & sDossier, vbHide
'Suppression du dossier d'origine
If MsgBox("Voulez-vous supprimer le dossier '" & sDossier & "' et son contenu ?", vbYesNo Or vbQuestion) = vbYes Then
Kill sDossier & "\*.*"
RmDir sDossier
End If
End Sub
Le chemin de Winzip32.exe est à adapter. Pour les paramètres, voir le lien ci-dessous :
<http://www.winzip.com/xcmdline.htm>
Slts
wally