fichier zip

Bonjour Titi,

Essaie ceci en renseignant les variables appropriées :

'-------------------------------
Sub DezipperFichierEtOuvrir()

Dim FichierZip As String
Dim OuFichierZipSera As String
Dim FichierXls As String
Dim DestFinal As String

FichierZip = "c:ATravailClasseur1.zip" 'à déterminer

'Répertoire où se retrouvera le fichier à la fin
DestFinal = "c:Atravail" 'à déterminer

'Répertoire seulement le temps du unzip
OuFichierZipSera = "c:xwzk" 'à conserver

Application.DisplayAlerts = False
Shell ("C:Program FilesWinZipwinzip32.exe -e " & _
FichierZip & " " & OuFichierZipSera)

Do While FichierXls = ""
FichierXls = Dir(OuFichierZipSera & "*.xls")
DoEvents
Loop

'Copie fichier vers sa destination finale
VBA.FileCopy OuFichierZipSera & FichierXls, _
DestFinal & FichierXls

'Supprime tous les fichiers du rép. temporaire
Kill OuFichierZipSera & "*.*"

'ouverture du fichier
Workbooks.Open DestFinal & FichierXls
Application.DisplayAlerts = True

End Sub
'----------------------------------


Salutations!



<titi> a écrit dans le message de news: cer1n11dh9skt5p8auu07o7c5m2qrh4neo@4ax.com...
bonjour


existe t'i l un moyen d'ouvrir, par macro, un fichier. csv zippé ?