Extraction fichier compressé en .rar VBA

Dev007 -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
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 

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

2 réponses

  1.
    fabul Messages postés 42122 Date d'inscription   Statut Modérateur Dernière intervention   6 061
     
    Salut,

    Je ne connais pas trop le VBA, mais tu aurais besoin d'un outil qui comprend le unrar de rar, comme 7z.exe 7z.dll
    0

Discussions similaires

Ouvrir un fichier .pub sans Publisher
baissaoui -
baissaoui -

0 réponse