Bonjour à vous, je souhaiterais créer un bouton qui permettrait l'impression de plusieurs documents word et excel.

Pour cela j'ais farfouillé un peu partout et suis arrivé à ce bout de code:

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
35
36
37
38
39
40
41
42
Private Sub CommandButton4_Click()
 
Dim InstanceWord As New Word.Application
Dim appWD As Word.Application
 
Dim strFichier As String
Dim objWord As New Word.Application
Application.DisplayAlerts = True
 
strFichier = "L:\document1.doc"
Application.DisplayAlerts = True
 
' ouvrir un document Word
objWord.Documents.Open strFichier
 
' rendre Word visible
objWord.Visible = False
 
ActiveDocument.PrintOut
 
' fermer le document
objWord.Documents(1).Close
 
' quitter l'application Word
objWord.Quit
 
' libérer la mémoire
Set objWord = Nothing
 
Application.DisplayAlerts = False
 
 
'ChDir "L:\"
 
'    Workbooks.Open Filename:="L:tableur3.xls"
'ActiveWorkbook.PrintOut
 
'    Workbooks.Open Filename:="L:\Tableur.xls"
'ActiveWorkbook.PrintOut
 
 
End Sub
( les chemins et les noms de fichiers sont corrects. l'impression des fichiers excels fonctionne aussi )

Seulement, pour le document word, il m'affiche la boite de dialogue concernant la lecture seule, dont j'aimerais me passer ( ce code doit pouvoir fonctionner malgré que le document soit ouvert )

Sachant que j'exécute ceci sur une feuille d'un classeur excel, comment imprimer aussi la feuille en question, mais pas les autres ?

Merci de votre aide