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
![]()
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
![]()
Bonjour,
Il faut un fichier modèle qui contient une ligne d'entête (fichier joint)
Voici le code que j'utilise :
A+
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Thierry
Partager