Problème boucle fichier et dir

**Kestion100** · 04/12/2024, 17h43

Bonjour,
Je souhaite boucler sur tous les fichiers zip d'un dossier pour les dézipper vers un ensemble de dossiers mais je bloque sur

Code :

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

dir

Le fichier redevient toujours le premier fichier du dossier source!!!

Le code:

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
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
46
47
48
 
MyPath = "C:\Users\ZZZ\Desktop\YYY\TRANSPORTS\ZIP\"
 
 
fic = Dir(MyPath & "*.zip")
 
 
 
Dossier = MyPath
 
 
 
Do Until MyPath & fic = ""
 
 
 
 
For Z = 1 To UBound(Tablo)
 
 
 
If InStr(1, fic, Tablo(Z)) <> 0 Then
 
 
 
DossierDestination = "C:\Users\ZZZ\Desktop\YYY\TRANSPORTS\PJ\" & NOM(Z)
 
 
FichierArchive = fic
 
 
 
'Décompression
        Set ApplicationArchivage = CreateObject("Shell.Application")
        ApplicationArchivage.Namespace(DossierDestination & "\").CopyHere ApplicationArchivage.Namespace(MyPath & fic).Items
        Set ApplicationArchivage = Nothing
Exit For
 
End If
 
 
Next Z
 
 
 
fic = Dir(MyPath)
 
Loop

Comment dois-je procéder pour passer au .zip suivant?

MERCI BEAUCOUP POUR TOUT COUP DE MAIN

**deedolith** · 04/12/2024, 18h20

Hello,

Comme tu test les valeurs concaténées de MyPath & fic, et que la valeur de MyPath ne change jamais, le test est toujours vrai (boucle infinie).

De plus, par respect du SRP (https://en.wikipedia.org/wiki/Single...lity_principle), divise ta fonction en 2:
Une s'occupant de collecter les chemins des fichiers.
L'autre s'occupant de dézipper.

Egalement, je ne fait pas trop confiance à la fonction DIR, cette dernière ne supporte pas bien la récursivité, je préfère passer par FSO, qui en plus est plus parlant:

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
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
Public Sub UnzipFiles()
    Const Source As String = "C:\Users\ZZZ\Desktop\YYY\TRANSPORTS\ZIP\"
    Const Destination As String = "C:\Users\ZZZ\Desktop\YYY\TRANSPORTS\PJ\"
 
    Dim Fso As Scripting.FileSystemObject
    Set Fso = CreateObject("Scripting.FileSystemObject")
 
    Dim SourceFolder As Scripting.Folder
    Set SourceFolder = Fso.GetFolder(Source)
 
        '// Collecte des fichiers
    Dim Files As Collection
    Set Files = GetZipFiles(SourceFolder)
 
        '// Decompression
    Dim File As String
    For Each File In Files
        Dim DestinationFolder As Scripting.Folder
        Set DestinationFolder = Fso.GetFolder(Destination)
 
        Unzip File, Destination
    Next
End Sub
 
Public Function GetZipFiles(ByRef Folder As Scripting.Folder) As Collection
    Dim Fso As Scripting.FileSystemObject
    Set Fso = CreateObject("Scripting.FileSystemObject")
 
    Dim Files As Collection
    Set Files = New Collection
 
    Dim File As Scripting.File
    For Each File In Folder.Files
        If (Fso.GetExtensionName(File.Name) = "zip") Then
            Files.Add File
        End If
    Next
    Set GetZipFiles = Files
End Function
 
Public Sub Unzip(ByRef File As Scripting.File, ByVal Destination As Scripting.Folder)
    Dim ApplicationArchivage As Object
    Set ApplicationArchivage = CreateObject("Shell.Application")
    ApplicationArchivage.Namespace(Destination.Path).CopyHere ApplicationArchivage.Namespace(File.Path).Items
End Sub

PS: Pas compris ce que Tablo(Z) et NOM(Z) viennent faire la dedans.

**Kestion100** · 04/12/2024, 18h22

Merci, ils donnent les valeurs à tester, ça vient de plus haut dans le code et n'impacte pas la question

**Kestion100** · 05/12/2024, 00h18

Je précise:

- Les fichiers zip sont nommés par exemple: XXX32.zip...;
- Ces noms se trouvent dans les cellules d'une colonne du fichier Excel;
- Dans une colonne à droite, se trouvent les noms prénoms des personne;
- Les fichiers XXX32.zip...doivent être décompressés dans les dossiers C\:....\NOM Prénom\... (possibilité de devoir les créer)

D'où NOM(Z), j'ai d'abord alimenté une variable tableau avec tout mes noms prénoms et je comptais repartir de ce tableau, avec une boucle for next pour trouver à chaque couple (nom de fichier zip; valeur de ma colonne A) le nom de dossier correspondant (le créer le cas échéant) et décompresser....

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
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
 
Dim Tablo() As String, NOM() As String
 
Set wbk = Workbooks("transport.xlsm")
Set wbsht = wbk.Sheets(Sheets.Count - 1)
 
Set derlig = wbsht.Range("A500000").End(xlUp)
 
derlig = derlig.Row
 
KMPTR = 0
 
For i = 2 To derlig
 
KMPTR = KMPTR + 1
 
ReDim Preserve Tablo(KMPTR)
ReDim Preserve NOM(KMPTR)
 
 
Tablo(KMPTR) = wbsht.Range("A" & i)
NOM(KMPTR) = wbsht.Range("C" & i) & " " & wbsht.Range("D" & i)
 
 
 
Next i
 
 
MyPath = "C:\Users\ZZZ\Desktop\YYY\TRANSPORTS\ZIP\"
 
 
 
fic = Dir(MyPath & "*.zip")
 
 
 
Dossier = MyPath
 
 
Do Until MyPath & fic = ""
 
 
 
 
For Z = 1 To UBound(Tablo)
 
 
If InStr(1, fic, Tablo(Z)) <> 0 Then
 
 
 
DossierDestination = "C:\Users\ZZZ\Desktop\YYY\TRANSPORTS\PJ\" & NOM(Z) 'le dossier dans lequel les fichiers seront décompressés"
 
 
 
FichierArchive = fic
 
 
If Dir(DossierDestination, 16) = "" Then MkDir DossierDestination
 
'Décompression
        Set ApplicationArchivage = CreateObject("Shell.Application")
        ApplicationArchivage.Namespace(DossierDestination & "\").CopyHere ApplicationArchivage.Namespace(MyPath & fic).Items
        Set ApplicationArchivage = Nothing
Exit For
 
End If
 
 
Next Z
 
 
fic = Dir(MyPath)
 
Loop