Discussion :

[Carabistouilleur]

Bonjour à toutes et à tous.

Sans faire de pub à un autre site dédié au développement ,cette vidéo :

...montre comment décompresser une archive winzip ou winrar :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub decompresser_Version_Seb(cheminFichierArch, dossierDest, FichierRes As String) 'D'après https://www.bonbache.fr/
'Cocher ref MS shell control and automation
Dim source As FolderItems 'contenu de l'archive
Dim commande As Shell
If Dir(dossierDest & FichierRes) <> "" Then 'test existence fichier décompressé
    Kill dossierDest & FichierRes
End If
Set commande = CreateObject("Shell.Application")
Set source = commande.NameSpace(cheminFichierArch).Items 'on accède à tous les items de l'archive 'MARCHE PAS AVEC LES 7z!!!!!!!!!!!!!!!!!'
'decompression :
commande.NameSpace(dossierDest).CopyHere source
Set commande = Nothing
Set source = Nothing
End Sub

Malheureusement, à priori cette librairie ne permet pas - sauf erreur de ma part - de manipuler des archives 7z. Auriez vous une solution ?
Merci.

[ONTAYG]

Bonjour,

Une piste : https://www.developpez.net/forums/d2033558/logiciels/microsoft-office/excel/macros-vba-excel/utilisation-7zip-vba-compresser-archiver-dossier/

ONTAYG

[Carabistouilleur]

Bonjour.
Je propose ceci:

Code :

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

1
2
3
4
5
6
Sub DecompressionSevenZ_V3(sNomArchive As String, sDossierDest As String)
Dim sCheminDb       As String
sCheminDb = CurrentProject.Path & "\"
'C:\Program Files (x86)\7-Zip\7z.exe : A CHANGER EN FONCTION DE LA CONF D'INSTALL DE SEVEN ZIP
Shell """C:\Program Files\7-Zip\7z.exe"" e """ & sCheminDb & sNomArchive & """ -o" & sDossierDest & " -y" '
End Sub

Pour info :
https://www.malekal.com/7-zip-tous-l...e-de-commande/

Merci.
Cordialement.