Bonjour,

J'utilise le publipostage vers word depuis maintenant pas mal de temps et j'aimerai aujourd'hui rajouter une fonction qui me serait très utile.

En fait, au lieu d'ouvrir le document Word créé après l'avoir enregistrer, j'aimerais qu'il soit directement imprimé avec l'imprimante utilisée par défaut sur le PC utilisé.

Voici mon code :

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
25
26
27
28
29
30
Dim wdapp As Object
Const CHEMIN_DOCUMENT As String = "\CONVOC_ENREGISTREES\"
Const WdGoToBookmark = -1
Const WdStory = 6
Set wdapp = CreateObject("Word.application")
' le code ci-dessous permet de faire apparaitre word en premier plan ou pas, false -> non et true -> oui
wdapp.Visible = False
'on ouvre le document
wdapp.Documents.Open CurrentProject.Path & "\CONVOC_MODELE\CONVOC.DOC"
 
With wdapp.ActiveDocument
    .Bookmarks("SignAdressage").Range.Text = SignAdressage
    .Bookmarks("SignDate").Range.Text = SignDate
    .Bookmarks("SignRapam").Range.Text = SignRapam
    .Bookmarks("SignMontant").Range.Text = SignMontant
    .Bookmarks("SignNbBov").Range.Text = SignNbBov
    .Bookmarks("SignLieuRDV").Range.Text = SignLieuRDV2
    .Bookmarks("SignHeureRDV").Range.Text = SignHeureRDV2
    .Bookmarks("SignDateRDV").Range.Text = SignDateRDV2
    ' je sauvegarde le fichier sous un autre nom
    wdapp.ActiveDocument.SaveAs CurrentProject.Path & CHEMIN_DOCUMENT & NomFichier & ".doc"
    ' je ferme le fichier
    wdapp.ActiveDocument.Close
    ' je ferme l'application
  End With
  wdapp.Visible = True
  wdapp.Documents.Open CurrentProject.Path & CHEMIN_DOCUMENT & NomFichier & ".doc"
 
  Set wdapp = Nothing
End Sub

Pouvez vous m'indiquer la commande à utiliser pour imprimer directement le document word créé ??

Merci d'avance et bon WE à tous.

Thomas