Bonjour,
J'ai fait une macro qui fonctionne pour un fichier(2017_maquette_DRH_macro(27).xlsx), et j'aimerais qu'il fasse la même chose pour 4 autres fichiers (2017_maquette_DT_macro(27).xlsx. / 2017_maquette_DF_macro(27).xlsx / ... ) qui se trouvent également dans le dossier document de travail. J'ai vu qu'il y a des fonctions boucle mais je n'arrive pas trop à les utiliser.

Ma macro:

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
Sub Ouvre()
Dim wb As Workbook
Dim ws As Worksheet
 
Set wb = Workbooks.Open("C:\Users\6881EW\Desktop\Documents de travail\2017_maquette_DRH_macro(27).xlsx")
Sheets("Bac à sable en ligne").Select
ChDir "C:\Users\6881EW\Desktop\Envoi"
   ActiveWorkbook.SaveAs Filename:="2017_maquette_DRH_macro(27)_envoi.xlsx"
Sheets("Analyse").Select
    Range("A1:AK85").Select
    Selection.Copy
 
    Sheets("Analyse").Select
    Range("A1:AK85").Select
    Selection.PasteSpecial Paste:=xlPasteValues
 
    Sheets("Bac à sable en ligne").Select
    Range("A1:U100").Select
    Selection.Copy
 
    Sheets("Bac à sable en ligne").Select
    Range("A1:U100").Select
    Selection.PasteSpecial Paste:=xlPasteValues
 
 
    Application.DisplayAlerts = False
    Sheets("Modèle").Delete
    Sheets("ETP 2018").Delete
    Sheets("ETP 2019").Delete
    Sheets("Table de correspondance").Delete
    Application.DisplayAlerts = True
 
    Sheets("Analyse").Activate
ActiveWorkbook.Save
 
Workbooks("2017_maquette_DRH_macro(27)_envoi.xlsx").Close SaveChanges:=True
 
End Sub