Extraction fichier compressé en .rar VBA

Bonjour,

J'ai un fichier nommé Fichier.csv compressé sous le même nom avec WinRar .rar dans le dossier Mes documents : C:\Moi\Mes documents\Fichier.rar et je veux le décompresser dans le même dossier C:\Moi\Mes documents\Fichier.csv

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Décompresser Dim CheminPC As String, sNomFic As String CheminPC = "C:\Moi\Mes documents\" Zippeur = "C:\Program Files (x86)\WinRAR\WinRAR.exe" sNomFic = Dir(CheminPC & "Fichier.rar") ShellExecute 0, "open", Zippeur, "x" & CheminPC & sNomFic & " " & CheminPC, "", vbHide ' ShellExecute 0, "open", Zippeur, "e" & CheminPC & sNomFic & " " & CheminPC, "", vbHide ' J'ai essayé avec e au lieu de x et toujours même message End Sub

---

Mais je reçois le message : Aucune archive trouvée.

Merci par avance pour ton aide

Bonjour,

Il y a au minimum un espace qui manque après le e (ou le x), et il peut aussi y avoir un problème s'il y a des espaces dans les noms de fichier.

Code:

---

1 2 3

ShellExecute 0, "open", Zippeur, "e " & CheminPC & sNomFic & " " & CheminPC, "", vbHide ' J'ai essayé avec e au lieu de x et toujours même message '--- s'il y a des espaces dans les noms des fichier ShellExecute 0, "open", Zippeur, "e " & Chr(34) & CheminPC & sNomFic & Chr(34) & " " & Chr(34) & CheminPC & Chr(34), "", vbHide ' J'ai essayé avec e au lieu de x et toujours même message

---

Cordialement;