Discussion :

[capc93]

Bonjour,

je cherche à automatiser la génération d'email à partir d'excel en faisant un copier coller spécial image à partir d'une plage de données dans le mail.
voici ce que j'aimerai


mais avec la macro j'obtiens un erreur au niveau des lignes 33-36

rng.Move wdParagraph, 1
rng.Paste

et de façon aléatoire c'est à dire pas sur tous les postes de travail et pas tout le temps la même ligne.

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
Sub envoi_mail()
 
Dim i, j, cproc
 
Dim OL As Object, myItem As Object, wDoc As Object, rng As Object
 
 
j = Sheets("TCD").Range("F4").Value - 1
j = j + 5
 
' saisie de la procedure
 
cproc = InputBox("Saisir la procédure supervisée", "Saisie")
 
For i = 5 To j
 
    Sheets("final").Range("C23").Value = Sheets("TCD").Range("F" & i).Value
    Sheets("final").Range("C6:D38").CopyPicture
 
    Set OL = CreateObject("Outlook.Application")
    Set myItem = OL.CreateItem(olMailItem)
    Set wDoc = myItem.GetInspector.WordEditor
 
    With myItem
 
        .To = Sheets("final").Range("C23").Value
        .Subject = "Retour sur la supervision managériale " & cproc
        .body = "Bonjour, Voici les résultats de la dernière supervision " & cproc & ". Le premier tableau concerne le lot de dossiers qui a été vu en supervision dans sa totalité, puis le second tableau affiche les résultats sur les dossiers que vous avez contrôlé."
        .Display
 
        Set rng = wDoc.Content
 
            rng.InsertParagraphAfter
            rng.Move wdParagraph, 1
            rng.Paste
            rng.Move wdParagraph
    End With
 
Next i
 
End Sub

Y'a til une façon de modifier le code pour que ça passe dans tous les cas?
Je vous remercie par avance de votre retour!