Sub Enregistrer_onglet()
Dim Chemin As String
Dim Fichier As String
Dim i As Long
Application.DisplayAlerts = False
Chemin = "C:\Traités\"
Fichier = Dir(Chemin & "*.xls", "*.xlsx", "*.xlsm")
Do While Fichier <> ""
For i = 1 To Sheets.Count
Workbooks.Open Filename:=Chemin & Fichier
Sheets("Tableau").Copy
TempFilePath = "C:\DATA\"
TempFileName = Workbooks(Fichier).Worksheets("Fiche").Range("F19") & "_" & Workbooks(Fichier).Worksheets("Fiche").Range("F7") & "_E_" & Format(Now, "yyyymmdd") & "_A_MAJ00_01"
FileExtStr = ".xlsx" '
ActiveWorkbook.SaveAs Filename:=TempFilePath & TempFileName & FileExtStr
ActiveWorkbook.Close
Workbooks(Fichier).Close SaveChanges:=False
Fichier = Dir
Next i
Loop
Application.DisplayAlerts = True
End Sub