Sub EnvoiResult()
If Sheets("Résultat").Range("g11") <> "" Then
Dim HyperLien, Objet, Corps, PJ As String
If Mid(Sheets("Demande").Range("m2"), 4, 3) = "MCD" Or Mid(Sheets("Demande").Range("m2"), 4, 3) = "JPO" Then
Objet = "DTL - Balles : " & Mid(Sheets("Demande").Range("m2"), 1, 16)
Else
Objet = "DTL - Balles : " & Mid(Sheets("Demande").Range("m2"), 1, 15)
End If
Corps = ""
Corps = Corps & "La demande " & ActiveWorkbook.Name & " a été traitée." & vbCrLf
Corps = Corps & "Les résultats sont consultables dans la base de données et/ou le fichier Excel."
Corps = Corps & "" & vbCrLf
Corps = Corps & "Bon développement" ' & vbCrLf
Corps = Application.WorksheetFunction.Substitute(Corps, vbCrLf, "%0D%0A")
If Mid(Sheets("Demande").Range("m2"), 4, 2) = "MC" Then
ad = "zzz@aaa.com"
ElseIf Mid(Sheets("Demande").Range("m2"), 4, 2) = "JP" Then
ad = "www@aaa.com"
Else
ad = ""
End If
HyperLien = "mailto:" & ad & "?cc=" & copie
HyperLien = HyperLien & "&Subject=" & Objet & " (à " & Time() & ")"
HyperLien = HyperLien & "&Body=" & Corps
ActiveWorkbook.FollowHyperlink HyperLien
Else
MsgBox ("Visa non renseigné")
End If
End Sub