Achiver en zip un document excel

Bonjour à tous,

Je cherche une solution pour archiver en zip le document excel en vba.

Si vous avez des scripts pouvant m'aider!:?

Je vous remercie
8-)

1 pièce(s) jointe(s)

Bonjour,

Il faut un fichier modèle qui contient une ligne d'entête (fichier joint)
Voici le code que j'utilise :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Dim osa As Shell
 
Private Sub ZipperFichier(fichier)
 
' Préparation de l'archive
  nfZip = "c:\Temp\" & sfs.GetBaseName(fichier) & ".zip"
  sfs.CopyFile "c:\Modèle\Modèle.zip", nfZip, True
  DoEvents
 
' Intégration du fichier dans l'archive
  Set osa = New Shell
  osa.Namespace(nfZip).CopyHere (fichier)
 
' Wait pour être sur de pouvoir récupérer le fichier
  DoEvents
  Application.Wait (Now + TimeValue("0:00:01"))
   Set osa = Nothing

A+
Thierry

Salut, voir http://excel.developpez.com/sources/...#ZipperDossier ainsi que http://excel.developpez.com/sources/...#ZipperFichier