Sub EnvoiFeuilleMail()
Application.ScreenUpdating = False
'copie la feuille active
ActiveSheet.Copy
'supprime le bouton
ActiveSheet.Shapes("Bouton 12").Delete
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells(21, 1).Select
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Application.DisplayAlerts = True
'Envoi le classeur créé par mail
[COLOR="red"]'C'est comme ici je souhaiterais choisir si il s'agit d'une facture ou d'un devis [/COLOR]
ActiveWorkbook.SendMail "arpette@free.fr", "Devis "
'Ferme sans sauver
ActiveWorkbook.Close False
Application.ScreenUpdating = True
End Sub