Re : Re: dezipper

Salut niqo,
Teste ceci pour voir, avec, je te joint la méthode pour zipper un ou
plusieurs fichiers si cela peut t'intéresser, ou d'autres personnes lisant
ce post :

Sub Dezipper()
Dim CheminZippeur As String
Dim DeZippeur As String
Dim ArchiveZip As String
Dim Dossier As String

CheminZippeur = "C:Program FilesWinZip"
DeZippeur = "Winzip32.exe -e"

'Archive et dossier de destination
'les Chr(34) évitent l'erreur due à la présence d'espace
ArchiveZip = Chr(34) & "D:Mon dossierArchive.zip" & Chr(34)
Dossier = Chr(34) & "D:" & Chr(34)

Shell (CheminZippeur & _
DeZippeur & " " & _
ArchiveZip & " " & _
Dossier)

End Sub

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 Chr(34) évitent l'erreur due à la présence d'espace
ArchiveZip = Chr(34) & "D:Mon fichier comprimer.zip" & Chr(34)
Fichier = Chr(34) & "D:Mon fichier à comprimer.doc" & Chr(34)

Shell (CheminZippeur & _
Zippeur & " " & _
ArchiveZip & " " & _
Fichier)

End Sub

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"

ArchiveZip = Chr(34) & "D:Mon fichier comprimer.zip" & Chr(34)

Shell (CheminZippeur & _
Zippeur & " " & _
ArchiveZip & " @" & _
CheminFichACompresser)
End Sub

Hervé.

"niqo" <niqo11@yahoo.fr> a écrit dans le message de news:
d7e94a1.0412290559.7f8c657f@posting.google.com...

Oui
Public Const CheminWinZip = "C:Program FilesWinZip" 'Répertoire ou
est installé Winzip
J'ai vérifié que cela était OK !
J'ai oublié de préciser qu'il s'agissait d'un fichier texte ".txt". Je
ne sais pas si cela change quelque chose à la donne.
Merci pour ce début de réponse.
Si jamais, y a d'autres conseils, je suis preneur. ;-)


CheminWinZip est-il défini quelque part ?

--
Gaenonius

Bonjour,
Je récupéré sur Excelabo une procédure pour dézipper un fichier avec
l'application GetDirectory :

Sub Dezipper()
'Dézippe une archive dans le dossier de votre choix
Dim NomArchive As String
Dim DossDest As String
NomArchive = GetDirectory("Choisissez le fichier à dézipper", 1)
DossDest = GetDirectory("Choisissez le dossier de destination", 0)
Shell (CheminWinZip & "winzip32.exe -e " & NomArchive & " " &
DossDest)
End Sub

Lorsque que j'exécute cette macro tout se déroule apparament
normalement sauf qu'à la fin, je ne retrouve pas mon fichier sur le
répertoire que j'ai sélectionné (ni ailleurs) et pourtant winzip est
vide.
Ai je loupé une manip ?
Merci de votre aide, Niqo.