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 : Sélectionner tout - Visualiser dans une fenêtre à part
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