Sub Test_01()
'adapter le nom du dossier pour tester
pws_Compter_Fichiers "C:\Users\STAPLE\Documents\TESTS"
End Sub
Private Sub pws_Compter_Fichiers(Dossier As String, Optional Type_Fic As String = "*.*")
Dim Params$, tmpF$, NB_F&, pCmd As Variant
Params = Dossier & "\" & Type_Fic
tmpF = Environ("TEMP") & "\temp.txt"
pCmd = "PowerShell -Command " & ("Get-ChildItem -File '" & Params & "' -Recurse | Measure-Object | %{$_.Count} | Out-File -filePath '" & tmpF & "' -encoding ASCII")
CreateObject("WScript.Shell").Run pCmd, 0, True
NB_F = CreateObject("Scripting.FileSystemObject").OpenTextFile(tmpF).ReadAll: Kill tmpF
MsgBox NB_F 'pour test
Cells(1) = NB_F
End Sub