Panne de Génération de document word
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:
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:
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