problème pour imprimer seulement quelques pages d'un fichier Word à partir d'Excel

Bonjour à tous

Sur la base d'un fichier d'Excelabo, et avec l'aide de Michdenis et
de quelques autres contributeurs de ce forum, j'ai un programme pour
imprimer, à partir d'Excel, un fichier Word et de le refermer.
Une petite difficulté subsiste néanmoins, pour arriver à n'imprimer
qu'un nombre partiel de page du fichier Word, à savoir de la page 2 à
la page 4, par exemple; l'emploi de la formule Word : 2-4 ne
fonctionne pas, et imprime le fichier en entier.
Peut-être connaitriez-vous une solution pour résoudre ce problème?
Ci-dessous le code du programme.

Merci à tous

********************
Sub ImprimerDossierWord()

Dim WordApp As Object
Dim Doc As Object
Dim NomFichier As String

NomFichier = "C:Documents and SettingsAwerelMes
documentszozozo.doc"

If Dir(NomFichier) <> "" Then
Set WordApp = CreateObject("Word.Application")
Set Doc = WordApp.Documents.Open(Filename:=NomFichier)
Doc.PrintOut Background:úlse, Copies:=1, Pages:="2-3"
Doc.Close False
WordApp.Quit
Set Doc = Nothing: Set WordApp = Nothing
Else
MsgBox "Chemin ou fichier introuvable."
End If

End Sub

Bonjour Antoine,

Essaie plutôt :

Doc.PrintOut , Range:=wdPrintRangeOfPages, Pages:="2-3"

ou bien :

Doc.PrintOut , Range:=wdPrintFromTo, From:="2", To:="3"

Fallait venir rendre une petite visite aux Wordiens !! ;))

Circé
http://faqword.fr

Antoine a formulé ce samedi :

Bonjour à tous

Sur la base d'un fichier d'Excelabo, et avec l'aide de Michdenis et de
quelques autres contributeurs de ce forum, j'ai un programme pour
imprimer, à partir d'Excel, un fichier Word et de le refermer.
Une petite difficulté subsiste néanmoins, pour arriver à n'imprimer qu'un
nombre partiel de page du fichier Word, à savoir de la page 2 à la page
4, par exemple; l'emploi de la formule Word : 2-4 ne fonctionne pas, et
imprime le fichier en entier.
Peut-être connaitriez-vous une solution pour résoudre ce problème?
Ci-dessous le code du programme.

Merci à tous

********************
Sub ImprimerDossierWord()

Dim WordApp As Object
Dim Doc As Object
Dim NomFichier As String

NomFichier = "C:Documents and SettingsAwerelMes documentszozozo.doc"

If Dir(NomFichier) <> "" Then
Set WordApp = CreateObject("Word.Application")
Set Doc = WordApp.Documents.Open(Filename:=NomFichier)
Doc.PrintOut Background:úlse, Copies:=1, Pages:="2-3"
Doc.Close False
WordApp.Quit
Set Doc = Nothing: Set WordApp = Nothing
Else
MsgBox "Chemin ou fichier introuvable."
End If

End Sub

Fallait venir rendre une petite visite aux Wordiens !! ;))
Si Sarko lit cela, il pourrait croire à du racolage passif :o)

Circé
http://faqword.fr

Si Sarko lit cela, il pourrait croire à du racolage passif :o)

Si Sarko lit cela, il pourrait croire à du racolage passif :o)

Faudrait bien qu'il m'explique comment se fait-il qu'au pays de
"Liberté, égalité, fraternité", ils passent des lois qui rendent les
jeunes moins égaux que les vieux.