[XL-2016] insertion d'une partie de tableau dans un mail VBA

insertion d'une partie de tableau dans un mail VBA

bonjour
mon problème est le suivant
je suis en train de créer une macro qui prend des notes dans un tableau et qui les envois au bon destinataire
sauf que je n'arrive pas a copier mon tableau dans mon mail a partir de ma macro et je ne sais pas comment reussir a faire une boucle pour que chaque destinataire et sa ligne d'information et pas une autre
merci d'avance
Baptiste

voici mon code si certain arriverai a m'aider

Code:

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 examen()
    Dim Outapp As Object
    Dim OutMail As Object
    Dim cell As Range
    Dim i As Integer
    Dim N As Integer
    Dim sTemplate As String
    Dim Msg, Subj As String
 
       Application.ScreenUpdating = False
    Set Outapp = CreateObject("Outlook.Application")
 
sTemplate = Sheets("Feuil2").Shapes(1).TextFrame2.TextRange.Text
 
N = Cells(11, 10)
 
N = N + 1
 
For i = 2 To N
 
Msg = Msg & sTemplate & vbCrLf
 
ActiveSheet.Range("B1:H1;Bi:Hi").Select
ActiveWorkbook.EnvelopeVisible = True
Sheets("Feuil1").Range("B1:H1;Bi:Hi").Select
Selection.Copy
Msg = Msg & "..." & vbCrLf
Msg = Msg & "..." & vbCrLf
Msg = Msg & "..." & vbCrLf
Msg = Msg & "..." & vbCrLf
Msg = Msg & "..." & vbCrLf
 
 
 
Set OutMail = Outapp.CreateItem(0)
    With OutMail
        .To = Cells(1, i)
        .Subject = "Resultats Cappec n°" & Cells(14, 10)
        .Body = Msg
        .Display
 
 
    End With
 
Next
 
 
End Sub

Salut,

avant tout, quand tu mets du code, pense à utiliser la balise Code. C'est un #. Ton message sera plus lisible et donc plus lu !

Pour faire ce que tu veux, je te propose un peu de lecture :
http://www.rondebruin.nl/win/s1/outlook/mail.htm, surtout cette section "Mail Range or Selection"

En espérant que tu trouveras ton bonheur.

1 pièce(s) jointe(s)

QCM VBA impossible à résoudre

Bonjour,
je suis face à un QCM VBA avec des réponses assez imbriquées et je n'arrive pas trop à m'en sortir.
L'un d'entre vous expert sur VBA aurait t-il la réponse aux questions suivantes ? Pièce jointe 386243