bonjour WILFRIED le forum j utilise ce code adapter de signoneau ...Sub COMPTENBFICH(Optional X As String)
Dim Nb&
Application.ScreenUpdating = False
NbDeFichiers '\\c:\\', Nb&, False
[h7] = Nb
End Sub
Sub NbDeFichiers(LeDossier$, Cpte&, Optional SousDossiers As Boolean = True)
Dim fso As Object, Dossier As Object
Dim sousRep As Object
On Error Resume Next
Set fso = CreateObject('Scripting.FileSystemObject')
Set Dossier = fso.GetFolder(LeDossier)
Cpte = Cpte + Dossier.Files.Count
If SousDossiers Then
For Each sousRep In Dossier.SubFolders
NbDeFichiers sousRep.path, Cpte
Next sousRep
End If
Set fso = Nothing
End Sub ' salutations