Décompresser un fichier zip

Bonjour,

Je viens vers vous car j'essaye de décompresser un fichier zip mais je n'y arrive pas.

Voici mon code :

    Dim repertoire As FileDialog
    Dim annulation As Boolean
    Dim FSO As Object
    Dim ApplicationArchivage As Object
    Dim FichierArchive As Variant
    Dim DossierDestination As String
    'Selection du repertoire de destination
    Set repertoire = Application.FileDialog(msoFileDialogFilePicker)

    With repertoire
        If .Show = -1 Then
            annulation = False
        Else
            annulation = True
        End If
    End With

    If annulation = False Then
        FichierArchive = repertoire.SelectedItems(1)
        DossierDestination = MonCheminDeDossier 'le dossier dans lequel les fichiers seront décompressés

    'vérification du format du chemin du dossier de destination
        If Right(DossierDestination, 1) <> "\" Then DossierDestination = DossierDestination & "\"

    'Décompression
        Set ApplicationArchivage = CreateObject("Shell.Application")
        ApplicationArchivage.Namespace(DossierDestination).CopyHere ApplicationArchivage.Namespace(FichierArchive).items
        Set ApplicationArchivage = Nothing

    'Message final
        MsgBox "La décompression a été lancée.."
    Else
        MsgBox "annulation"
    End If

Bonjour,

Peut être qu'en mettant ta variable DossierDestination en As Variant il devrait se passer quelque chose

C'était effectivement juste ça.

Merci beaucoup,

Zapsalis