aide sur une macro excell

[yober]

hello

je cale sur une macro excel
j'ai un tablea excell qui sert à collecter des info qui sont utilisées pour compléter 3 documents Word.
je voudrais un bouton pour imprimer l'un des document Word. comment faire ?
quelqu'un peut m'aider, s'il vous plait ?

[pepsilite]

je sais pô

[yober]

j'ai fais ça :

Code : Tout sélectionner

Sub ouvrirDocWord_Impression()
'necesite d'activer la reference Microsoft Word xx.x Object Library
Dim appWrd As Word.Application
Dim docWord As Word.Document
Dim Fichier1 As String

Fichier1 = "C:\LP test.doc"
Fichier2 = "C:\Offre LP test.doc"

Set appWrd = CreateObject("Word.Application")
appWrd.Visible = False 
Set docWord = appWrd.Documents.Open(Fichier1)

docWord.PrintOut 
docWord.Close 

Set docWord = appWrd.Documents.Open(Fichier2)

docWord.PrintOut 
docWord.Close 

Range("B8:E8").Select
    Selection.ClearContents
    Range("B13:D13").Select
    Selection.ClearContents
    
'appWrd.Quit 'fermer la sessionWord (mais cela interromp l'impression -> prob à résoudre)

mais quand la macro ferme word, ça interromps l'impression... pas cool de le faire à la main à chaque fois

mais merci quand même

[pepsilite]

l'impression c'est la commande docWord.PrintOut et la fermeture le docWord.Close ?

[yober]

l'impression c'est la commande docWord.PrintOut et la fermeture le docWord.Close ?

oui, pour imprimer et fermer le .doc
appWrd.Quit pour quitter Word (c'est là que ça plante l'impression)

[pepsilite]

tu ne peux pas mettre un delay, style pause, sleep ou je ne sais quoi?

[Underground78]

Ou un truc du genre "wait for" peut-être ?

[yober]

c'est une idée.
je vais voir

[yober]

j'ai trouvé ça :

Code : Tout sélectionner

Application.Wait (Now + TimeValue("0:00:04"))

ça marche à partir de 4 secondes de pose.

Merci

[Underground78]

Cool !

[pepsilite]

ben voilà ...