Discussion :

[xbooster]

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

[kiki29]

Salut, regarde ici ?

PS : Balise ton code Stp

[Invité]

Bonjour,
tu fais plein de select et tu ne les utilise pas! puisque du fais des

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
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")

ce qui est très bien!
tu fais un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sheets("S46-12-11").Range("B2:Q54").Select
Selection.Copy
Sheets("S46-12-11").Range("B2:Q54").Copy 'ça c'est mieux!

mais pas de Paste?????

et pour finir je préfère

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
With Sheets("S46-12-11")
.Introduction = Msg
.Item.To = EmailAddr
.Item.CC = EmailAddrCC
.Item.Subject = Subj
.Item.Display
.Item.Send
End With

[xbooster]

Merci kiki29 pour t'a réponse, mais j'ai déjà essayer les macro sur cette page et ça me renvoyer vers des erreurs.

Merci rdurupt de ton aide donc j'ai modifier la macro il me met une nouvelle erreur maintenant je vous mes le bout de macro avec l'erreur en rouge.


Voici le script modifier avec la nouvelle 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 POINT_PROD_1()

  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_PROD = 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_PROD & "." & vbCrLf
      
      

      Sheets("S46-12-11").Range("B2:Q54").Select
      Selection.Copy
      Sheets("S46-12-11").Range("B2:Q54").Copy
      Msg = Msg & vbCrLf
      Msg = Msg & TEXTE_APRES & vbCrLf
      Msg = Msg & vbCrLf
      Msg = Msg & "Cordialement" & vbCrLf
      Msg = Msg & "Jerome Barbier" & vbCrLf
      Msg = Msg & "Analyste IDP Vigie" & vbCrLf
      Msg = Msg & vbCrLf
      
      With Sheets("S46-12-11")
            .Introduction = Msg
            .Item.To = EmailAddr
            .Item.CC = EmailAddrCC
            .Item.Subject = Subj
            .Item.Display
            .Item.Send
        End With
                Set MItem = OutlookApp.CreateItem(olMailItem)
  
End Sub

En tout cas merci pour votre aide

Cordialement

Jerome