MoveNext et EOF

**MM_13** · 03/01/2020, 17h57

Bonjour,

J'ai un bout de code qui me permet de scanner des dossiers pour en extraire les propriétés de certains fichiers et les écrire dans une table.

Donc je boucle sur les différents dossiers, et lorsque je suis dans un dossier, il y a une autre boucle qui vient lire les enregistrements d'une table pour vérifier si cette valeur est présente dans le chemin du dossier qui est en train d'être lu.

Mais je rencontre une erreur, 3021 "aucun enregistrement en cours" lorsque je suis dans la boucle qui lit les enregistrements de la table.
La boucle est de type :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
While (Not rstTbl4.EOF)
     Debug.Print rstTbl4![TypeAffaire]
          If InStr(f1, CheminAffaire & rstTbl4![TypeAffaire]) > 0 Then
 
               [...]
 
           End If
           rstTbl4.MoveNext
     Wend

L'erreur arrive à la ligne "Tbl4.MoveNext".
Mais je ne comprends pas pourquoi ça m'indique qu'il n'y a pas d'enregistrements alors que la table n'est pas modifiée durant l'exécution du code.

Merci.

**Phiphi41** · 03/01/2020, 18h01

Bonjour

Supprime les parenthèses ici : (Not rstTbl4.EOF)

Pour voir.

**MM_13** · 03/01/2020, 18h17

Salut Phiphi41,

J'ai testé avec ta manip mais ça n'a rien changé, j'ai toujours l'erreur qui apparaît.

**tee_grandbois** · 03/01/2020, 19h32

bonsoir,
il faudrait montrer le code complet, pas seulement le début et la fin la boucle ...

**MM_13** · 06/01/2020, 14h32

Bonjour,

Voici les procédures exécutées pendant 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
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
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
Sub ListerFichier()
 
