Sub Mac_depose_OUI()
Dim DossierDest As String, NomFic As String
DossierDest = "T:\AGF\OUTIL_CORAPI\Gestion_du_CORAPI\1_Fiche_CORAPI_modifiées\"
NomFic = Mid(ThisWorkbook.Name, 1, (Len(ThisWorkbook.Name) - 4)) & "_" & Format(Date, "ddmmyy") & "_" & Format(Time, ("HHMMSS")) & ".xls"
' Empècher les évènements et les messages d'alerte avant la sauvegarde
Application.DisplayAlerts = False
Application.EnableEvents = False
' Sauvegarder le fichier
ThisWorkbook.SaveAs Filename:=DossierDest & NomFic
Title = "Information sur la Gestion des fiches CORAPI"
Style = vbInformation
Msg = " ===============================================================================" & vbCr & vbCr _
& " FICHE DEPOSEE DANS LE REPERTOIRE CORAPI : " & DossierDest & vbCr _
& " " & vbCr _
& " SOUS LE NOM : " & NomFic & vbCr _
& " " & vbCr _
& " LA FICHE SERA PRISE EN COMPTE PAR L'EQUIPE CORAPI" & vbCr & vbCr _
& " ==============================================================================="
Response = MsgBox(Msg, Style, Title)
' Réactiver les évènements et les messages d'alerte après la sauvegarde
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub