Sub BOUCLE()
Dim File_Location As String, File_Name As String
' mes fichiers du jour sont dans le répertoire ...\2017\02\13\ :
File_Location ="R:\mes documents\YYYY\MM\DD\"
' je traite seulement les fichiers xls
File_Name = Dir(File_Location & "*.xls")
' si le répertoire n'est pas vide...
While File_Name <> ""
'...alors je traite les fichiers qui n'ont pas encore été traités (mis-en-page) :
If Left(File_Name, 4) <> "TEAM" Then
' les fichiers à traiter sont renommés avec un suffixe :
Name File_Location & File_Name As File_Location & "TEAM_" & Weekday(Now() - 1) & "_" & File_Name
' j'ouvre mon fichier à mettre-en-page et à imprimer
Workbooks.Open Filename:=File_Location & "TEAM_" & Weekday(Now() - 1) & "_" & File_Name
ActiveSheet.PrintPreview ' invalider apres test
'ActiveSheet.PrintOut ' valider apres test
' je ferme sans sauvegarder (pas de modif=cahier des charges du projet) :
ActiveWorkbook.Close savechanges:=False
End If
' je passe au fichier suivant :
File_Name = Dir()
Wend
End Sub