Sub Nombre()
ListeFichiersDans DossierFichiers
End Sub
Private Sub ListeFichiersDans(ByVal NomDossier As String)
Dim FSO As Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder
Dim Fichier As Scripting.file
Dim r As Long
Dim Path As String
Dim Produit As String
Path = "F:\Mes documents\####\"
Produit = Path & Cells(ActiveCell.Row, 38)
Set FSO = New Scripting.FileSystemObject
Set DossierSource = FSO.GetFolder(Produit)
r = 0
For Each Fichier In DossierSource.Files
'If InStr(1, Fichier.Name, ".") Then
r = r + 1
'End If
Next Fichier
Cells(ActiveCell.Row, 22) = r
Set Fichier = Nothing
Set DossierSource = Nothing
Set FSO = Nothing
End Sub