rebonjour Ludovic
cet exemple permet de rechercher un dossier (nommé "wiki pages" dans l'exemple ) et d'afficher le chemin complet trouvé
necessite d'activer la reference Microsoft Scripting RunTime
dans Visual Basic Editor (Alt + F11)
menu Outils
References
Coches la ligne "Microsoft Scripting RunTime"
cliques sur OK pour valider
inutile de dire que la recherche peut etre longue s'il y a beaucoup de dossiers sur le disque
la macro ne prend pas en compte le fait qu'il puisse y avoir plusieurs dossiers portant le meme nom
Option Compare Text
Sub TestPresenceDossier()
'texté avec WinXP et Excel2002
Dim Racine As String
Racine = "C:\"
ListFilesInFolder Racine, True
End Sub
Sub ListFilesInFolder(SourceFolderName As String, IncludeSubfolders As Boolean)
' adapté de Ole P Erlandsen
'necessite d'activer la reference Microsoft Scripting RunTime
Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder, SubFolder As Scripting.Folder
On Error GoTo Fin
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder(SourceFolderName)
If IncludeSubfolders Then
For Each SubFolder In SourceFolder.subfolders
If SubFolder.Name = "wiki pages" Then 'adapter le nom du dossier recherché
MsgBox SubFolder.Path
IncludeSubfolders = False
End If
ListFilesInFolder SubFolder.Path, IncludeSubfolders
Next SubFolder
End If
Fin:
End Sub
bon apres midi
MichelXld