Bonjour,

Je suis débutant en VBA. J'ai créé 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 envoyé 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:

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
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 précieuse réponse