si tu as winzip tu peux le lancer en ligne de commande avec des paramètres http://dj.joss.free.fr/zip.htm
@+ Nohant
-----Message d'origine----- Bonjour à tous,
Je voudrais savoir comment grace à une macro, je peux automaitquement zipper
des fichiers Excel.
Merci
Yann
.
Hervé
Salut Yann, Pour zipper un ou plusieurs fichiers :
Sub ZipperUnFichier() Dim CheminZippeur As String Dim Zippeur As String Dim Fichier As String Dim ArchiveZip As String CheminZippeur = "C:Program FilesWinZip" Zippeur = "Winzip32.exe -a" 'les guillemets "Chr(34)" évitent l'erreur 'dûe à la présence d'espace dans 'les noms de fichiers à compresser et compressés ArchiveZip = Chr(34) & "D:Mon fichier comprimer.zip" & Chr(34) Fichier = Chr(34) & "D:Mon fichier à comprimer.doc" & Chr(34)
Sub ZipperPlusieursFichiers() Dim CheminZippeur As String Dim CheminFichACompresser As String Dim Zippeur As String Dim Fichier As String Dim ArchiveZip As String CheminZippeur = "C:Program FilesWinZip" Zippeur = "Winzip32.exe -a" 'dans un fichier texte, le chemin complet de chaque fichier 'à comprimer par ligne. exemple : 'D:Dossier1MonFichier1.doc 'D:Dossier1MonFichier2.xls 'D:Dossier1MonFichier3.psp CheminFichACompresser = "D:FichierTexte.txt"
Shell (CheminZippeur & _ Zippeur & " " & _ ArchiveZip & " @" & _ CheminFichACompresser) End Sub
Hervé.
"Yann BARBARAY" a écrit dans le message news: bn8p72$ced$
Bonjour à tous,
Je voudrais savoir comment grace à une macro, je peux automaitquement zipper
des fichiers Excel.
Merci
Yann
Salut Yann,
Pour zipper un ou plusieurs fichiers :
Sub ZipperUnFichier()
Dim CheminZippeur As String
Dim Zippeur As String
Dim Fichier As String
Dim ArchiveZip As String
CheminZippeur = "C:Program FilesWinZip"
Zippeur = "Winzip32.exe -a"
'les guillemets "Chr(34)" évitent l'erreur
'dûe à la présence d'espace dans
'les noms de fichiers à compresser et compressés
ArchiveZip = Chr(34) & "D:Mon fichier comprimer.zip" & Chr(34)
Fichier = Chr(34) & "D:Mon fichier à comprimer.doc" & Chr(34)
Sub ZipperPlusieursFichiers()
Dim CheminZippeur As String
Dim CheminFichACompresser As String
Dim Zippeur As String
Dim Fichier As String
Dim ArchiveZip As String
CheminZippeur = "C:Program FilesWinZip"
Zippeur = "Winzip32.exe -a"
'dans un fichier texte, le chemin complet de chaque fichier
'à comprimer par ligne. exemple :
'D:Dossier1MonFichier1.doc
'D:Dossier1MonFichier2.xls
'D:Dossier1MonFichier3.psp
CheminFichACompresser = "D:FichierTexte.txt"
Salut Yann, Pour zipper un ou plusieurs fichiers :
Sub ZipperUnFichier() Dim CheminZippeur As String Dim Zippeur As String Dim Fichier As String Dim ArchiveZip As String CheminZippeur = "C:Program FilesWinZip" Zippeur = "Winzip32.exe -a" 'les guillemets "Chr(34)" évitent l'erreur 'dûe à la présence d'espace dans 'les noms de fichiers à compresser et compressés ArchiveZip = Chr(34) & "D:Mon fichier comprimer.zip" & Chr(34) Fichier = Chr(34) & "D:Mon fichier à comprimer.doc" & Chr(34)
Sub ZipperPlusieursFichiers() Dim CheminZippeur As String Dim CheminFichACompresser As String Dim Zippeur As String Dim Fichier As String Dim ArchiveZip As String CheminZippeur = "C:Program FilesWinZip" Zippeur = "Winzip32.exe -a" 'dans un fichier texte, le chemin complet de chaque fichier 'à comprimer par ligne. exemple : 'D:Dossier1MonFichier1.doc 'D:Dossier1MonFichier2.xls 'D:Dossier1MonFichier3.psp CheminFichACompresser = "D:FichierTexte.txt"
