Ma macro ne me dézippe rien

Bonjour à toutes et à tous,

J'ai reussi à régler mon premier problème.Ma macro ne me dézippe rien et je ne comprends pas pourquoi car avec les autres fichiers cela fonctionne !

Quelqu'un serait-il comment faire pour régler ce problème ?

Le fichier à dézipper est joint !

Merci.

Cordialement,

Marion

Sub Unzip3()
    Dim FSO As Object
    Dim oApp As Object
    Dim Fname As Variant
    Dim FileNameFolder As Variant
    Dim DefPath As String

    Fname = Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip", _
                                        MultiSelect:=False)
    If Fname = False Then
        'Do nothing
    Else
        'Destination folder
        DefPath = "C:\Users\scmario\Desktop"    '<<< Change path
        If Right(DefPath, 1) <> "\" Then
            DefPath = DefPath & "\"
        End If

        FileNameFolder = DefPath

        '        'Delete all the files in the folder DefPath first if you want
        '        On Error Resume Next
        '        Kill DefPath & "*.*"
        '        On Error GoTo 0

        'Extract the files into the Destination folder
        Set oApp = CreateObject("Shell.Application")
        oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items

        MsgBox "You find the file here: " & FileNameFolder

        On Error Resume Next
        Set FSO = CreateObject("scripting.filesystemobject")
        FSO.deletefolder Environ("Temp") & "\Temporary Directory*", True
    End If
End Sub

Salut,

C'est un fichier qui change souvent? sinon tu le dezippe à la main

uLucas a écrit :

Salut,

C'est un fichier qui change souvent? sinon tu le dezippe à la main

Le but etant de le dézipper automatiquement malheureusement