Bonjour,

Voilà quelques jours que je cherche en vain de lancer à partir d'Excel l'impression d'une page se trouvant dans un document word.

Le code ci-dessous devrait imprimer uniquement la page 2 du document word. Malheureusement il m'imprime le document en entier

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
 
Sub ImprimerDossierWord()
 
Dim WordApp As Object
Dim Doc As Object
Dim NomFichier As String
Dim Range As Object
 
NomFichier = "D:\Documents de Geoffray\Geoffray\Impression automatique\test1.doc"
 
If Dir(NomFichier) <> "" Then
Set WordApp = CreateObject("Word.Application")
Set Doc = WordApp.Documents.Open(Filename:=NomFichier)
Doc.PrintOut , Pages = "2"
Doc.Close False
WordApp.Quit
Set Doc = Nothing: Set WordApp = Nothing
Else
MsgBox "Chemin ou fichier introuvable."
End If
 
End Sub
Par ailleurs le document word a tendance a rester en arrière plan. Je pense pourtant utiliser les bonnes commandes pour "tuer l'objet". Peut-être que ce problème intervient parce que lors de mes essais le code plante ?

Si vous avez une solution je vous en serai très reconnaissant

Merci. Geoffray