Bonjour à tous,


J'ai écris un code qui parcours les fichiers d'un dossier afin d'en trouver un spécifique.

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
 
Public CA As String 'déclare la variable CA (Chemin d'Accès)
 
Sub recherche_fichier_MH()
 
CA = "\\192.168.1.5\Fichiers communs\INFORMATIQUE\Stat pour macro\PASSEPORT\Archives\" 'Definit l'emplacement du dossier CA
Dim FSO As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim SubFolder As Scripting.Folder
Dim FileItem As Scripting.File
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = FSO.GetFolder(CA)
 
For Each FileItem In SourceFolder.Files
 
'Mon code
 
Next
End sub
le dossier contient plusieur millier de fichier, mais le code n'en parcours qu'une centaine, je ne comprend pas pourquoi.

Une idée?

merci