Ouvir/fermer zip windows7

Bonjour,

Voici mon problème ce décompose en 2 parties

1) j'arrive à ouvrir un zip sous excel avec la commande:

Shell "explorer.exe " & "C:\Users\Desktop\\test.zip"

Mais je n'arrive pas à ouvrir le fichier qui est dedans exemple test.xls

sinon j'avais trouvé comment copier le fichier excel dans un dossier mais je n'arrivais pas juste à l'ouvrir.

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

    Fname = "C:\Users\Desktop\test.zip"
        'Root folder for the new folder.
        DefPath = "C:\Users\Desktop\"
        If Right(DefPath, 1) <> "\" Then
            DefPath = DefPath & "\"
        End If

        'Create the folder name
        strDate = Format(Now, " dd-mm-yy h-mm-ss")
        FileNameFolder = DefPath & "MyUnzipFolder " & strDate & "\"

        'Make the normal folder in DefPath
        MkDir FileNameFolder

        'Extract the files into the newly created folder
        Set oApp = CreateObject("Shell.Application")

        oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items

        'If you want to extract only one file you can use this:
        'oApp.Namespace(FileNameFolder).CopyHere _
         'oApp.Namespace(Fname).items.Item("test.txt")

        MsgBox "You find the files here: " & FileNameFolder

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

Je ne sais pas trop quelle piste est la meilleure.
J'ai peut être une solution mais c'est barbare. Copier mes fichier zipé dans un dossier et une fois le travail fini supprimer ce même dossier. Avouez que c'est quand même bien moche.

2) je n'arrive pas à fermer la fenêtre "test.zip" avec ma première méthode (celle avec shell, j'ai pensé à ça mais ça ne marche pas:

Windows("test.zip").Close True

ou

Windows("Suivi EVRP").Close

ou

Windows("Suivi EVRP").kill

rien ne marche



Si vous avez des piste pour moi ce serai sympa :)

Merci d'avance