Bonjour le forum,

je souhaite chercher un fichier .csv dans un repertoire avec le code suivant (or ca ne fonctionne pas), pourquoi?
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
Public NomFichier As String
Sub EnregistrementHoraire()
 
Dim AdresseFichier As String
Dim Machine As Variant
Dim H As Variant
Dim I As Integer
 
Sheets("Feuil1").Select
 
For Each Machine In Array("U1", "U2", "U3", "U4", "F2")
AdresseFichier = Range("B1") & "\" & Machine
    For Each H In Array("00", "01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23")
        ChercherFichier (H & "30.csv")
 
    Next H
Next Machine
 
End Sub
 
Function ChercherFichier(NomFichier As String) As Boolean
With Application.FileSearch
        .LookIn = AdresseFichier
        .Filename = NomFichier
        '.FileType = msoFileTypeAllFiles
        .SearchSubFolders = True
        If .Execute Then
            ChercherFichier = True
        Else
            ChercherFichier = False
        End If
End With
End Function
Contenu de la cellule B1 : C:\Documents and Settings\aurelien.dupont\My Documents

Merci d'avance pour votre aide

Cordialement,

ADbtr

J'ai oublié de préciser : mes fichiers portent le nom "HistDataHHMM.csv".

Exemple : "HistData0530.csv"