Private Sub CommandButton5_Click()
Windows("classeur entretien Mulhouse.xls").Activate
ActiveWindow.Close
CommandButton5.Enabled = False
CommandButton4.Enabled = True
End Sub
Private Sub CommandButton4_Click()
Workbooks.Open Filename:= _
"D:\classeur entretiens\classeur entretien Mulhouse.xls"
CommandButton4.Enabled = False
CommandButton5.Enabled = True
End Sub