Dim ApplSelectionDossier As FileDialog
Dim ListeItemChoisis As Variant
Dim alpha As Long
Dim j As Long
Dim Palier As String
Dim FichierCreate As String
Dim AnneeFile As String
Dim MoisFile As String
Dim JourFile As String
Dim HeureFile As String
Dim MinuteFile As String
Dim StartTime, EndTime, TotalTime
 
    StartTime = Timer
    Call Parametres
 
    'Supprimer tous les enregistrements
    If TypeFichier = "Général" Then
        dbs.Execute "Delete * FROM T_ListeFichierGeneral"
        Set rstTblTmp = rstTbl1
        TableTmp = "T_ListeFichierGeneral"
    ElseIf TypeFichier = "Palier" Then
        dbs.Execute "Delete * FROM T_ListeFichierPalier"
        Set rstTblTmp = rstTbl3
        TableTmp = "T_ListeFichierPalier"
    End If
 
    'Créer un FileDialog objet comme un fichier Picker dialog box
    Set ApplSelectionDossier = Application.FileDialog(msoFileDialogFolderPicker)
 
    'Créer un objet de système de fichier
    Set fs = CreateObject("Scripting.FileSystemObject")
 
    'Boucle sur les lien listés
    rstTbl2.MoveFirst
 
    While (Not rstTbl2.EOF)
        If rstTbl2![Chemin] <> "" Then
            Set f2 = fs.GetFolder(rstTbl2![Chemin])
            CheminAffaire = Left(rstTbl2![Chemin], InStrRev(rstTbl2![Chemin], "\"))
            Call EcritureListerFichier(f2, 1)
        End If
        rstTbl2.MoveNext
    Wend
 
    'Set the object variable to Nothing.
    Set fd = Nothing
 
    'Mise à jour des types de fichier
    Call Parametres
 
    If TypeFichier = "Général" Then
        Set rstTblTmp = dbs.OpenRecordset("T_ListeFichierGeneral", dbOpenDynaset, dbDenyWrite)
    ElseIf TypeFichier = "Palier" Then
        Set rstTblTmp = dbs.OpenRecordset("T_ListeFichierPalier", dbOpenDynaset, dbDenyWrite)
    End If
 
    rstTblTmp.MoveFirst
 
    While (Not rstTblTmp.EOF)
        If rstTblTmp![Type] Like "*Excel*" Or rstTblTmp![Type] Like "*CSV*" Then
            rstTblTmp.Edit
            rstTblTmp![Type] = "Excel"
            rstTblTmp.Update
        ElseIf rstTblTmp![Type] Like "*Word*" Then
            rstTblTmp.Edit
            rstTblTmp![Type] = "Word"
            rstTblTmp.Update
        ElseIf rstTblTmp![Type] Like "*Visio*" Then
            rstTblTmp.Edit
            rstTblTmp![Type] = "Visio"
            rstTblTmp.Update
        ElseIf rstTblTmp![Type] Like "*Adobe Acrobat Document*" Or rstTblTmp![Type] Like "*PDF*" Then
            rstTblTmp.Edit
            rstTblTmp![Type] = "PDF"
            rstTblTmp.Update
        ElseIf rstTblTmp![Type] Like "*Outlook*" Then
            rstTblTmp.Edit
            rstTblTmp![Type] = "Mail"
            rstTblTmp.Update
        End If
        rstTblTmp.MoveNext
    Wend
 
    EndTime = Timer
    TotalTime = EndTime - StartTime
    MsgBox "Temps de traitement : " & Format(TotalTime, "00:00:00.00")
 
End Sub
 
 
 
Sub EcritureListerFichier(ByVal f As Variant, ByRef niveau As Integer)
 
Dim DossierEnfantPrésent As Boolean
Dim FichiersPrésent As Boolean
 
    'On récupère les dossiers enfants
    Set fc = f.SubFolders
    DossierEnfantPrésent = False
 
    For Each f1 In fc
        If TypeFichier = "Général" Then
            lechemin = f1.Path
            lenom = f1.Name
 
'            rstTblTmp.MoveLast
            If DCount("[N°]", TableTmp) = 0 Then
                rstTblTmp.AddNew
                rstTblTmp![Chemin] = lechemin
                rstTblTmp![Nom] = lenom
                rstTblTmp![Type] = f1.Type
                rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                rstTblTmp![Modification] = f1.DateLastModified
                rstTblTmp![Creation] = f1.DateCreated
                rstTblTmp.Update
            ElseIf DCount("[N°]", TableTmp) > 0 Then
                rstTblTmp.MoveLast
                rstTblTmp.AddNew
                rstTblTmp![Chemin] = lechemin
                rstTblTmp![Nom] = lenom
                rstTblTmp![Type] = f1.Type
                rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                rstTblTmp![Modification] = f1.DateLastModified
                rstTblTmp![Creation] = f1.DateCreated
                rstTblTmp.Update
            End If
 
            DossierEnfantPrésent = True
            Call EcritureListerFichier(fs.GetFolder(f1), niveau + 1)
 
        ElseIf TypeFichier = "Palier" Then
            'Liste fichier en fonction de la liste des types d'affaire
            If DCount("[N°]", "T_ListeTypeAffaire") <> 0 Then
                rstTbl4.MoveFirst
                Debug.Print rstTbl4![TypeAffaire]
                While (Not rstTbl4.EOF)
                    Debug.Print rstTbl4![TypeAffaire]
                    If InStr(f1, CheminAffaire & rstTbl4![TypeAffaire]) > 0 Then
                        lechemin = f1.Path
                        lenom = f1.Name
 
                        If DCount("[N°]", TableTmp) = 0 Then
                            rstTblTmp.AddNew
                            rstTblTmp![Chemin] = lechemin
                            rstTblTmp![Nom] = lenom
                            rstTblTmp![Type] = f1.Type
                            rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                            rstTblTmp![Modification] = f1.DateLastModified
                            rstTblTmp![Creation] = f1.DateCreated
                            rstTblTmp.Update
                        ElseIf DCount("[N°]", TableTmp) > 0 Then
                            rstTblTmp.MoveLast
                            rstTblTmp.AddNew
                            rstTblTmp![Chemin] = lechemin
                            rstTblTmp![Nom] = lenom
                            rstTblTmp![Type] = f1.Type
                            rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                            rstTblTmp![Modification] = f1.DateLastModified
                            rstTblTmp![Creation] = f1.DateCreated
                            rstTblTmp.Update
                        End If
 
                        DossierEnfantPrésent = True
                        Call EcritureListerFichier(fs.GetFolder(f1), niveau + 1)
                    End If
                    rstTbl4.MoveNext
                Wend
 
            'Liste fichier en fonction de la liste des types d'affaire
            ElseIf DCount("[N°]", "T_ListeTypeAffaire") = 0 Then
                lechemin = f1.Path
                lenom = f1.Name
 
'                rstTblTmp.MoveLast
                If DCount("[N°]", TableTmp) = 0 Then
                    rstTblTmp.AddNew
                    rstTblTmp![Chemin] = lechemin
                    rstTblTmp![Nom] = lenom
                    rstTblTmp![Type] = f1.Type
                    rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                    rstTblTmp![Modification] = f1.DateLastModified
                    rstTblTmp![Creation] = f1.DateCreated
                    rstTblTmp.Update
                ElseIf DCount("[N°]", TableTmp) > 0 Then
                    rstTblTmp.MoveLast
                    rstTblTmp.AddNew
                    rstTblTmp![Chemin] = lechemin
                    rstTblTmp![Nom] = lenom
                    rstTblTmp![Type] = f1.Type
                    rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                    rstTblTmp![Modification] = f1.DateLastModified
                    rstTblTmp![Creation] = f1.DateCreated
                    rstTblTmp.Update
                End If
 
                DossierEnfantPrésent = True
                Call EcritureListerFichier(fs.GetFolder(f1), niveau + 1)
            End If
 
        End If
    Next
 
    'On récupère ensuite les fichiers
    Set fc = f.Files
    FichiersPrésent = False
 
    For Each f1 In fc
        'Liste fichier en fonction de la liste des types de fichier
'        rstTbl5.MoveLast
        If DCount("[N°]", "T_ListeTypeFichier") <> 0 Then
            rstTbl5.MoveFirst
            While (Not rstTbl5.EOF)
                If InStr(f1.Type, rstTbl5![TypeFichier]) > 0 Then
                    lechemin = f1.Path
                    lenom = f1.Name
 
'                    rstTblTmp.MoveLast
                    If DCount("[N°]", TableTmp) = 0 Then
                        rstTblTmp.AddNew
                        rstTblTmp![Chemin] = lechemin
                        rstTblTmp![Nom] = lenom
                        rstTblTmp![Type] = f1.Type
                        rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                        rstTblTmp![Modification] = f1.DateLastModified
                        rstTblTmp![Creation] = f1.DateCreated
                        rstTblTmp.Update
                    ElseIf DCount("[N°]", TableTmp) > 0 Then
                        rstTblTmp.MoveLast
                        rstTblTmp.AddNew
                        rstTblTmp![Chemin] = lechemin
                        rstTblTmp![Nom] = lenom
                        rstTblTmp![Type] = f1.Type
                        rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                        rstTblTmp![Modification] = f1.DateLastModified
                        rstTblTmp![Creation] = f1.DateCreated
                        rstTblTmp.Update
                    End If
 
                    FichiersPrésent = True
                End If
                rstTbl5.MoveNext
            Wend
 
        'Liste fichier si la liste des types de fichier est vide
        ElseIf DCount("[N°]", "T_ListeTypeFichier") = 0 Then
            lechemin = f1.Path
            lenom = f1.Name
 
'            rstTblTmp.MoveLast
            If DCount("[N°]", TableTmp) = 0 Then
                rstTblTmp.AddNew
                rstTblTmp![Chemin] = lechemin
                rstTblTmp![Nom] = lenom
                rstTblTmp![Type] = f1.Type
                rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                rstTblTmp![Modification] = f1.DateLastModified
                rstTblTmp![Creation] = f1.DateCreated
                rstTblTmp.Update
            ElseIf DCount("[N°]", TableTmp) > 0 Then
                rstTblTmp.MoveLast
                rstTblTmp.AddNew
                rstTblTmp![Chemin] = lechemin
                rstTblTmp![Nom] = lenom
                rstTblTmp![Type] = f1.Type
                rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                rstTblTmp![Modification] = f1.DateLastModified
                rstTblTmp![Creation] = f1.DateCreated
                rstTblTmp.Update
            End If
 
            FichiersPrésent = True
        End If
    Next
 
End Sub
 
 
Sub Parametres()
 
    Set dbs = CurrentDb
    Set rstTbl1 = dbs.OpenRecordset("T_ListeFichierGeneral", dbOpenDynaset)
    Set rstTbl2 = dbs.OpenRecordset("T_ListeLien", dbOpenDynaset)
    Set rstTbl3 = dbs.OpenRecordset("T_ListeFichierPalier", dbOpenDynaset)
    Set rstTbl4 = dbs.OpenRecordset("T_ListeTypeAffaire", dbOpenDynaset)
    Set rstTbl5 = dbs.OpenRecordset("T_ListeTypeFichier", dbOpenDynaset)
 
 
End Sub

**elgordopresto** · 06/01/2020, 15h41

Bonjour,

Je n'ai pas trouvé où dans ton code tu instancies le jeu de données rstTbl4 (set rstTbl4 = xxxxxx). Je ne serais pas étonné que ce soit ce qui génère l'erreur.

Sinon, je t'invite à gérer ce type de cas avant le début de la boucle en vérifiant que le jeu de données contient bien des enregistrements :

Code :

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

1
2
3
4
5
6
7
 
If nz(rstTbl4.Recordcount, 0) > 0 then 
' Le code de ta boucle ici
' blablabla
End If
rstTbl4.close
Set rstTbl4 = Nothing

**MM_13** · 06/01/2020, 15h48

Ah c'est un oubli de ma part, ceci est fait dans un autre module et j'ai oublié de l'indiquer, désolé, j'ai modifié le code précédent du coup.

**tee_grandbois** · 06/01/2020, 15h50

bonjour,
il y a un appel récursif du Sub EcritureListerFichier dans la boucle en question ce qui complexifie le processus:

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
Sub EcritureListerFichier(ByVal f As Variant, ByRef niveau As Integer)
 
Dim DossierEnfantPrésent As Boolean
Dim FichiersPrésent As Boolean
 
    'On récupère les dossiers enfants
    Set fc = f.SubFolders
    DossierEnfantPrésent = False
 
    For Each f1 In fc
        If TypeFichier = "Général" Then
            lechemin = f1.Path
            lenom = f1.Name
 
'            rstTblTmp.MoveLast
            If DCount("[N°]", TableTmp) = 0 Then
                rstTblTmp.AddNew
                rstTblTmp![Chemin] = lechemin
                rstTblTmp![Nom] = lenom
                rstTblTmp![Type] = f1.Type
                rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                rstTblTmp![Modification] = f1.DateLastModified
                rstTblTmp![Creation] = f1.DateCreated
                rstTblTmp.Update
            ElseIf DCount("[N°]", TableTmp) > 0 Then
                rstTblTmp.MoveLast
                rstTblTmp.AddNew
                rstTblTmp![Chemin] = lechemin
                rstTblTmp![Nom] = lenom
                rstTblTmp![Type] = f1.Type
                rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                rstTblTmp![Modification] = f1.DateLastModified
                rstTblTmp![Creation] = f1.DateCreated
                rstTblTmp.Update
            End If
 
            DossierEnfantPrésent = True
            Call EcritureListerFichier(fs.GetFolder(f1), niveau + 1)
 
        ElseIf TypeFichier = "Palier" Then
            'Liste fichier en fonction de la liste des types d'affaire
            If DCount("[N°]", "T_ListeTypeAffaire") <> 0 Then
                rstTbl4.MoveFirst
                Debug.Print rstTbl4![TypeAffaire]
                While (Not rstTbl4.EOF)
                    Debug.Print rstTbl4![TypeAffaire]
                    If InStr(f1, CheminAffaire & rstTbl4![TypeAffaire]) > 0 Then
                        lechemin = f1.Path
                        lenom = f1.Name
 
                        If DCount("[N°]", TableTmp) = 0 Then
                            rstTblTmp.AddNew
                            rstTblTmp![Chemin] = lechemin
                            rstTblTmp![Nom] = lenom
                            rstTblTmp![Type] = f1.Type
                            rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                            rstTblTmp![Modification] = f1.DateLastModified
                            rstTblTmp![Creation] = f1.DateCreated
                            rstTblTmp.Update
                        ElseIf DCount("[N°]", TableTmp) > 0 Then
                            rstTblTmp.MoveLast
                            rstTblTmp.AddNew
                            rstTblTmp![Chemin] = lechemin
                            rstTblTmp![Nom] = lenom
                            rstTblTmp![Type] = f1.Type
                            rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                            rstTblTmp![Modification] = f1.DateLastModified
                            rstTblTmp![Creation] = f1.DateCreated
                            rstTblTmp.Update
                        End If
 
                        DossierEnfantPrésent = True
                        Call EcritureListerFichier(fs.GetFolder(f1), niveau + 1)
                    End If
                    rstTbl4.MoveNext
                Wend

de plus, je ne vois pas l'affectation de rstTbl2 et rstTbl4 (Set rstTbl2 = ????)

**MM_13** · 06/01/2020, 17h11

Oui j'avais oublié un bout de code, celui qui affecte justement les différents rstTbl, j'ai mis à jour la partie code juste après.

**elgordopresto** · 06/01/2020, 17h32

@MM_13

Peux-tu mettre un point d'arrêt à la ligne 136 de ton code (If DCount("[N°]", "T_ListeTypeAffaire") <> 0 Then) puis exécute ton code.

Lorsque vba s'arrête au point d'arrêt (qui sera surligné en jaune), saisis et valide cela dans la fenêtre de débogage (si elle n'est pas disponible, tu peux forcer son affichage en tapant Ctrl + G) :

Code :

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

? Nz(DCount("*", "T_ListeTypeAffaire"), 0)

Dis-nous si le résultat est supérieur à 0. Il s'agit de s'assurer que la table T_ListeTypeAffaire contient bien des enregistrements, à défaut, l'instruction .movenext induira une erreur.

**MM_13** · 06/01/2020, 19h00

J'ai fait la manip et le résultat me donne 2, ce qui correspond bien au nombre d'enregistrement dans ma table.

Mais j'ai toujours le message d'erreur 3021 "aucun enregistrement en cours" qui apparaît pendant l'exécution du code.

**tee_grandbois** · 08/01/2020, 15h10

bonjour,
il faut que tu comprennes que ton code est vraiment complexe, même si la partie de code concernée parait conforme, mise à part cet appel récursif dont je t'ai fait part (le Sub EcritureListerFichier s'appelle lui-même). Il est possible qu'à un endroit de cette partie de code la propriété EOF du Recordset ne soit pas détectée.

Donc difficile de donner des solutions sans connaitre le contexte exact:
est-ce que l'erreur est systématique ou occasionnelle ?
quel est le type de fichier et/ou dossier est impacté ?

Il faudrait aussi vérifier au moment de l'erreur que les fichiers sont tous traités, auquel cas il est possible de trapper l'erreur 3021 et passer à l'instruction suivante ...

**elgordopresto** · 08/01/2020, 17h52

Hello,
En effet, à l'analyse, ton code appelle de nombreuses questions...

Comment affectes-tu une valeur à la variable TypeFichier située au début de ta procédure ListerFichier() ?

Pourquoi, testes-tu une seconde fois la valeur de cette variable plus loin dans la procédure, peut-elle changer à ce stade ? Si oui comment (je ne le trouve pas dans ton code) ?

Tu déclares de nombreuses variables dans la procédure ListerFichier() mais la plupart ne sont pas utilisées ? Inversement, la grande majorité des variables que tu manipules ensuite ne sont pas déclarées au début de la procédure...

Je ne comprends pas ce bout de code dans la seconde procédure :

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
            If DCount("[N°]", TableTmp) = 0 Then
                rstTblTmp.AddNew
                rstTblTmp![Chemin] = lechemin
                rstTblTmp![Nom] = lenom
                rstTblTmp![Type] = f1.Type
                rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                rstTblTmp![Modification] = f1.DateLastModified
                rstTblTmp![Creation] = f1.DateCreated
                rstTblTmp.Update
            ElseIf DCount("[N°]", TableTmp) > 0 Then
                rstTblTmp.MoveLast
                rstTblTmp.AddNew
                rstTblTmp![Chemin] = lechemin
                rstTblTmp![Nom] = lenom
                rstTblTmp![Type] = f1.Type
                rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                rstTblTmp![Modification] = f1.DateLastModified
                rstTblTmp![Creation] = f1.DateCreated
                rstTblTmp.Update
            End If

Pourquoi un elseif, si le Dcount ne renvoie pas 0, le résultat ne peut être que > à 0 ?

Tel que je le comprends, ton code effectue exactement la même opération que le Dcount renvoie 0 ou une valeur supérieure (l'instruction rstTblTmp.MoveLast dans la seconde patte de la condition n'ayant aucun impact dans ce contexte). Quel est l'objectif recherché par ce test sur le nombre de valeurs contenues dans TableTmp ?

A quoi sert l'argument niveau dans ta procédure EcritureListerFichier(), j'ai cherché dans ton code, mais je n'ai pas trouvé où il est utilisé ?

A quoi servent les booléens de cette procédure, tu affectes des valeurs à plusieurs endroits dans la procédure mais sans que ces valeurs ne soient utilisées ensuite (pour effectuer des contrôles par exemple) ?

Tu instancies de nombreux jeux de données dans tes procédures sans forcément les utiliser et sans jamais les fermer et les vider de la mémoire (rst.close et set rst = nothing). Comme tu boucles au sein de la même procédure, il ne serait pas étonnant que ce point joue un rôle majeur dans le problème que tu rencontres.

Je te conseille vivement de faire une revue complète de ton code (ligne par ligne) pour expurger l'inutile et optimiser son fonctionnement. Tu trouveras ci-dessous une proposition de ré-écriture pour ta première procédure où j'ai supprimé ce qui me semblait inutile et ajouté ce qui me semblait essentiel. Sous réserve, bien sûr, que j'ai bien compris ce que tu essaies de faire (ce dont je ne suis pas certain) :

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
 
Sub ListerFichier()
 
Dim f2 As Variant, fs As Variant
Dim TypeFichier As String, TableTmp As String, str As String, CheminAffaire As String, strType As String
Dim StartTime, EndTime, TotalTime
Dim rstTblTmp As DAO.Recordset, rstTbl2 As DAO.Recordset
 
StartTime = Timer
 
'Supprimer tous les enregistrements
Select Case TypeFichier
Case "Général"
TableTmp = "T_ListeFichierGeneral"
Case "Palier"
TableTmp = "T_ListeFichierPalier"
End Select
 
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * FROM " & TableTmp & ";"
DoCmd.SetWarnings True
 
Set rstTblTmp = CurrentDb.OpenRecordset(TableTmp)
 
'Créer un objet de système de fichier
Set fs = CreateObject("Scripting.FileSystemObject")
 
'Boucle sur les lien listés
Set rstTbl2 = CurrentDb.OpenRecordset("T_ListeLien")
While Not rstTbl2.EOF
str = Nz(rstTbl2!chemin, "")
If str <> "" Then
Set f2 = fs.GetFolder(str)
CheminAffaire = Left(str, InStrRev(str, "\"))
Call EcritureListerFichier(f2, 1)
End If
rstTbl2.MoveNext
Wend
rstTbl2.Close
Set rstTbl2 = Nothing
 
'Set the object variable to Nothing.
Set fs = Nothing
 
'Je ne suis pas sûr que tester à nouveau la valeur de TypeFichier soit nécessaire
'Sauf à ce qu'elle soit modifiée par une procédure que tu ne nous a pas fournie
'Si TypeFichier ne change effectivement pas tu peux supprimer tout ce qui se 
'trouve entre ici et mon prochain commentaire
 
 
rstTblTmp.close
Set rstTblTmp = Nothing
 
Select Case TypeFichier
Case "Général"
TableTmp = "T_ListeFichierGeneral"
Case "Palier"
TableTmp = "T_ListeFichierPalier"
End Select
 
Set rstTblTmp = CurrentDb.OpenRecordset(TableTmp)
 
'Supprimer le bloc ci-dessus jusqu'au commentaire précédent si TypeFichier n'a pas changé de valeur
 
While Not rstTblTmp.EOF
str = Nz(rstTblTmp!Type, "")
Select Case True
Case str Like "*Excel*", str Like "*CSV*": strType = "Excel"
Case str Like "*Word*": strType = "Word"
Case str Like "*Visio*": strType = "Visio"
Case str Like "*Adobe Acrobat Document*", str Like "*PDF*": strType = "PDF"
Case str Like "*Outlook*": strType = "Mail"
End Select
If Nz(strType, "") <> "" Then
rstTblTmp.Edit
rstTblTmp!Type = strType
rstTblTmp.Update
End If
rstTblTmp.MoveNext
Wend
rstTblTmp.Close
Set rstTblTmp = Nothing
 
EndTime = Timer
TotalTime = EndTime - StartTime
MsgBox "Temps de traitement : " & Format(TotalTime, "00:00:00.00")
 
End Sub

el

**MM_13** · 08/01/2020, 20h01

Bonjour,

Merci de prendre du temps à me répondre.

Envoyé par tee_grandbois

bonjour,
il faut que tu comprennes que ton code est vraiment complexe, même si la partie de code concernée parait conforme, mise à part cet appel récursif dont je t'ai fait part (le Sub EcritureListerFichier s'appelle lui-même). Il est possible qu'à un endroit de cette partie de code la propriété EOF du Recordset ne soit pas détectée.

Donc difficile de donner des solutions sans connaitre le contexte exact:
est-ce que l'erreur est systématique ou occasionnelle ?
quel est le type de fichier et/ou dossier est impacté ?

Il faudrait aussi vérifier au moment de l'erreur que les fichiers sont tous traités, auquel cas il est possible de trapper l'erreur 3021 et passer à l'instruction suivante ...

-> L'erreur est systématique à chaque fois que je lance le code.
-> Par type de fichier qu'est-ce que tu entends ? Le fichier où s'arrête le code au moment du bug est un fichier .pdf.

Envoyé par elgordopresto

Hello,
En effet, à l'analyse, ton code appelle de nombreuses questions...

Comment affectes-tu une valeur à la variable TypeFichier située au début de ta procédure ListerFichier() ?

L'affectation d'unevaleur à la variable TypeFichier est faite au moment du clic sur le formulaire, en fonction du bouton cliqué ça affecte telle ou telle valeur, il y a 2 cas différents en tout.

Envoyé par elgordopresto

Pourquoi, testes-tu une seconde fois la valeur de cette variable plus loin dans la procédure, peut-elle changer à ce stade ? Si oui comment (je ne le trouve pas dans ton code) ?

Par tester la valeur de TypeFichier tu veux dire aux lignes "If TypeFichier = "Général" Then" et "ElseIf TypeFichier = "Palier" Then" Then" ?
Je teste parce que selon le clic, et du coup la valeur de la variable, le bout de code change.

Envoyé par elgordopresto

Tu déclares de nombreuses variables dans la procédure ListerFichier() mais la plupart ne sont pas utilisées ? Inversement, la grande majorité des variables que tu manipules ensuite ne sont pas déclarées au début de la procédure...

Je mets toujours "Option explicit" en haut de mes modules, il y a des variables qui sont public et que je mets dans un module "Variables" et des variables en tête du module où j'ai le code, j'ai pas voulu indiquer les variables dans les citations de code que j'ai fait pour pas trop charger la compréhension, si vous voulez je peux les rajouter.

Envoyé par elgordopresto

Je ne comprends pas ce bout de code dans la seconde procédure :

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
            If DCount("[N°]", TableTmp) = 0 Then
                rstTblTmp.AddNew
                rstTblTmp![Chemin] = lechemin
                rstTblTmp![Nom] = lenom
                rstTblTmp![Type] = f1.Type
                rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                rstTblTmp![Modification] = f1.DateLastModified
                rstTblTmp![Creation] = f1.DateCreated
                rstTblTmp.Update
            ElseIf DCount("[N°]", TableTmp) > 0 Then
                rstTblTmp.MoveLast
                rstTblTmp.AddNew
                rstTblTmp![Chemin] = lechemin
                rstTblTmp![Nom] = lenom
                rstTblTmp![Type] = f1.Type
                rstTblTmp![Taille] = f1.Size / 1024 'taille en Ko
                rstTblTmp![Modification] = f1.DateLastModified
                rstTblTmp![Creation] = f1.DateCreated
                rstTblTmp.Update
            End If

Pourquoi un elseif, si le Dcount ne renvoie pas 0, le résultat ne peut être que > à 0 ?

Tel que je le comprends, ton code effectue exactement la même opération que le Dcount renvoie 0 ou une valeur supérieure (l'instruction rstTblTmp.MoveLast dans la seconde patte de la condition n'ayant aucun impact dans ce contexte). Quel est l'objectif recherché par ce test sur le nombre de valeurs contenues dans TableTmp ?

A quoi sert l'argument niveau dans ta procédure EcritureListerFichier(), j'ai cherché dans ton code, mais je n'ai pas trouvé où il est utilisé ?

A quoi servent les booléens de cette procédure, tu affectes des valeurs à plusieurs endroits dans la procédure mais sans que ces valeurs ne soient utilisées ensuite (pour effectuer des contrôles par exemple) ?

Tu instancies de nombreux jeux de données dans tes procédures sans forcément les utiliser et sans jamais les fermer et les vider de la mémoire (rst.close et set rst = nothing). Comme tu boucles au sein de la même procédure, il ne serait pas étonnant que ce point joue un rôle majeur dans le problème que tu rencontres.

Le bout de code que tu cites me sert à écrire les infos du fichier en traité dans une table.
Je suis passé par un if/ElseIf parce qu'au départ je ne l'avais pas mis et ça m'écrivait toujours sur la même ligne ou bien me générait un bug, du coup j'ai fait cette manip pour contourner.

L'argument niveau dans la procédure EcritureListerFichier, sert à rentrer dans les sous-dossier, c'est peut-être pas la bonne méthode.
Je débute sur le VBA avec Access

c'est vrai que j'ai pas l'habitude de vider la mémoire, je vais le prendre en compte.

Envoyé par elgordopresto

Je te conseille vivement de faire une revue complète de ton code (ligne par ligne) pour expurger l'inutile et optimiser son fonctionnement. Tu trouveras ci-dessous une proposition de ré-écriture pour ta première procédure où j'ai supprimé ce qui me semblait inutile et ajouté ce qui me semblait essentiel. Sous réserve, bien sûr, que j'ai bien compris ce que tu essaies de faire (ce dont je ne suis pas certain) :

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
 
Sub ListerFichier()
 
Dim f2 As Variant, fs As Variant
Dim TypeFichier As String, TableTmp As String, str As String, CheminAffaire As String, strType As String
Dim StartTime, EndTime, TotalTime
Dim rstTblTmp As DAO.Recordset, rstTbl2 As DAO.Recordset
 
StartTime = Timer
 
'Supprimer tous les enregistrements
Select Case TypeFichier
Case "Général"
TableTmp = "T_ListeFichierGeneral"
Case "Palier"
TableTmp = "T_ListeFichierPalier"
End Select
 
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * FROM " & TableTmp & ";"
DoCmd.SetWarnings True
 
Set rstTblTmp = CurrentDb.OpenRecordset(TableTmp)
 
'Créer un objet de système de fichier
Set fs = CreateObject("Scripting.FileSystemObject")
 
'Boucle sur les lien listés
Set rstTbl2 = CurrentDb.OpenRecordset("T_ListeLien")
While Not rstTbl2.EOF
str = Nz(rstTbl2!chemin, "")
If str <> "" Then
Set f2 = fs.GetFolder(str)
CheminAffaire = Left(str, InStrRev(str, "\"))
Call EcritureListerFichier(f2, 1)
End If
rstTbl2.MoveNext
Wend
rstTbl2.Close
Set rstTbl2 = Nothing
 
'Set the object variable to Nothing.
Set fs = Nothing
 
'Je ne suis pas sûr que tester à nouveau la valeur de TypeFichier soit nécessaire
'Sauf à ce qu'elle soit modifiée par une procédure que tu ne nous a pas fournie
'Si TypeFichier ne change effectivement pas tu peux supprimer tout ce qui se 
'trouve entre ici et mon prochain commentaire
 
 
rstTblTmp.close
Set rstTblTmp = Nothing
 
Select Case TypeFichier
Case "Général"
TableTmp = "T_ListeFichierGeneral"
Case "Palier"
TableTmp = "T_ListeFichierPalier"
End Select
 
Set rstTblTmp = CurrentDb.OpenRecordset(TableTmp)
 
'Supprimer le bloc ci-dessus jusqu'au commentaire précédent si TypeFichier n'a pas changé de valeur
 
While Not rstTblTmp.EOF
str = Nz(rstTblTmp!Type, "")
Select Case True
Case str Like "*Excel*", str Like "*CSV*": strType = "Excel"
Case str Like "*Word*": strType = "Word"
Case str Like "*Visio*": strType = "Visio"
Case str Like "*Adobe Acrobat Document*", str Like "*PDF*": strType = "PDF"
Case str Like "*Outlook*": strType = "Mail"
End Select
If Nz(strType, "") <> "" Then
rstTblTmp.Edit
rstTblTmp!Type = strType
rstTblTmp.Update
End If
rstTblTmp.MoveNext
Wend
rstTblTmp.Close
Set rstTblTmp = Nothing
 
EndTime = Timer
TotalTime = EndTime - StartTime
MsgBox "Temps de traitement : " & Format(TotalTime, "00:00:00.00")
 
End Sub

el

Je sais pas si j'ai bien expliquer ce que fait le code au final, le but c'est de lister les fichiers contenus dans des dossiers.
Pour accéder à ces dossiers, j'ai une table que je "lis", et qui contient les chemins des dossiers.
Ensuite il y a 2 cas (avec 2 boutons) :
-> un cas où je boucle sur ces chemins et j'écris dans une table les infos des fichiers rencontrés
-> un cas où je boucle sur ces chemins mais en prenant en compte une info qui doit être présente dans ces chemins, pour cela je boucle sur une autre table contenant ces infos (la fameuse rstTbl4![TypeAffaire]) et si l'info d'un enregistrement est présente dans le chemin du fichier, alors j'écris les infos de ce fichier dans une table.

Je sais pas si j'ai bien expliqué ce que je souhaite faire.

En tout cas merci.

**tee_grandbois** · 08/01/2020, 20h41

Je sais pas si j'ai bien expliquer ce que fait le code au final, le but c'est de lister les fichiers contenus dans des dossiers.
Pour accéder à ces dossiers, j'ai une table que je "lis", et qui contient les chemins des dossiers.
Ensuite il y a 2 cas (avec 2 boutons) :
-> un cas où je boucle sur ces chemins et j'écris dans une table les infos des fichiers rencontrés
-> un cas où je boucle sur ces chemins mais en prenant en compte une info qui doit être présente dans ces chemins, pour cela je boucle sur une autre table contenant ces infos (la fameuse rstTbl4![TypeAffaire]) et si l'info d'un enregistrement est présente dans le chemin du fichier, alors j'écris les infos de ce fichier dans une table.

dans quel cas cela plante, les 2 ?
serait-il possible d'avoir un bout de la base (le formulaire et les tables) et des pré-requis pour tester ?

- > Par type de fichier qu'est-ce que tu entends ? Le fichier où s'arrête le code au moment du bug est un fichier .pdf.

est-ce uniquement sur un fichier .pdf que se produit l'erreur?

**MM_13** · 09/01/2020, 19h46

Envoyé par tee_grandbois

dans quel cas cela plante, les 2 ?
serait-il possible d'avoir un bout de la base (le formulaire et les tables) et des pré-requis pour tester ?
est-ce uniquement sur un fichier .pdf que se produit l'erreur?

Non seulement dans le cas n°2, celui justement où il faut lire les enregistrements dans la table qui contient l'info "rstTbl4![TypeAffaire]".
L'autre cas ne plante pas.

L'erreur se fait toujours sur le même dossier après avoir traité le même fichier .pdf.

Comment je peux t'envoyer la base ? Par message privée ?

**tee_grandbois** · 09/01/2020, 23h36

bonsoir,

Comment je peux t'envoyer la base ? Par message privée ?

non, tu peux compresser (format .zip ou .rar) une copie très allégée de ta base (juste les objets permettant de tester le cas, avec éventuellement le nom du dossier et du fichier qui fait planter) et la mettre en pièce jointe (icône "trombone" dans le menu message du forum)

**MM_13** · 15/01/2020, 00h46

Bonsoir et désolé pour le temps de réponse.

J'envoie la BDD en pièce jointe.

- Gestion Type Affaire : ce formulaire permet d'ajouter ou supprimer des types d'affaires.
Un type d'affaire est un mot pour lequel je veux lorsque je liste des fichiers de plusieurs dossiers, vérifier que les liens scannés ont ce type d'affaire dans le lien
La table correspondante est : T_ListeTypeAffaire

- Gestion Type Fichier : ce formulaire permet d'ajouter ou supprimer des types de fichiers.
Un type de fichier correspond à word, excel, pdf, ...
La table correspondante est : T_ListeTypeFichier

- Gestion liste lien de scan : ce formulaire permet d'ajouter et supprimer les liens correspondants aux dossiers à scanner pour le listing.
Pour mettre à jour ces liens, avec le bouton mise à jour je sélectionne le dossier "Père" contenant tous les dossiers à scanner. Les liens de tous les dossiers présents dans le dossier "Père" seront ainsi écrit dans une table et servira à boucler.
La table correspondante est : T_ListeLien

- Mise à jour liste fichier général : ce formulaire permet de lister les types de fichiers qui ont été ajoutés avec Gestion Type Fichier, en bouclant sur les liens ajoutés avec Gestion liste lien de scan.
La table correspondante est : T_ListeFichierGeneral

- Mise à jour liste fichier palier: ce formulaire permet de lister les types de fichiers qui ont été ajoutés avec Gestion Type Fichier, en bouclant sur les liens ajoutés avec Gestion liste lien de scan avec la condition que le lien du fichier scanné contienne le lien + le type d'affaire (ex : lien = C:/blablabla, type d'affaire = Voiture, le fichier est écrit dans la table avec ses propriétés si le lien du fichier contient "C:/blablabla/Voiture").
La table correspondante est : T_ListeFichierPalier
C'est cette fonctionnalité qui plante.

Je ne peux pas envoyer le fichier qui fait planter le code, c'est un fichier du travail, mais j'ai fait des tests chez moi sur des dossiers quelconques et le code a aussi planté.

J'espère avoir bien expliqué.

**tee_grandbois** · 23/01/2020, 00h24

bonsoir,
ton appli n'est pas simple à manipuler (beaucoup de pré-requis avant de pouvoir tester).
Sur un site de bénévoles, il n'est pas évident pour un forumeur de passer du temps à préparer un jeu de test.
Pourrais-tu prendre du temps pour préparer un schéma de test: fournir nom et emplacement de dossier(s) et fichier(s), remplir le contenu de la (ou les) table(s) à utiliser, éventuellement les fournir dans une nouvelle base ?

**MM_13** · 29/01/2020, 14h08

Bonjour,

Oui je comprends que ça ne soit pas facile à utiliser et comprendre.

En fait je peux pas vraiment faire de schéma test, remplir des tables pour faire fonctionner parce que justement les tables se remplissent en scannant les fichiers présents dans des dossiers.
La table pré-remplie est celle des types de fichier.

Avant de commencer un scan de dossiers, il faut en premier lieu sélectionner le dossier à l'intérieur duquel on veut scanner des fichiers.
Cela se fait avec le formulaire "Gestion liste lien de scan" et le bouton "mise à jour".
En sélectionnant un dossier, cela va écrire dans la table "T_ListeLien" le chemin de chaque dossier présent dans le dossier sélectionné.

Après il y a 2 scénarios :

-> "Mise à jour liste fichier général" : Qui permet de scanner des fichiers contenus dans des dossiers et écrire leurs propriétés dans la table "T_ListeFichierGeneral".

-> "Mise à jour liste fichier palier" : Qui permet de scanner des fichiers contenus dans des dossiers, en fonction de mots écrits dans la table "T_ListeTypeFichier" et écrire leurs propriétés dans la table "T_ListeFichierPalier".
Pour ce cas il faut écrire des mots avec le formulaire "Gestion Type Fichier". Ainsi lors du scan, si le mot apparaît dans le chemin du fichier qui est en train d'être scanné, alors les propriétés de ce fichier sont écrites dans la table "T_ListeFichierPalier". Le mot présent dans le chemin du dossier doit être écrit d'une certaine façon pour être détecté.
Ex :
-> le chemin du fichier en cours de scan est "C:\AAAA\BBBB\CCCC"
-> le mot est "DDDDD"
-> le chemin du fichier en cours de scan doit être "C:\AAAA\BBBB\CCCC\DDDDD*" pour pouvoir être reconnu et ainsi écrire les propriétés du fichier dans la table "T_ListeFichierPalier".

Du coup pour pouvoir faire un test il faudrait mettre des fichiers quelconques et de type différent (.PDF, Excel, Word, JPEG, ....) dans plusieurs dossiers et ces dossiers mis dans un seul dossier (dossier père).
Puis sélectionner ce dossier avec le formulaire "Gestion liste lien de scan".
Puis indiquer dans le formulaire "Gestion Type Fichier" le nom d'un dossier présent dans le dossier père.
Puis tester les 2 scénarios :
Le premier scénario doit écrire les propriétés de tous les fichiers présents dans les dossiers, à condition que le type du fichier soit bien présent dans la table "T_ListeTypeAffaire".
Le second scénario doit écrire les propriétés de tous les fichiers présents dans les dossiers, à condition que le type du fichier soit bien présent dans la table "T_ListeTypeAffaire" et que le mot écrit dans la table "T_ListeTypeFichier" soit présent dans le lien du fichier en cours de scan.

Je sais pas si j'ai bien expliqué.

Merci encore.

MoveNext et EOF [AC-2010]

VBA Access

Discussions similaires

Partager

Partager