Discussion :

[ADbtr]

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"

[mayekeul]

bonjour,

pourquoi ne pas essayer comme ça plutôt:

Code :

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

1
2
3
Function ChercherFichier(NomFichier As String) As Boolean
If Dir(addresseFichier + NomFichier) = "" Then ChercherFichier = False Else ChercherFichier = True
End Function

[zyhack]

Bonjour

Les modifications sont précisés en commentaires dans 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
'Ca il n'y en pas besoin
'Public NomFichier As String
Sub EnregistrementHoraire()
 
Dim AdresseFichier As String
Dim Machine As Variant
Dim H As Variant
Dim I As Integer
'nouvelle variable pour la réponse au test
Dim present As Boolean
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")
        'present sera true si la fonction trouve le fichier
        'et il manquait le chemin qui n'était pas envoyé à la fonction
        present = ChercherFichier(H & "30.csv", AdresseFichier)
        'un petit test si tu effectuer une action
        If present Then
          'ce que tu veux faire avec le fichier CSV
        End If
    Next H
Next Machine
 
End Sub
 
' ajout du repertoire en parametre
Function ChercherFichier(NomFichier As String, AdresseFichier 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

[ADbtr]

Parfait zyhack, fonctionne parfaitement, merci à vous

Bonne journée

ADbtr