Discussion :

[Basicnav]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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....

[Basicnav]

Bonjour,

j'ai fini par trouver :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
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