Bonjour,
Dans un projet, je dois calculer le nombre de fichiers d'un sous dossier (c'est OK) et le nombre de fichiers dans le même dossier qui ont déjà été traités (ils sont marqués 'SEE') ou qui sont en cours de traitement (ils sont marqués avec un n° à 8 chiffre). Donc j'utilise la fonction suivante qui effectue le travail. Mais ce n'est pas très beau et peut-être que cela peut être réduit en lignes et en temps. Si vous avez des idées.
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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177 Function NumberFilesSeeAndUser(ByVal Folder As String) As Long Dim NbrFilesSeeAndUser As Long Dim Chemin As String, Fichier As String 'Définit le répertoire contenant les fichiers Chemin = Folder 'Boucle sur tous les fichiers xls du répertoire. Fichier = Dir(Chemin & "SEE*.Digitsol") 'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers: 'Fichier = Dir(Chemin & "*.*") Do While Len(Fichier) > 0 'écrit le résultat dans la fenêtre d'exécution (Ctrl+G). Debug.Print Chemin & Fichier NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1 Fichier = Dir() Loop '1 Chemin = Folder 'Boucle sur tous les fichiers xls du répertoire. Fichier = Dir(Chemin & "00000221*.Digitsol") 'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers: 'Fichier = Dir(Chemin & "*.*") Do While Len(Fichier) > 0 'écrit le résultat dans la fenêtre d'exécution (Ctrl+G). Debug.Print Chemin & Fichier NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1 Fichier = Dir() Loop '2 Chemin = Folder 'Boucle sur tous les fichiers xls du répertoire. Fichier = Dir(Chemin & "00061065*.Digitsol") 'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers: 'Fichier = Dir(Chemin & "*.*") Do While Len(Fichier) > 0 'écrit le résultat dans la fenêtre d'exécution (Ctrl+G). Debug.Print Chemin & Fichier NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1 Fichier = Dir() Loop '3 Chemin = Folder 'Boucle sur tous les fichiers xls du répertoire. Fichier = Dir(Chemin & "00101663*.Digitsol") 'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers: 'Fichier = Dir(Chemin & "*.*") Do While Len(Fichier) > 0 'écrit le résultat dans la fenêtre d'exécution (Ctrl+G). Debug.Print Chemin & Fichier NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1 Fichier = Dir() Loop '4 Chemin = Folder 'Boucle sur tous les fichiers xls du répertoire. Fichier = Dir(Chemin & "00000413*.Digitsol") 'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers: 'Fichier = Dir(Chemin & "*.*") Do While Len(Fichier) > 0 'écrit le résultat dans la fenêtre d'exécution (Ctrl+G). Debug.Print Chemin & Fichier NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1 Fichier = Dir() Loop '5 Chemin = Folder 'Boucle sur tous les fichiers xls du répertoire. Fichier = Dir(Chemin & "00060935*.Digitsol") 'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers: 'Fichier = Dir(Chemin & "*.*") Do While Len(Fichier) > 0 'écrit le résultat dans la fenêtre d'exécution (Ctrl+G). Debug.Print Chemin & Fichier NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1 Fichier = Dir() Loop '6 Chemin = Folder 'Boucle sur tous les fichiers xls du répertoire. Fichier = Dir(Chemin & "00060777*.Digitsol") 'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers: 'Fichier = Dir(Chemin & "*.*") Do While Len(Fichier) > 0 'écrit le résultat dans la fenêtre d'exécution (Ctrl+G). Debug.Print Chemin & Fichier NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1 Fichier = Dir() Loop '7 Chemin = Folder 'Boucle sur tous les fichiers xls du répertoire. Fichier = Dir(Chemin & "00101142*.Digitsol") 'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers: 'Fichier = Dir(Chemin & "*.*") Do While Len(Fichier) > 0 'écrit le résultat dans la fenêtre d'exécution (Ctrl+G). Debug.Print Chemin & Fichier NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1 Fichier = Dir() Loop '8 Chemin = Folder 'Boucle sur tous les fichiers xls du répertoire. Fichier = Dir(Chemin & "00060106*.Digitsol") 'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers: 'Fichier = Dir(Chemin & "*.*") Do While Len(Fichier) > 0 'écrit le résultat dans la fenêtre d'exécution (Ctrl+G). Debug.Print Chemin & Fichier NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1 Fichier = Dir() Loop '9 Chemin = Folder 'Boucle sur tous les fichiers xls du répertoire. Fichier = Dir(Chemin & "00060119*.Digitsol") 'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers: 'Fichier = Dir(Chemin & "*.*") Do While Len(Fichier) > 0 'écrit le résultat dans la fenêtre d'exécution (Ctrl+G). Debug.Print Chemin & Fichier NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1 Fichier = Dir() Loop '10 Chemin = Folder 'Boucle sur tous les fichiers xls du répertoire. Fichier = Dir(Chemin & "00060908*.Digitsol") 'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers: 'Fichier = Dir(Chemin & "*.*") Do While Len(Fichier) > 0 'écrit le résultat dans la fenêtre d'exécution (Ctrl+G). Debug.Print Chemin & Fichier NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1 Fichier = Dir() Loop '11 Chemin = Folder 'Boucle sur tous les fichiers xls du répertoire. Fichier = Dir(Chemin & "00102653*.Digitsol") 'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers: 'Fichier = Dir(Chemin & "*.*") Do While Len(Fichier) > 0 'écrit le résultat dans la fenêtre d'exécution (Ctrl+G). Debug.Print Chemin & Fichier NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1 Fichier = Dir() Loop '12 Chemin = Folder 'Boucle sur tous les fichiers xls du répertoire. Fichier = Dir(Chemin & "00101827*.Digitsol") 'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers: 'Fichier = Dir(Chemin & "*.*") Do While Len(Fichier) > 0 'écrit le résultat dans la fenêtre d'exécution (Ctrl+G). Debug.Print Chemin & Fichier NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1 Fichier = Dir() Loop NumberFilesSeeAndUser = NbrFilesSeeAndUser End Function
Je pourrais aussi calculer ceux qui sont encore à traiter. Je cherche une fonction qui pourrait calculer le nombre de fichiers qui ont 25 caractères hors extension ou 36 caractères avec extension. Mais cela je ne trouve pas.
Si vous avez une piste, ... Merci.
Partager