Discussion :

[Lionel_koch]

Bonjour,

j'ai une macro qui me permet d’ouvrir tous les fichiers excel sous un même répertoire et faire des actions sur ces fichiers (via une macro) et les refermer. Maintenant, j'aimerais faire la même chose mais dans une arborescence avec des sous répertoires et j'aimerais ouvrir les fichiers dans ces sous répertoires aussi. Je n'arrive pas a trouver

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Const FOLDER As String = "C:\Users\lionel.koch\Documents\CDG FM_SEM\Budget 2015-2016\Done3\"
 
Sub Ouverture_auto_budget()
 
    On Error GoTo ErrorHandler
 
    Dim fileName As String
 
    fileName = Dir(FOLDER & "*.xls")
 
     ' loop through folder, only process .xls files
    Do While Len(fileName) > 0
    Application.ScreenUpdating = False
        Call ProcessFile(fileName)
        Application.ScreenUpdating = False
        fileName = Dir
    Loop
 
ProgramExit:
    Exit Sub
ErrorHandler:
    MsgBox Err.Number & " - " & Err.Description
    Resume ProgramExit
End Sub
 
Sub ProcessFile(fileName As String)
 
    Dim currentWkbk As Excel.Workbook
     Application.ScreenUpdating = False
     ' open workbook
    Set currentWkbk = Excel.Workbooks.Open(FOLDER & fileName)
     'MsgBox fileName
     Application.ScreenUpdating = False
     correct_med 'macro appliquée sur les fichiers
     Application.ScreenUpdating = False
     Application.DisplayAlerts = False
     ActiveWorkbook.Save
     ActiveWorkbook.Close
     Application.DisplayAlerts = True
 
     ' do whatever you need to do with currentWkbk
 
End Sub

[Philippe Tulliez]

Bonjour,
Sans doute une réponse dans cette discussion Lister les fichiers d'un répertoire et ses sous-répertoires - une méthode + rapide ?

[kiki29]

Salut, à voir également : Liste des fichiers d'un dossier ( avec recherche récursive ou non ) via les APIs