Bonjour,
Grâce à ce code du forum, j'envoi des données Excel, dans un document Word, pour imprimer celui-ci.
Tout fonctionne parfaitement, sauf un point précis:
lorsque je déclenche la macro pour impression, j'ai un message de Word qui me demande si je veux fermer le document et dans ce cas les données seront perdues, etc......
Comment désactiver ce message. J'ai essayé ApplicationDisplayAlerts=False, mais cela ne fonctionne pas.
Sub ImprimerDotation()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("word.application") 'ouvre session word
Set WordDoc = WordApp.Documents.Open("E:\Renouvellement de dotation.doc") 'ouvre document Word
WordApp.Visible = False 'word masqué pendant l'operation
WordDoc.Bookmarks("DateRemiseFeuille").Range.Text = Range("B6").Text
WordDoc.Bookmarks("Médicament").Range.Text = Range("B7").Text
WordDoc.Bookmarks("Service").Range.Text = Range("B4").Text
WordDoc.Bookmarks("Réserve").Range.Text = Range("B8").Text
WordApp.Visible = True 'affiche le document Word
WordDoc.PrintOut 'imprime le document
application.wait (now+timevalue('00:00:03'))
WordDoc.Close False 'ferme le document word sans sauvegarder les données
WordApp.Quit 'ferme la session Word
End Sub
Merci
Grâce à ce code du forum, j'envoi des données Excel, dans un document Word, pour imprimer celui-ci.
Tout fonctionne parfaitement, sauf un point précis:
lorsque je déclenche la macro pour impression, j'ai un message de Word qui me demande si je veux fermer le document et dans ce cas les données seront perdues, etc......
Comment désactiver ce message. J'ai essayé ApplicationDisplayAlerts=False, mais cela ne fonctionne pas.
Sub ImprimerDotation()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("word.application") 'ouvre session word
Set WordDoc = WordApp.Documents.Open("E:\Renouvellement de dotation.doc") 'ouvre document Word
WordApp.Visible = False 'word masqué pendant l'operation
WordDoc.Bookmarks("DateRemiseFeuille").Range.Text = Range("B6").Text
WordDoc.Bookmarks("Médicament").Range.Text = Range("B7").Text
WordDoc.Bookmarks("Service").Range.Text = Range("B4").Text
WordDoc.Bookmarks("Réserve").Range.Text = Range("B8").Text
WordApp.Visible = True 'affiche le document Word
WordDoc.PrintOut 'imprime le document
application.wait (now+timevalue('00:00:03'))
WordDoc.Close False 'ferme le document word sans sauvegarder les données
WordApp.Quit 'ferme la session Word
End Sub
Merci
Dernière édition: