Discussion :

[moimm007]

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

[EricDgn]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;