IMPRIMER PLUSIEURS DOCUMENTS WORD DEPUIS VBA ACCESS

Question

Salut,

Je fais une application Access et dans un des modules j'aimerai pouvoir lancer l'impression de plusieurs documents word.

Je cr&#233;e d'abord un fichier:

'cr&#233;ation de l'objet Word
Set wdapp = CreateObject("Word.application")
'on rend le document invisible &#224; l'utilisateur
wdapp.Visible = False
'on ouvre un document Word depuis le template (lettre type)
wdapp.Documents.Add "chemin/fichier.doc"

Ensuite je remplis mon document word via des signets.
Puis j'imprime:

 wdapp.PrintOut

Puis je ferme le document sans le sauvegarder
 wdapp.Documents.Close False

Tout ce script je le rentre dans une boucle parce que j'ai plusieurs documents diff&#233;rents &#224; imprimer.

Le souci est qu'apr&#232;s la premi&#232;re impression du fichier, il veut absolument m'ouvrir le fichier suivant sous Word, et visiblement le fichier courant n'a pas &#233;t&#233; ferm&#233; du coup appara&#238;t la fen&#234;tre d'ouverture en lecture seule de Word...
Je n'arrive pas &#224; faire en sorte qu'il m'imprime tout b&#234;tements mes documents l'un apr&#232;s l'autre sans jamais voir le doc sous word...

Quelqu'un aurait-il une solution?

Merci!!

Djobi Djoba · Answer

De mon c&#244;t&#233; avec ce code, ca marche

Private Sub Commande221_Click()

Dim Fich As String                                                           
Dim oWdApp As Object                                                         
Dim n_copies, i As Integer
n_copies = InputBox("nombre de copie:", "Impression")
Fich = "[file://Signel-main/signel C:]\Fichier.doc"
Set oWdApp = CreateObject("Word.Application")
oWdApp.Documents.Open Fich



For i = 1 To n_copies
    oWdApp.Visible = False
    oWdApp.PrintOut Copies:=n_copies                                 
Next
oWdApp.Quit
Set oWdApp = Nothing


End Sub

IMPRIMER PLUSIEURS DOCUMENTS WORD DEPUIS VBA ACCESS

1 réponse

Discussions similaires