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 |
Partager