'Condition pour envoyer mail si le %NC est sup à 80%
'AffichFA = False
If Val(NC.Text) / Val(Qte.Text) * 100 >= 80 And Decision.Value = "Rebut" Then
ElseIf MsgBox("Voulez vous imprimer une FA?", vbYesNo) = vbYes Then
UserForm1.Hide
Worksheets("FA").PrintPreview
End If
'Envoi du mail
'Destinataires(1) = "toto@titi.com"
'Destinataires(2) = "titi@toto.com"
Destinataires(3) = "tartempion@toto.com"
Sujet = "FA Plastique"
AccuseReception = True
'Nom de la feuille
ThisWorkbook.Sheets("FA").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
If Val(NC.Text) / Val(Qte.Text) * 100 <= 80 Then
AffichFA = True
End If
If AffichFA = True Then
UserForm1.Hide
End If