bonjour,

J'ai introduit le code afin de générer deux types de documents Word à partir de mon fichier excel. Voici les codes:
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
Public Sub GenerateIMD()
Set app_Word = CreateObject("Word.Application")
Set doc_EVT = app_Word.documents.Add(Template:=dot_EVT)
WriteAutotext "EVTBookMark01", "IMDReferences"
WriteAutotext "EVTBookMark02", "SITUATION"
WriteAutotext "EVTBookMark03", "MISSION"
WriteAutotext "EVTBookMark04", "DIRECTIONS"
WriteAutotext "EVTBookMark05", "Annexes"
app_Word.Visible = True
End Sub
 
 
Public Sub GenerateDGEUMSReport()
Set app_Word = CreateObject("Word.Application")
Set doc_EVT = app_Word.documents.Add(Template:=dot_EVT)
WriteAutotext "EVTBookMark01", "DGReportSummary"
WriteAutotext "EVTBookMark02", "Contribute2Planning"
WriteAutotext "EVTBookMark03", "Contribute2Capability"
WriteAutotext "EVTBookMark04", "Contribute2ComprAppr"
WriteAutotext "EVTBookMark05", "Contribute2ExtRel"
WriteAutotext "EVTBookMark06", "EUMSGeneralInformation"
WriteAutotext "EVTBookMark07", "DGEUMSAnnexes"
app_Word.Visible = True
End Sub
Et quand j'appuie sur le bouton déclenchant la génération, le système se plante et m'indique un problème dans l'instruction après With:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub WriteAutotext(c_BookmarkName As String, c_Autotext As String)
  With doc_EVT
    .AttachedTemplate.BuildingBlockEntries(c_Autotext).Insert Where:=.Bookmarks(c_BookmarkName).Range, RichText:=True
  End With
End Sub
Y a-t-il quelque chose que j'ai oublié?

Merci.

Pascal DANIELS