[VBA-E] Imprimer la page souhaitée d'un document word
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:
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