Discussion :

[JPDU92]

En fait, je n'arrive pas à faire fonctionner cette macro, une erreur me dit (voir piéces jointes) Alors, je ne sais pas quoi faire ! Et puis je ne sais pas si le reste est bon mais je cherche. Merci d'avance de m'aider...

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
31
32
33
34
35
36
37
38
Sub test()
 
Dim NbPage
Dim docWord As Word.Document
Dim appWord As Word.Application
 
    ActiveWorkbook.Save
    DoEvents
 
    Set docWord = appWord.documents.Open(Filename:="H:\JP\travail excel\NOUVEAU.doc")
    DoEvents
 
    'Fusion
    With docWord.MailMerge
        .Destination = wdSendToPrinter
 
            With .DataSource
                .FirstRecord = wdDefaultFirstRecord
                .LastRecord = wdDefaultLastRecord
            End With
        .Execute Pause:=True
        DoEvents
    End With
 
    Application.ScreenUpdating = True
 
    appWord.Selection.HomeKey Unit:=wdStory
    NbPage = WdDoc.BuiltinDocumentProperties(wdPropertyPages)
    appWord.Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=CStr(NbPage)
    appWord.PrintOut Filename:="", Range:=wdPrintCurrentPage
 
    'enregistrement document word
    Set WdDoc = wdApp.documents.Save(Filename:="H:\JP\travail excel\NOUVEAU.doc")
    DoEvents
 
    ' Fermeture du document Word
    docWord.Close False
    appWord.Quit