Commande impression document Word

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

degap05

XLDnaute Impliqué
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
511
Retour