Boucler sur fichiers xls ds les sous-rep

Wyrgle

XLDnaute Junior
Bonjour,

Je souhaite ouvrir les fichiers (de type xls seulement) dans les sous-répertoires du répertoire parent Q:\Chemin\.

Je ne connais pas bien les fontions d'ouverture/fermeture de fichier par le Scripting.FileSystemObject
Voici mon ébauche de code :

VB:
Option Explicit
Sub TEST()

Dim Fso As Object, Main_Rep As String
Dim Sous_Rep As Object, Fichier As Object
Dim wb as Workbook

Set Fso = CreateObject("Scripting.FileSystemObject")

Main_Rep= "Q:\Chemin\"

For Each Sous_Rep In Fso.GetFolder(Main_Rep).SubFolders
     For Each Fichier In Sous_Rep.Files
          '  ----------------- Ouverture du xls :
         Set wb = Workbooks.Open(Fichier)
          ' --------- Traitement des données du fichier -------
          '  ------ On renomme le fichier en SET_Fichier ------
        Fichier.close
        wb.close     
     Next Fichier
Next Sous_Rep

End Sub


Merci pour votre aide !
 

Discussions similaires

Réponses
4
Affichages
2 K

Statistiques des forums

Discussions
311 709
Messages
2 081 779
Membres
101 816
dernier inscrit
Jfrcs