Bonjour,
j'aimerai imprimer un document word plusieurs fois selon les cas puis fermer l'application
je voudrai donc savoir comment peut on attendre la fin d'impression pour fermer l'application.
j'utilise cette procédure pour ouvrir et imprimer :
Message_Texte = InputBox("Veuillez saisir le nombre d'impression", "IMPRESSION")
Contrôle_Message_Texte = IsNumeric(Message_Texte)
If Contrôle_Message_Texte = False Then
Message_Texte = MsgBox("Veuillez entrer une valeur numérique", vbCritical)
Else
Nombre_Impression_Fiches = Message_Texte
Set AppWord = CreateObject("Word.Application")
Set DocWord = AppWord.Documents.Open("C:\Renseignements.doc", ReadOnly:=True)
AppWord.Visible = False
AppWord.PrintOut Copies:=Nombre_Impression_Fiches
'
AppWord.quit
' Set AppWord = Nothing
' Set DocWord = Nothing End If
Si je mets directement après mon instruction d'impression les 3 lignes en bleu j'obtiens un message d'alerte me signalant que si je ferme Word mon impression sera stopée.
Voilà donc mon problème comment faire pour attendre la fin d'impression avant de commander la fermeture de l'application WORD.
Merci d'avance.