Imprimer doc word depuis excel

Bonjour,

je cherche, je cherche, mais sans succès...

Voilà, j'ai un bout de code qui ouvre un doc word, insère du texte à la place des signets dans word et doit imprimer ce document puis le refermer sans enregistrer.
Je bloque sur deux points, la sélection des imprimante pour word et le second la fermeture sans enregister.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Private Sub CommandButton2_Click()
On Error Resume Next
    Dim WordApp As Object
    Dim WordDoc As Object
    Dim n As Integer
 
 
        Set WordApp = CreateObject("Word.Application")            'ouvre session word
        Set WordDoc = WordApp.Documents.Open("G:\Etiquette.doc")  'ouvre document Word
        WordApp.Visible = False                                   'word masqué pendant l'operation
 
 
'MsgBox ListBox1.List(ListBox1.ListIndex, 1)
        WordDoc.Bookmarks("Texte1").Range.Text = ListBox1.Value                           'Remplace Signet Texte1 dans wd par colonne1 listbox
        WordDoc.Bookmarks("Texte2").Range.Text = ListBox1.List(ListBox1.ListIndex, 1)     'Remplace Signet Texte2 dans wd par colonne2 listbox
        n = Application.InputBox("nombre de copies", "Copies", Type:=1)                   'Ouvre inputbox nb de copies, impose saisie de nombre
 
        Application.Dialogs(wdDialogPrinterSetup).Show                                    'Ouvre boite sélection imprimante
        WordApp.Visible = True                                                            ' Affiche le doc word
        WordApp.Document.PrintOut Copies:=n
 
 
 
Call CloseWord
 
End Sub
 
 
Sub CloseWord()
 
Word.Application.DisplayAlerts = wdAlertsNone
WordApp.Documents.Close False
End Sub

Pouvez vous m'aider, merci....

Private Sub CommandButton2_Click() On Error Resume Next Dim WordApp As Object Dim WordDoc As Object Dim n As Integer Set WordApp = CreateObject("Word.Application") 'ouvre session word Set WordDoc = WordApp.Documents.Open("C:\Etiquette.doc") 'ouvre document Word WordApp.Visible = False 'word masqué pendant l'operation WordDoc.Bookmarks("Texte1").Range.Text = ListBox1.Value 'Remplace Signet Texte1 dans wd par colonne1 listbox WordDoc.Bookmarks("Texte2").Range.Text = ListBox1.List(ListBox1.ListIndex, 1) 'Remplace Signet Texte2 dans wd par colonne2 listbox WordApp.Application.ActivePrinter = "TEC B-SX4" n = Application.InputBox("nombre de copies", "Copies", Type:=1) 'Ouvre inputbox nb de copies, impose saisie de nombre WordApp.Visible = True 'Affiche le doc word WordApp.ActiveDocument.PrintOut Copies:=n 'Imprime le doc sur imprimante par défaut définie : ici B-SX4 WordApp.Application.ActivePrinter = "\\FRA3035\PRT62NB015" ' Repositonne l'imprimante par défaut d'origine WordApp.ActiveDocument.Close False 'Ferme le document sans enregister WordApp.DisplayAlerts = wdAlertsNone WordApp.Quit End Sub