VBA copier feuille excel (transformé en PDF) dans lotus note.

Sub EnvoiEmailPDF()

Const EMBED_ATTACHMENT As Long = 1454
Const stPath As String = ""
 
 Sub EnvoiEmailPDF()
 
MsgBox ("Fiche d'accord transmise à LOTUS NOTES en format PDF pour renvoi.")
Sheets("Fiche Saisie pour Apac").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\" & "Accord.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
  Dim MaDate As String
  Dim stFileName As String
  Dim vaRecipients As Variant
  Dim noSession As Object
  Dim noDatabase As Object
  Dim noDocument As Object
  Dim noEmbedObject As Object
  Dim noAttachment As Object
  Dim stAttachment As String
  Dim vaMsg As Variant
  Dim StrSignature As Variant
  Dim stSubject As String
  
  On Error GoTo TraiteErreur
 
  stSubject = ""
  MaDate = Date
 
  vaMsg = "Bonjour, " & vbCrLf & vbCrLf & vbCrLf & _
  vbCrLf & vbCrLf & vbCrLf & vbCrLf _
  & "Bonne réception." & vbCrLf _
  & "Cordialement."
 
  stFileName = "test"
  stAttachment = ActiveWorkbook.Path & "\" & "Accord.PDF"
  
  'test de l'existance de la PJ
If Dir(stAttachment) = "" Then GoTo TraitePJ

  vaRecipients = ""
  Set noSession = CreateObject("Notes.NotesSession")
  Set noDatabase = noSession.GETDATABASE("", "")
 
  'If Lotus Notes is not open then open the mail-part of it.
If noDatabase.IsOpen = False Then noDatabase.OPENMAIL
 
  'Create the e-mail and the attachment.
Set noDocument = noDatabase.CREATEDOCUMENT
  Set noAttachment = noDocument.CREATERICHTEXTITEM("stAttachment")
  Set noEmbedObject = noAttachment.EmbedObject(EMBED_ATTACHMENT, "", stAttachment)
  
  'Add values to the created e-mail main properties.
  With noDocument
        .Form = "Memo"
        .sendto = vaRecipients
        .Subject = stSubject
        .body = vaMsg
        .SaveMessageOnSend = True
        .PostedDate = Now()
    End With
    
    'Affichage du mail dans Lotus Notes.
  Dim Workspace
    Set Workspace = CreateObject("Notes.NotesUIWorkspace")
    Call Workspace.EditDocument(True, noDocument).FieldSetText("Body", vaMsg)

  'Release objects from memory.
Set noEmbedObject = Nothing
  Set noAttachment = Nothing
  Set noDocument = Nothing
  Set noDatabase = Nothing
  Set noSession = Nothing
 
  Exit Sub
   
TraitePJ:
    
    MsgBox "Un problème est survenu lors de l'insertion de la pièce jointe", vbCritical, "Error"
 
    Set noEmbedObject = Nothing
    Set noAttachment = Nothing
    Set noDocument = Nothing
    Set noDatabase = Nothing
    Set noSession = Nothing

    Exit Sub
 
TraiteErreur:
 
    MsgBox "Un problème est survenu lors de la création du mail", vbCritical, "Error"
 
    Set noEmbedObject = Nothing
    Set noAttachment = Nothing
    Set noDocument = Nothing
    Set noDatabase = Nothing
    Set noSession = Nothing
 
End Sub