Bonjour à tous j'ai un petit soucis avec ce code :
J'ai récupérer la partie en rouge sur un autre sujet du forum et je ne la maîtrise donc pas correctement. Le code fonctionne mais ne compte que les fichiers présent dans le dossier cible. J'aimerais qu'il compte également les fichiers des sous dossiers présent dans ce dossier cible. Est- ce possible ? Et si oui comment le réaliser ?
Merci à ceux qui prendront le temps de me répondre.
Cordialement,
Ben
Code:
Private Sub CheckBox8_Click()
If CheckBox8 = True Then
[COLOR="red"]Dim FSO As Object, Dossier As String
Dossier = "Z:\protocole\" & Sheets("Sommaire").Cells(28, 2).Value & "\Docs techniques\ENR"
Set FSO = CreateObject("Scripting.FileSystemObject")
NbrFich = FSO.GetFolder(Dossier).Files.Count[/COLOR]
Range("L31").Value = NbrFich
If NbrFich <> 0 Then
Range("I31").Select
ActiveCell.Value = Now
Else
MsgBox ("Vous ne pouvez valider cette action, il faut au minimum une documentation technique !")
CheckBox8 = False
End If
Else
Range("I31").Value = ""
End If
End Sub
J'ai récupérer la partie en rouge sur un autre sujet du forum et je ne la maîtrise donc pas correctement. Le code fonctionne mais ne compte que les fichiers présent dans le dossier cible. J'aimerais qu'il compte également les fichiers des sous dossiers présent dans ce dossier cible. Est- ce possible ? Et si oui comment le réaliser ?
Merci à ceux qui prendront le temps de me répondre.
Cordialement,
Ben
Dernière édition: