Bonjour,
Je souhaitais à partir d'un .DOT copier et coller le contenu mais avec les polices.
En fait le code joint marche bien mais je perds le gras et les couleurs des textes.
Merci

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
   Dim monOutl As Outlook.Application
    Dim message As Outlook.MailItem
    Dim wordapp As Word.Application
    Dim worddoc As Word.Document
 
    'On Error Resume Next
    Set monOutl = New Outlook.Application
    Set message = monOutl.CreateItem(olMailItem)  '"C:\Documents and Settings\pode10641\Mes documents\modele2.oft")
    message.Body = ""
    message.To = "toto"
    message.Subject = "test"
    Set wordapp = CreateObject("Word.Application")
    Set worddoc = GetObject("D:\modeleOD2.dot", "Word.document")
    worddoc.Application.Visible = False
    EcrireDansSignet "Signet1", "bonjour", worddoc
 
    worddoc.Select
    Selection.CopyFormat
 
    message.BodyFormat = olFormatRichText
 
    message.Body = ActiveDocument.Content
 
    message.Display
 
    worddoc.Close
    Set worddoc = Nothing
    wordapp.Quit
    Set wordapp = Nothing