Problème VBA sous outlook

Fermé
LANGAZOU Messages postés 95 Date d'inscription vendredi 16 janvier 2015 Statut Membre Dernière intervention 8 novembre 2015 - Modifié par LANGAZOU le 3/03/2015 à 10:08
Bonjour,

Je suis débutant en VBA. J'ai créer sous Excel une macro qui exécute les étapes suivantes:

- copier des champs Excel
- ouvrir word
-coller ces champs sur word (en obtenant un format image)
-enregistre ensuite ce formulaire word dans un dossier.

ce formulaire enregistré sera par la suite envoyer par mail à leur destinataires. y'a t-il un code qui peut me rajouter les tâches suivantes:

- il détecte le mail déjà ouvert sous outlook
- taper "répondre à tous"
- ajouter un objet
- ajouter un contenu
- ajouter des destinataires en copie s'ils n'existaient pas
- mettre en jointure le fichier déjà enregistré dans le dossier.

ci-dessous mon code:

Sub Formulaire()

Dim Dte As Date
Dim j As Byte, m As String
Dim a As Integer
Dim way As Variant
Dim way1 As Variant

Dte = Sheets("OFFRE DAT").Cells(16, 3)
way = Sheets("DAT").Cells(3, 21)
way1 = Sheets("DAT").Cells(3, 20)

j = Day(Dte)
j1 = Format(j + 1, "dd")

mee = Sheets("DAT").Cells(3, 1)
m = Format(mee, "mmmm")
a = Year(Dte)

Dim oWdApp As Object
Dim oWdDoc As Object

ligne = ActiveCell.Row

Sheets("OFFRE DAT").Activate
relation = Sheets("OFFRE DAT").Cells(9, 5)


If Len(Dir(way1, vbDirectory)) = 0 Then
MkDir way1

End If

If Len(Dir(way, vbDirectory)) = 0 Then
MkDir way
End If

Set oWdApp = CreateObject("Word.Application")
Set oWdDoc = oWdApp.Documents.Open("\\Srv-p-fichier\sdm\Tréso\Tréso Devise\Template placement.docx")
oWdApp.Visible = True
Range("A1:H50").Copy
oWdApp.Selection.PasteAndFormat (13)
Application.CutCopyMode = False
oWdApp.Visible = True
oWdApp.Selection.TypeParagraph
oWdApp.ActiveDocument.SaveAs Filename:=way & "DAT" & "_" & relation & "(" & j1 & "-" & m & "-" & a & ")" & ".docx"

End Sub


Merci pour votre réponse.