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 : 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 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