Path de fichier à décompresser

Bonjour,

Je cherche à décompresser des fichiers zip via macro.
Tout se passe bien, sauf le fait que je ne sais pas comment obtenir le path des fichiers à décompresser.
Par exemple, un fichier A.txt contenu dans le dossier AAAA a été zippé en A.ZIP

Cette archive voit donc le path AAAA\ pour le fichier A.txt

quand je décompresse vers un dossier d:\TOTO, mon fichier se trouve alors dans d:\TOTO\AAAA\A.txt et la variable qu'il me manque est "AAAA\"

Je ne cherche surtout pas à décompresser les fichiers sans tenir compte du path, car dans ce cas, j'aurai des problèmes avec des fichiers ayant le même nom.

Voici le code de décompression :

Code:

---

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

Private Function DecompressFichierZIP(sfFichierZIP, sfRepCible)   ''' Decompression d'une archive ZIP dans un dossier ==> Les noms des fichiers dezippés sont retournés dans un tableau Dim osa As Shell Dim ifNbItems As Integer Dim ifNbFichiers As Integer Dim ifBcl As Integer Dim sfTabListeFichiers() As String   ifNbFichiers = 0   Set osa = New Shell ifNbItems = osa.Namespace(sfFichierZIP).Items.Count   ''' Copie des fichiers dans un répertoire If ifNbItems > 0 Then osa.Namespace(sfRepCible).CopyHere osa.Namespace(sfFichierZIP).Items End If   ...

---

Merci de votre aide

Je ne sais pas décompresser les fichiers ZIP, mais ne pourrais-tu pas forcer l'extraction vers un repertoire de ton choix plutot que celui inidqué dans le ZIP (AAAA) ?

Salut aalex,

2 problèmes pour forcer l'extraction :
1) Je ne sais pas le faire avec cette méthode
2) Si tous les fichiers contenus dans les dossiers et sous dossiers de mon archives se copient au même endroit, je vais avoir des problèmes avec les fichiers ayant le même nom (Si j'ai un fichier A.txt dans le répertoire AAA et un fichier A.txt dans le répertoire BBB, il y en a forcément un qui va écraser l'autre...)

Je n'utilise pas cette fonction zip alors je vais avoir du mal à te répondre en gros je laisse la main, j'ai commencè a regarder quelquels liens mais pour l'instant rien d'intéressant a part peut être ici ?

J'essairai dès que possible de faire des tests.

Hélas, la Zlib n'est pas plus étoffée que mon code actuel :

Code:

---

1 2 3 4 5 6 7 8 9

ZipExtractionClass Methods   Extract (FolderPath[, PreservePath][, Overwrite])   ==> FolderPath String ==> PreservePath Boolean Optional ==> Overwrite Boolean Optional   <== Return Type is a Boolean Value

---

Je regarde en ce moment le contournement de ce problème par l'extraction complete de chacun de mes zip dans un dossier qui aurait un nom unique (date -heure - clé), puis de rechercher les fichiers dans les sous dossiers avec le file system afin de les réinjecter dans ma macro...

C'est juste que cela va me prendre plusieurs heures de code alors que si j'avais pu trouver cette variable, j'en aurai eu pour 3 minutes...

Enfin, la ce soir, je code une autre partie, donc si des idées brillantes avant demain... :mouarf:

Bonjour,

Une piste qui pourra, peut-être, vous aider.

Copiez le code suivant dans un module standard et adaptez la constante cernée par des ### à votre usage.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

'/////////////////////////////////////////////// '/// Nécessite la Library Shell32 /// '/// Microsoft Shell Controls And Automation /// '/// C:\WINDOWS\system32\SHELL32.dll /// '///////////////////////////////////////////////   '### Constante du dossier et son chemin à adapter ### Const MON_DOSSIER = "C:\A.zip" '####################################################   Sub PropertiesFile() Dim ShellApp As Shell32.Shell Dim Fichier As Shell32.FolderItem Dim Dossier As Shell32.Folder Dim i& Dim j& Dim T() Dim S As Worksheet Dim R As Range Set ShellApp = CreateObject("Shell.Application") Set Dossier = ShellApp.Namespace(MON_DOSSIER) ReDim T(1 To Dossier.Items.Count + 1, -1 To 34) For Each Fichier In Dossier.Items i& = i& + 1 If i& = 1 Then For j& = -1 To 34 T(i&, j&) = "#" & j& & " " & Dossier.GetDetailsOf(Dossier.Items, j&) Next j& End If For j& = -1 To 34 T(i& + 1, j&) = Dossier.GetDetailsOf(Fichier, j&) Next j& Next Fichier Set S = Sheets.Add Set R = S.Range(S.Cells(1, 1), S.Cells(UBound(T, 1), UBound(T, 2) + 2)) R = T With S.Range(S.Cells(1, 1), S.Cells(1, UBound(T, 2) + 2)) .Font.Bold = True .HorizontalAlignment = xlCenter .Interior.ColorIndex = 34 End With S.Columns.AutoFit Set ShellApp = Nothing End Sub

