Private Sub CommandButton3_Click()
Dim sPath As String, sFic As String, OldPathName As String
Dim MonOutlook As Object, MonMessage As Object
' Définir le chemin et el nom du fichier
sPath = ThisWorkbook.Path & "\"
sFic = Range("Y1").Value & ".xls"
' Récupérer l'ancien nom avec un DIR()
OldPathName = Dir(sPath & "N° COMMANDE*")
' Sauvegarde le classeur sous le nouveau nom
ThisWorkbook.SaveAs sPath & sFic
' Supprimer l'ancien fichier
Kill sPath & OldPathName
' Créer une instance Outlook
Set MonOutlook = CreateObject("Outlook.Application")
' Créer un nouveau message
Set MonMessage = MonOutlook.CreateItem(0)
MonMessage.To = Range("B5").Value
MonMessage.cc = Range("B6").Value & ";" & Range("A8").Value & ";" & Range("A9").Value
MonMessage.Subject = Range("AA1")
MonMessage.Body = Range("Y8")
MonMessage.Attachments.Add sPath & sFic
'MonMessage.Display ' Afficher le message
MonMessage.Send ' Envoi du message
Unload Me
Fermeture.Show
Unload Fermeture
'Unload Fermeture
' ActiveWorbook.Close True
' ActiveWorkbook.SaveChanges = True
' pour fermer Excel
ThisWorkbook.Close False
Application.Quit
End Sub