salut tous le monde
avec ce code je veux voire tous les fichier htm dans le dossier et dous dossier d'un rep c:\dossier je n'est pas pi aller plus loin que ca

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
ParcoursRep("E:\vbs")
 
Sub ParcoursRep(oFolder As Scripting.Folder)
Dim oFile As File
Dim oSousRep As Folder
 
For Each oFile In oFolder.Files
msgbox oFile
Next
 
For Each oSousRep In oFolder.SubFolders
ParcoursRep oSousRep
Next
 
End Sub