j'ai besoin d'aller explorer le contenu de toute une collection de classeurs contenus dans un dossier que nous appellerons 'Mon dossier', puis-je déclarer'Mondossier' comme collection puis faire une routine 'for each workbook in collection, etc...' ?? ou bien la procédure est elle différente ?
Dim fichier,chemin as String
chemin='C:\\...\\Mon dossier\\*.xls'
fichier = Dir(chemin)
Do while fichier ''
... 'manipulation sur le fichier
fichier=Dir
Loop
Un code de ce genre là doit te mettre par exemple dans une listbox tous tes fichiers xls d'un dossier (je n'ai pas retesté)
Code:
MonPath = 'C:\\MonDossier'
Dim fs, f, f1, fc
Set fs = CreateObject('Scripting.FileSystemObject')
Set f = fs.GetFolder(MonPath)
Set fc = f.Files
For Each f1 In fc
If (LCase(Right(f1.Name, 4))) = '.xls' Then
Me.Listbox1.AddItem f1.Name
End If
Next