Bonjour,

Étant novice en VBA voici déjà quelque temps que je recherche à envoyer une feuille Excel en corps de mail.En gros je voudrais envoyer de ma feuille Excel la cellule B2 à Q54 en corps de mail avec un message au-dessus.Il y a quelque jour j'ai trouvé cette macro, mais j'ai une erreur que je ne parvient vraiment pas à comprendre. Je vous ai m'y en rouge l'erreur sur la macro.

Voici la macro avec l'erreur

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub ()

  Dim OutlookApp As Outlook.Application
  Dim MItem As Outlook.MailItem
  Dim cell As Range
  Dim Projet, EmailAddr, EmailAddrCC, Msg, Subj As String
  Dim TEXTE_AVANT, TEXTE_APRES, POINT_PROD As String
 
    TEXTE_AVANT = Sheets("S46-12-11").Range("C75")
    TEXTE_APRES = Sheets("S46-12-11").Range("C77")
    POINT = Sheets("S46-12-11").Range("J21")
    EmailAddr = Sheets("S46-12-11").Range("C70")
    EmailAddrCC = Sheets("S46-12-11").Range("C71")
    
    Sheets("S46-12-11").Select
    

      Set OutlookApp = New Outlook.Application

      Subj = Sheets("S46-12-11").Range("C72")
         
          
      Msg = Msg & TEXTE_AVANT
      Msg = Msg & "TOTAL :" & POINT & "." & vbCrLf
      
      
      ActiveSheet.Range("B2:Q54").Select
      ActiveWorkbook.EnvelopeVisible = True
    Sheets("S46-12-11").Range("B2:Q54").Select
      Selection.Copy
      Msg = Msg & vbCrLf
      Msg = Msg & TEXTE_APRES & vbCrLf
      Msg = Msg & vbCrLf
      Msg = Msg & "Cordialement" & vbCrLf
      Msg = Msg & "Jerome " & vbCrLf
      Msg = Msg & "Analyste" & vbCrLf
      Msg = Msg & vbCrLf
      
        With ActiveSheet
            .Introduction = Msg
            .Item.To = EmailAddr
            .Item.CC = EmailAddrCC
            .Item.Subject = Subj
            .Item.Display
            .Item.Send
        End With
                Set MItem = OutlookApp.CreateItem(olMailItem)
  
End Sub
Merci à tous pour votre Aide

Cordialement

Jerome