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.