Salut la compagnie des Excelmen (edit: excelwomen ?)

voici mon problème du jour...
J'essaie de parcourir les fichiers d'un dossier précis à l'aide d'un FileSystemObject. Pratique habituelle, mais une erreur à dû se glisser quelque part et je n'arrive pas à la débusquer... (sans doute une de ces erreurs stupides qui font galérer des heures)

bref, voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Dim FSO As Object
Dim lesDossiers, lesFichiers, Dossier, Fichier
Dim lesDrives, Drive
 
Set FSO = CreateObject("Scripting.FileSystemObject")
 
Chemin = "I:\Achat_Database\INVENTOR\Récap\"
Dossier = FSO.GetFolder(Chemin)
 
For Each Dossier In lesDossiers.SubFolders
    MsgBox Dossier.GetFolderName
Next Dossier
L'erreur obtenue est 'Objet requis' sur la ligne suivante
Code : Sélectionner tout - Visualiser dans une fenêtre à part
For Each Dossier In lesDossiers.SubFolders
Cherchez l'erreur