Private Sub Workbook_Open()
Dim Répertoire As String
[COLOR=blue]Application.ScreenUpdating = False[/COLOR]
Répertoire = "C:\base donnée\stages\Archives\"
Worksheets("Elèves").Visible = True
Sheets(Array("Elèves")).Copy
ActiveWorkbook.SaveAs Filename:=Répertoire & "Base Elèves " & Format(Now, "yyyymmdd_hhmmss") & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close True
Worksheets("Elèves").Visible = False
Worksheets("MDS").Visible = True
Sheets(Array("MDS")).Copy
ActiveWorkbook.SaveAs Filename:=Répertoire & "Base MDS " & Format(Now, "yyyymmdd_hhmmss") & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close True
Worksheets("MDS").Visible = False
End Sub