Bonjour,
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 m'ajouter et simplifier 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
- mettre en jointure le fichier déjà enregistré dans le dossier.
ci-dessous mon code:
Merci pour votre précieuse réponse.
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 m'ajouter et simplifier 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
- mettre en jointure le fichier déjà enregistré dans le dossier.
ci-dessous mon code:
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 précieuse réponse.