---

Les propriétés des fichiers (ou dossiers) contenus dans le dossier choisi s'affichent dans une nouvelle feuille.
Vous devriez être particulièrement intéressé par les propriétés #1 et #0 qui semblent répondre à votre attente.

Cordialement.

PMO
Patrick Morange

Alors la c'est tout simplement génial PMO2017 !

Je n'ai pas encore eu le temps de coder entièrement ma fonction, mais je peux effectivement trouver le nom des dossiers grâce à ton code.

Pour ceux que cela intéresse, le code ci-dessus permet uniquement de connaitre les propriétés de chaque élément de la BASE de l'archive (et pas ce qui est inclu dans les sous dossiers).
Le #1 donne le type d'élément (fichier ou dossier) et le #0 donne le nom de l'élément.

Je peux donc grâce à cela entrer récursivement dans chaque dossier et relister les sous fichiers et sous dossiers.

En testant un peu au hasard, j'ai trouvé que le path des sous dossiers ZIP était de la forme c:\AAA\a.zip\SOUSDOSSIER1\SOUSDOSSIER2\...

Là, ce soir je n'ai pas le temps de le coder, mais dès demain, je fini cette fonction bien utile et je la posterai ici.

Merci encore et d'avance à ceux qui m'ont aidé. :ccool:

Bon, en fait je bataille sévère pour la récursivité : Je n'arrive pas à isoler un ZIP imbriqué.
Mon code fonctionne parfaitement sur un ZIP classique, mais lorsque l'on a un ZIP dans un ZIP, le second ne s'ouvre pas.

Ci-dessous le code de la partie appropriée :

Code:

---

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

