Discussion :

[thomahh]

Bonjour à tous,

je recherche comment extraire des fichiers d'un dossier compressé avec VBA.

J'utilise 7zip et excel 2010. J'ai un programme, mais quand je le lance, il ne se passe rien.

Merci pour votre aide.

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
Sub Dezipper()
 
    Dim CheminZip As String
    Dim DossierUnZip As String
    Dim FichierZip As Variant, ShellStr As String
 
    CheminZip = "C:\program files\7-Zip\"
 
    DossierUnZip = "C:\Users\tliberti\Desktop\Stage bureau\Travaux\Détopages Litiges"
    FichierZip = "C:\Users\tliberti\Desktop\Stage bureau\Travaux\Détopages Litiges\documents-export-2012-08-01.zip"
    ShellStr = CheminZip & "7z.exe x -aoa -r" _
             & " " & Chr(34) & FichierZip & Chr(34) _
             & " -o" & Chr(34) & DossierUnZip & Chr(34) & " " & "*.*"
 
 
 
End Sub

[fring]

Bonjour,

C'est normal qu'il ne se passe rien parce que dans ton code tu ne fais qu'initialisé des variables, tu ne lances pas le programme via la commande Shell.

Jette un oeil sur cette discussion --> http://www.developpez.net/forums/d27...r-fichier-vba/

[thomahh]

Ok, j'ai essayé d'adapter le programme sur le lien que tu m'as donné.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Commande3_Click()
 
CheminWinZip = "C:\program files\7-Zip\"
 
DossDest = "C:\Users\tliberti\Desktop\Stage bureau\Travaux\Détopages Litiges"
NomArchive = "C:\Users\tliberti\Desktop\Stage bureau\Travaux\Détopages Litiges\documents-export-2012-08-01.zip"
 
Shell (CheminWinZip & "7z.exe x -aoa -r """ & NomArchive & """ """ & DossDest & """")
End Sub

Il ne se passe toujours rien...

[fring]

L'utilisation de 7-zip via VBA est un peu plus complexe, je vois que tu as un bout de code réalisé par Ron Debruin mais il faut le code complet...

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
19
20
21
22
23
Declare Function OpenProcess Lib "kernel32" _
                             (ByVal dwDesiredAccess As Long, _
                              ByVal bInheritHandle As Long, _
                              ByVal dwProcessId As Long) As Long
 
Declare Function GetExitCodeProcess Lib "kernel32" _
                                    (ByVal hProcess As Long, _
                                     lpExitCode As Long) As Long
 
Public Const PROCESS_QUERY_INFORMATION = &H400
Public Const STILL_ACTIVE = &H103
 
Public Sub ShellAndWait(ByVal PathName As String, Optional WindowState)
    Dim hProg As Long
    Dim hProcess As Long, ExitCode As Long
    If IsMissing(WindowState) Then WindowState = 1
    hProg = Shell(PathName, WindowState)
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, hProg)
    Do
        GetExitCodeProcess hProcess, ExitCode
        DoEvents
    Loop While ExitCode = STILL_ACTIVE
End Sub

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
Sub Dezipper()
 
Dim CheminZip As String
Dim DossierUnZip As String
Dim FichierZip As Variant, ShellStr As String
 
CheminZip = "C:\program files\7-Zip\"
 
DossierUnZip = "C:\Users\tliberti\Desktop\Stage bureau\Travaux\Détopages Litiges\"
FichierZip = "C:\Users\tliberti\Desktop\Stage bureau\Travaux\Détopages Litiges\documents-export-2012-08-01.zip"
ShellStr = CheminZip & "7z.exe x -aoa -r" _
         & " " & Chr(34) & FichierZip & Chr(34) _
         & " -o" & Chr(34) & DossierUnZip & Chr(34) & " " & "*.*"
 
ShellAndWait ShellStr, vbHide
 
End Sub

[thomahh]

Merci beaucoup.