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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gaenonius
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.
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.
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.