Private Function ContenuDossierArchive(sfPathDossierZIP As String)   Dim Item As Shell32.FolderItem   For Each Item In osa.Namespace(sfPathDossierZIP).Items If osa.Namespace(sfPathDossierZIP).GetDetailsOf(Item, 1) = "Dossier de fichiers" Then Debug.Print TabulationDynamique(iNbNiveauTab) & "Dossier ==> " & osa.Namespace(sfPathDossierZIP).GetDetailsOf(Item, 0) iNbNiveauTab = iNbNiveauTab + 1 ContenuDossierArchive (sfPathDossierZIP & "\" & Item) ' Appel récursif des sous dossiers Else If ExtensionFichier3(Item) = "zip" Then ContenuDossierArchive (sfPathDossierZIP & "\" & Item) ' CODE QUI NE FONCTIONNE PAS !!! End If Debug.Print TabulationDynamique(iNbNiveauTab) & "Fichier ==> " & osa.Namespace(sfPathDossierZIP).GetDetailsOf(Item, 0) End If Next   End Function

---

Ce code ne fait qu'afficher dans la fenêtre de débug le type d'item et le nom de celui-ci.

Lorsque l'on tombe sur un ZIP dans le ZIP, la partie du code suivante :

Code:

---

ContenuDossierArchive (sfPathDossierZIP & "\" & Item)

---

la variable est de la forme "D:\TEST\Pieces jointes\Fichiers B.zip\Fich\Fichiers P&C+4 B.zip" et l'erreur retournée est "Variable objet ou variable de bloc With non définie"

Une idée ?

Si tu repasse par ici PMO2017, peux-tu me dire ou tu as trouvé ta source ? Merci !

Bonsoir,
as tu essayé de simplement extraire le Zip imbriqué quelquepart et puis de lui faire subir ta routine sans récursivité, car ta variable

Citation:

---

"D:\TEST\Pieces jointes\Fichiers B.zip\Fich\Fichiers P&C+4 B.zip"

---

me parait ne pas pouvoir exister.

J'espère que tu me suis.

Bonjour Godzestla,

Je n'ai pas encore testé la décompression du ZIP imbriqué dans un dossier... En fait, j'ai du mal a voir ce que cela va donner car au final, il faudra que je donne l'arborescence de tous les fichiers et dossiers contenus dans le ZIP.
Et là, j'ai peur de ne pas pouvoir distinguer les dossiers et les fichiers racine des ZIP...

Je vais essayer d'être plus clair :
A la base, ce programme est une automatisation de réception de fichiers via outlook.
Je reçois tout type de fichiers et pour chaque mail, je dois imprimer une fiche avec des statistiques sur les fichiers en pièce jointe (nb de lignes, contient-elle des données particulière...).

La plupart du temps, je reçois des xls, des txt ou des zip. En fonction de l'extension, j'exécute des programmes différents. Lors de réception de fichiers ZIP, il faut que je puisse inscrire sur la fiche l'emplacement exact des fichiers, et lorsque qu'il y a des ZIP imbriqués (j'en ai vu déjà jusqu'à 3 niveaux !!), je dois pouvoir afficher :

Code:

---

1 2 3 4 5 6

Archive1.zip DOSSIER1 FicherXls 46 lignes; ... DOSSIER2 ArchiveImbriquee1.zip FichierTxt 267342 lignes; ...

---

Mais il me faut également l'emplacement des fichiers lorsque ceux-ci sont dézippés (afin de pouvoir les scanner avec mes différentes routines).
Tout ceci se passe dynamiquement bien évidemment... Et donc, le fait de chercher à pouvoir cibler un ficher dans une archive, même imbriquée, me serait très utile ici, car je pourrais alors passer en paramètre de ma fonction de scan cet emplacement.
Si je n'arrive pas à faire ça, cela va me faire repenser le code ou il me faudra tout dézipper dans des dossiers avant de pouvoir lancer mes routines... mais à ce moment là, si je vois un fichier dans un dossier, comment savoir s'il provient d'un dossier d'archive ou de la racine d'un Zip imbriqué ...

Je ne sais pas si tout est clair :mouarf: (Même moi j'ai du mal à comprendre parfois ;) )

Bonjour,

Je sais qu'en ce moment je suis dans un délire DOS mais tu vas voir ca va t'aider.

Alors perso voila comment je résolverais le souci.

Au début, tu dois avoir un dossier VIDE (super important) genre c:\Users.
Donc ce que tu va faire c'est dézipper ton archive dans ce dossier
ensuite faire sur c:\Users un dir /b/s *.zip >> CaCMonResultat.txt
puis tu lis c:\Users\CaCMonResultat.txt
Ensuite tu dézippes chaque ligne de ce fichier.
en deletant l'archive que tu viens de dezipper
tu ferme c:\Users\CaCMonResultat.txt

ensuite faire sur c:\Users un dir /b/s *.zip >> CaCMonResultat.txt
puis tu lis c:\Users\CaCMonResultat.txt
Ensuite tu dézippes chaque ligne de ce fichier.
en deletant l'archive que tu viens de dezipper
tu ferme c:\Users\CaCMonResultat.txt

Bref tu la répète tant que ton fichier c:\Users\CaCMonResultat.txt n'est pas vide

ensuite tu fais un dir /b/s *.* >> CaCMonResultat.txt

Et la tu as le listing complet des fichiers de ton archive Sauf que c'est dans c:\Users

donc tu delete tous tes files de c:\Users et tu dezippe tout vraiment la ou tu veux.

Le seul inconvénient est que tu dézippe tt deux fois.

Je resume le début:

Code:

---

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

DEZIPPER(MonArchive,C:\Users) SHELL CMD dir /b/s *.zip >> C:\Users\CaCMonResultat.txt dans C:\Users Tant que c:\Users\CaCMonResultat.txt existe bVide=True Open C:\Users\CaCMonResultat.txt Tant que pas EOF Lire ligne SI ligne pas vide bVide=False DEZIPPER(ligne,Dossierdelaligne) 'ici c'est optimisable car tu vois tes sous archives donc tu peux les conserver DeleteFIchier(ligne) fin si fin tant que DeleteFIchier(C:\Users\CaCMonResultat.txt) si bVide=False SHELL CMD dir /b/s *.zip >> C:\Users\CaCMonResultat.txt dans C:\Users fin si fin tant que   SHELL CMD dir /b/s *.* >> C:\Users\CaCMonResultat.txt dans C:\Users

---

regarde ce post j'explique un peu la technique
http://www.developpez.net/forums/d78...-excel-2007-a/

Et si je m'exprime mal, di moi le et je te le ferais en VBA.

Salut -={-_-}=- (désolé si j'ai écorché ;) )

Alors voyons voir ce code ...
L'un des problème que je vois, c'est que je peux avoir :
Arch1.zip contenant un fichier liste.txt et
Arch2.zip contenant un fichier liste.txt

Si je passe ton programme, je ne verrai au final plus qu'un seul fichier sur les 2. En plus je ne sais pas où il se trouve pour pouvoir faire par la suite l'association entre le fichier dézippé à scanner et la synthèse sur la fiche...

Qu'à cela ne tienne me diras-tu :
Essayons de dézipper dans des répertoires dynamiques...

Prenons un postulat de départ (j'écris ce que je pense en ce moment, je ne sais pas où je vais :mrgreen: ) :
J'ai les fichiers suivants dans mon mail :

Code:

---

1 2 3 4 5 6 7

liste.txt Arch1.zip contenant liste.txt \AAA\liste.txt \BBB\ArchZZ.zip (ArchZZ.zip contient juste un "liste.txt" à sa racine dirons nous) Arch2.zip contenant liste.txt   Chaque fichier liste.txt est différent.

---

Après passage de la première moulinette j'ai une arborescence comme ceci :

Code:

---

1 2 3 4 5 6

c:\Users\liste.txt c:\Users\@ZIP001\liste.txt c:\Users\@ZIP001\AAA\liste.txt c:\Users\@ZIP001\BBB\@ZIP002\liste.txt c:\Users\@ZIP003\liste.txt

---

On va dire que j'ai placé dans un tableau dyn les correspondances suivantes :

Code:

---

1 2 3 4 5 6

------------------------ | @ZIP001 | Arch1.zip | | @ZIP002 | ArchZZ.zip | | @ZIP003 | Arch2.zip | ------------------------

---

Au second passage, je suis donc capable d'analyser chaque fichier de c:\Users et de me créer une synthèse avec les associations de mon tableau... Pour peu que mes variables "@ZIPxxx" ne soient pas utilisées dans un ZIP comme nom de dossier (what a misfortune !!! :mrgreen: )

Hey bien écoute, à voir ça sur papier... enfin sur écran, ca me parait assez jouable.

Mais vu l'approche du bon gros WE ... Ca va sans doute attendre lundi 8-)

Merci pour le coup de pouce, je repasse dès que j'ai fini le code.

Citation:

---

Envoyé par Iceabyssal

Salut -={-_-}=- (désolé si j'ai écorché ;) )

---

Parfait

Citation:

---

Envoyé par Iceabyssal

[/CODE]
Après passage de la première moulinette j'ai une arborescence comme ceci :

Code:

---

1 2 3 4 5 6

c:\Users\liste.txt c:\Users\@ZIP001\liste.txt c:\Users\@ZIP001\AAA\liste.txt c:\Users\@ZIP001\BBB\@ZIP002\liste.txt c:\Users\@ZIP003\liste.txt

---

On va dire que j'ai placé dans un tableau dyn les correspondances suivantes :

Code:

---

1 2 3 4 5 6

------------------------ | @ZIP001 | Arch1.zip | | @ZIP002 | ArchZZ.zip | | @ZIP003 | Arch2.zip | ------------------------

---

---

Pourquoi t'as besoin de tes correspondances?
T'as pas plus explicite?


De plus pour retrouver un liste.txt spécifique, c'est pas très parlant avec ton arborescence

Code:

---

1 2 3 4 5 6

c:\Users\liste.txt c:\Users\@ZIP001\liste.txt c:\Users\@ZIP001\AAA\liste.txt c:\Users\@ZIP001\BBB\@ZIP002\liste.txt c:\Users\@ZIP003\liste.txt

---

En tout cas il faudra que tu conserves quelque part le dernier numéro de ZIP
car ca va aller qu'en augmentant.

Citation:

---

Pourquoi t'as besoin de tes correspondances?

---

J'en ai besoin pour créer ma fiche de synthèse lorsque tous les fichiers seront scannés. Oui car ce que j'ai ommi de dire, c'est que je ne conserve que le mail lorsque le programme est terminé. Tous les fichiers copiés dans le "Users" dirons-nous sont supprimés. Ils ne servent qu'à être scannés pour renseigner la fiche. De cette manière, on évite les copies inutiles de fichiers sur les serveurs et surtout les décompressions de gros fichiers qui prendraient encore plus de place qu'actuellement. Lorsque l'opérateur aura besoin d'un fichier, il saura dans quel mail il se trouve, et dans quel arborescence pour des fichiers compressés.

Citation:

---

T'as pas plus explicite?

---

Je suppose que tu parles du "@ZIPxxx". Comme ce n'est qu'un temporaire et que l'opérateur ne le verra pas, pas besoin de dossier explicite. De plus, pour éviter les conflits de dossier contenus dans des archives qui pourraient porter le même nom, j'ai tout intérêt à trouver le truc le plus saugrenu possible.

Citation:

---

De plus pour retrouver un liste.txt spécifique, c'est pas très parlant avec ton arborescence

---

Voir la réponse d'avant... La fiche de synthèse n'affichera pas l'arbo des fichiers temporairement décompressés sur le disque, mais sera de la forme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

liste.txt 44 lignes OUI ... Arch1.zip liste.txt 24 lignes OUI ... \AAAA liste.txt 53 lignes NON ... \BBBB ArchZZ.zip liste.txt 16 lignes NON ... Arch2.zip liste.txt 86 lignes OUI ...

---

Citation:

---

En tout cas il faudra que tu conserves quelque part le dernier numéro de ZIP car ca va aller qu'en augmentant.

---

J'aurai effectivement une variable incrémentale qui se resetera lors de la suppression des fichiers, à la fin du traitement d'un mail et avant le passage au mail suivant.