Collection de classeurs

[Philippe]

Bonsoir à tous,

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 ?

Merci d'avance

Philippe

 

[Pedro]

Salut,

J'utilise la fonction dir ...

Dim fichier,chemin as String
chemin='C:\\...\\Mon dossier\\*.xls'
fichier = Dir(chemin)
Do while fichier ''
... 'manipulation sur le fichier
fichier=Dir
Loop

En espérant t'avoir aidé...

 

[PascalXLD]

Bonjour

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é)

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

Bonne journée

 

[Philippe]

Merci P & P,

j'essaie tout ceci dès ce soir et je vous tiens au courant

Bonne journée à vous deux.

A+