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 :
Merci pour votre aide !
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 !