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
rng.Move wdParagraph, 1
rng.Paste
mais de façon aléatoire c'est à dire pas sur tous les postes et pas tout le temps la même ligne.
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!
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
rng.Move wdParagraph, 1
rng.Paste
mais de façon aléatoire c'est à dire pas sur tous les postes et pas tout le temps la même ligne.
VB:
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 SubY'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!