Macro Excel impression Word

Version imprimable

Bonjour à tous,

Le contexte:
- un fichier Excel contenant le nom des salariés et les informations servant à générer leurs fiches de salaires
- un fichier Word qui génère le publipostage en utilisant le fichier Excel

Une fois le fichier de publipostage fait, il est enregistré en document Word.

J'ai besoin de pouvoir choisir la fiche de paie à imprimer.
J'ai fait un petit formulaire dans le fichier Excel qui récupère la liste des salariés et qui envoie au fichier Word le numéro de ligne (-1) comme numéro de page à imprimer.

J'espère être clair, voici le code:
Code:

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 Private Sub Imprimer_Click() Dim dossier As String Dim cible As Workbook Dim Val1 As Variant Dim lg Dim lp Dim chemin As String Dim chemin_complet As String Dim ficpaye As String Dim oApp As Object Dim Doc As Word.document Val1 = LstAPS.Value chemin = ThisWorkbook.Path ficpaye = "Fiches de paie.docx" chemin_complet = chemin & "\" & ficpaye Set oApp = CreateObject("Word.Application") Set Doc = GetObject(chemin_complet) 'Set Doc = oApp.documents.Open(chemin_complet) oApp.Visible = False Set cible = ThisWorkbook dossier = Val1 With cible.Worksheets("Salaires") lg = .Columns("A").Find(dossier, , xlValues, xlWhole).Row lp = lg - 1 End With ' MsgBox lp Doc.PrintOut Range:=wdPrintRangeOfPages, Pages:=CStr(lp) & "-" & CStr(lp) 'Doc.PrintOut copies:=1, Range:=wdPrintRangeOfPages, Pages:=lp & "-" & lp End Sub
Malheureusement, le résultat n'est pas là. Selon le Printout utilisé, j'ai soit l'impression complète du fichier (1200 salariés...), soit une page blange ??
Erreur de syntaxe ? Mauvais code ?
Je tourne un peu en rond.

Merci de vos propositions ou conseils.

Cordialement,

Fred

Salut, en reprenant qqch d'équivalent ici.

Code:

1
2
3
4
5
6
Dim sPages As String
	'.....
    ' Imprimer les Pages 2 à 3 et la Page 5
    sPages = "2-3,5"
    ThisDocument.PrintOut outputFilename:=sNomFichierPS, PrintToFile:=True, Background:=False, Range:=wdPrintRangeOfPages, Pages:=sPages
	'.....

A toi de l'adapter à ton contexte.

Excel Word page choisie

Salut,

J'ai fait une adaptation mais ça ne fonctionne pas. Un, il sort toujours la 1ere page en impression et deux, ce n'est pas le bon de fichier en sortie.

Code:

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
Private Sub Imprimer_Click()
Dim dossier As String
Dim cible As Workbook
Dim Val1 As Variant
Dim lg
Dim lp
Dim chemin As String
Dim chemin_complet As String
Dim ficpaye As String
Dim oApp As Object
Dim Doc As Word.document
 
Val1 = LstAPS.Value
chemin = ThisWorkbook.Path
ficpaye = "Fiches de paie.docx"
chemin_complet = chemin & "\" & ficpaye
 
Set oApp = CreateObject("Word.Application")
Set Doc = GetObject(chemin_complet)
'Set Doc = oApp.documents.Open(chemin_complet)
 
 
Set cible = ThisWorkbook
dossier = Val1
    With cible.Worksheets("Salaires")
        lg = .Columns("A").Find(dossier, , xlValues, xlWhole).Row
        lp = lg - 1
    End With
 
Doc.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=CStr(lp)
Doc.PrintOut outputFilename:=LstAPS.Value & "-" & ficpaye, PrintToFile:=True, Background:=False, Range:=wdPrintCurrentPage
 
End Sub

une idée ?

Cordialement,

Fred

30/03/2016, 17h20
Fred_rt

imprimer page choisie excel-word

Salut,

Bon, j'ai complétement changé la façon de faire. Le fichier Word étant vraiment trop lourd, le process prend trop de temps.

Le problème ne se pose plus.

Merci à tous.

Cordialement,

Fred