BOnjour a tous
Je fais un petit test d'automation avec word 2013 et VB 2013
lorsque je cliques sur le OK du msgbox puis sur fermer Word, il me demande pour enregistrer le document . Je dis NON et a ce moment apparaît une fenêtre
"Fichier utilisé par un autre utilisateur ou une autre application ( c:\users\....\normal.dom )"
voici le petit bout de code
si quelqu'un a une suggestion (correction ), elle sera la bien venue
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 Dim oWord As Word.Application Dim oDoc As Word.Document oWord = CreateObject("Word.Application") oDoc = oWord.Documents.Open(PathDoc & "\test.docx") oWord.Visible = True oDoc.Bookmarks.Item("MonSigneTest").Range.Text = "test" oWord.PrintOut() MsgBox("ici") oWord.Quit()
Partager