Changer le dossier de destination après Unzip sur VBA

Bonsoir à tous,

Je galère à réaliser quelque chose de simple...

Changer le répertoire de destination pour dezipper un fichier. Mon code a fonctioné un moment, et maintenant il me mets le fichier dans le disque H...

Si vous avez une idée je suis vraiment, vraiment preneur

Merci a tous

Sub TestL()

Dim strcmd As String
    Dim strShell As String
    Dim strZipFile As String

    strZipFile = ActiveWorkbook.Path & "\search_result.zip"

    '-y : Overwrite (L'option -y permet de repondre oui par defaut a toutes les questions)
    '-o ./file pour l'output
    strShell = "C:\Program Files\7-Zip\7z.exe" & " e " & strZipFile & " -y"
    If strPWD <> vbNullString Then strShell = strShell & " -p" & strPWD
    Dim res As Long
    res = Shell(strShell)
End Sub

Bonjour,

tu dois pouvoir définir le répertoire de destination en utilisant l'option -o de 7z.exe

en modifiant la ligne :

 strShell = "C:\Program Files\7-Zip\7z.exe" & " e " & strZipFile & " -y -o c:\tmp "

Merci de ta réponse,

Toujours pas ! Il me mets toujours le fichier dans le dossier H ! J'ai même essayé de le mettre dans un nouveau dossier dans H; histoire de voir si je n'ai pas de restriction au boulot ( je suis sur un pc sans droit admin )