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
Partager