[VBA-E] Imprimer la page souhaitée d'un document word

**Geoffray** · 04/06/2006, 11h58

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

**AlainTech** · 04/06/2006, 12h19

Essaye:

Code :

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

Doc.PrintOut Pages:="2"

**SilkyRoad** · 04/06/2006, 12h21

bonjour

tu peux tester

Code :

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

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

sinon , il n'y a pas de probleme pour la fermeture du document . le soucis etait sans doute lié aux plantages

tu pourrais ajouter une gestion d'erreur pour refermer le document en cas de plantage

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
 
'
'
'
On Error GoTo Fin
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
 
Exit Sub
Fin: 'gestion d'erreur
Doc.Close False
WordApp.Quit
Set Doc = Nothing: Set WordApp = Nothing
End Sub

bonne journée
michel

**Geoffray** · 04/06/2006, 12h39

Merci à vous deux pour vos réponses,

J'ai essayé :

Code :

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

1
2
 
Doc.PrintOut Pages:="2"

Ca m'imprime toujours le document en entier.

Quant à :

Code :

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

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

J'obtiens une erreur d'exécution 5148 . Le nombre doit être compris entre -32765 et 32767.

Pas évident de manipuler word à partir d'excel

**SilkyRoad** · 04/06/2006, 12h47

rebonjour

effectivement si tu ne déclares pas la librairie Word, il faut remplacer la constante wdPrintFromTo par sa valeur

Fait un essai en utilisant une valeur qui doit etre entre 1 et 5 :
Si l'aide en ligne est bien faite ,commence par 3

1. wdPrintAllDocument
2. wdPrintCurrentPage
3. wdPrintFromTo
4. wdPrintRangeOfPages
5. wdPrintSelection

Code :

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

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

bon apres midi
michel

**SfJ5Rpw8** · 04/06/2006, 12h51

pour utiliser les constantes word... préfixes les par WORD. ..:

Code :

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

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

**ouskel'n'or** · 04/06/2006, 12h52

Essaie ça. Au lieu de désigner la page à imprimer, place sur la page et imprime la page courante.

Code :

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

1
2
3
4
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="2"
    Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
        wdPrintDocumentContent, Copies:=1     ', Pages:="", PageType:=wdPrintAllPages, _
        Collate:=True, Background:=True, PrintToFile:=False

En remarque les paramètres facultatifs

A tout hasard, j'ai l'impression que ton problème est ailleurs

A+

**Geoffray** · 04/06/2006, 13h02

La solution de Skillroad fonctionne

effectivement si tu ne déclares pas la librairie Word, il faut remplacer la constante wdPrintFromTo par sa valeur

Fait un essai en utilisant une valeur qui doit etre entre 1 et 5 :
Si l'aide en ligne est bien faite ,commence par 3

1. wdPrintAllDocument
2. wdPrintCurrentPage
3. wdPrintFromTo
4. wdPrintRangeOfPages
5. wdPrintSelection

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

Merci beaucoup, je testerai également les propositions de bbil et ouskel'n'or.

Je suis très content d'avoir découvert ce forum et sa communauté

Bonne journée

**Geoffray** · 09/06/2006, 22h12

Bonsoir,

Dès lors que je remplace le "2" par ma variable qui s'appelle NumPage, mon code plante.

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
Dim w
Set w = CreateObject("Word.Application")
.
.
Case "doc"
                    If Dir(CheminFichier) <> "" Then
                        Set Doc = w.Documents.Open(Filename:=CheminFichier)
                        w.Visible = True
                        Doc.PrintOut Range:=3, From:="2", To:="2"      
                        Doc.Close False
                        w.Quit
                        'Set Doc = Nothing
                    Else
                        MsgBox "Chemin ou fichier introuvable."
                    End If
.
.

J'ai essayé plusieurs solutions telles que : From:="NumPage", To:="NumPage" ,
From:=" & NumPage & ", To:=" & NumPage & " ou encore From:=NumPage, To:=NumPage. Aucune de ces solutions ne fonctionne.

Merci d'avance pour vos propositions.

Bonne soirée Geoffray

**SfJ5Rpw8** · 09/06/2006, 22h24

essai :

Code :

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

doc.PrintOut , Range:=Word.wdPrintFromTo, From:=CStr(Numpage), To:=CStr(Numpage)

**Geoffray** · 09/06/2006, 22h30

Ca me renvoit une erreur d'éxécution 424 : objet requis, dommage !

Ca signigifie quoi Cstr sinon ?

**SfJ5Rpw8** · 09/06/2006, 22h59

si tu n'as pas coché la référence à word .. remplace Word.wdPrintFromTo par 3.. comme dit plus haut..

ton document word s'ouvre bien ?

Cstr.. permet de transformer une valeur numérique en chaine...

**Geoffray** · 09/06/2006, 23h18

Comme dit plus haut j'ai bien fait

Code :

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

1
2
 
Doc.PrintOut Range:=3

Mon document word s'ouvre bien et la page souhaitée est correctement imprimée quand je fais ca

Code :

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

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

Par contre tu l'auras compris je ne veux pas toujours imprimer la page 2 d'un document word et la ca bloque des lors que je place une variable et je trouve ca très bizarre

**SfJ5Rpw8** · 09/06/2006, 23h32

et ?

Code :

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

doc.PrintOut , Range:=3, From:=CStr(Numpage), To:=CStr(Numpage)

**AlainTech** · 09/06/2006, 23h37

A tout hasard et sans avoir testé...

Code :

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

Doc.PrintOut Range:=4, Pages:=Chr(34) & NumPage & Chr(34)

**Geoffray** · 09/06/2006, 23h52

Super

Code :

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

Doc.PrintOut Range:=4, Pages:=Chr(34) & NumPage & Chr(34)

Ne marche pas et me renvoie une erreur 5441

Par contre

Code :

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

1
2
 
doc.PrintOut , Range:=3, From:=CStr(Numpage), To:=CStr(Numpage)

Marche très bien et ca c'est une bonne nouvelle ca va me faciliter grandement la vie. Merci les modo de vous être penché sur mon cas

**AlainTech** · 10/06/2006, 08h29

Dans ce cas, je pense que

Code :

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

Doc.PrintOut Range:=4, Pages:=Cstr(NumPage)

devrait fonctionner aussi.
Eventuellement avec une virgule après PrintOut.

**Geoffray** · 10/06/2006, 11h56

Bonjour,

J'ai testé

Doc.PrintOut Range:=4, Pages:=Chr(NumPage)

et

Doc.PrintOut, Range:=4, Pages:=Chr(NumPage)

les deux ne marchent pas. Mais la solution de bbil me convient tout à fait.

Mon but était de créer une macro capable de gérer l'impression de fichiers excel et word avec la contrainte de définir des recto et des verso. Tout ca en vue de réaliser des brochures plus efficacement.

Je vous fais part de mon travail qui est également le votre Macro Impression V2.zip
Merci à tous
Geoffray

**SfJ5Rpw8** · 10/06/2006, 12h06

non pas chr .. CStr... alain ne devais pas être bien réveillé ce matin

**Geoffray** · 10/06/2006, 12h12

Effectivement ca marche avec

Code :

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

1
2
 
Doc.PrintOut, Range:=4, Pages:=CStr(NumPage)

[VBA-E] Imprimer la page souhaitée d'un document word

Macros et VBA Excel

Discussions similaires

Partager

Partager