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

[Invité]

Bonjour

Je ne vois pas de

Code :

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

Set appWord ...

Starec

[JPDU92]

Bonjour, je sais que j'ai un peu de mal mais le

set appword

est suivi de quoi ? Merci

[Invité]

Bonjour

Cet article http://heureuxoli.developpez.com/publipostage/ de Heureux-Oli te donnera des indications pour instancier Word.

Starec

[JPDU92]

Bonjour, je ne comprends pas, ça ne marche pas, car word veut ouvrir mon document principal de fusion en lecture seule, je fais comment svp

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
Sub test()
 
Dim NbPage
Dim DocWord As Word.Document
Dim AppWord As Word.Application
 
    ActiveWorkbook.Save
    DoEvents
    Set AppWord = New Word.Application
    Set DocWord = AppWord.documents.Open(Filename:="H:\JP\travail excel\NOUVEAU.doc")
    DoEvents
 
    AppWord.Selection.HomeKey Unit:=wdStory
    NbPage = WdDoc.BuiltinDocumentProperties(wdPropertyPages)
    AppWord.Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=CStr(NbPage)
    AppWord.PrintOut Filename:="H:\JP\travail excel\NOUVEAU.doc", Range:=wdPrintCurrentPage
 
    documents("NOUVEAU.doc").Close SaveChanges:=wdDoNotSaveChanges
 
 
End Sub

[ouskel'n'or]

Quand tu lances ta macro, tu ouvres une instance de Word... Dans ton code je ne vois pas si tu la fermes. Le résultat, c'est qu'à chaque fois que tu lances la macro tu as une nouvelle instance. Vas dans le gestionnaire des tâches et vérifie le nombre de WinWord.exe actifs. Tu auras ta réponse.
Fermes-tu Word plus bas dans ta macro, il ne suffit pas de fermer le fichier. Ex. :

Code :

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

1
2
3
AppWord.quit
Set AppWord = Nothing
Set DocWord = Nothing

Bonne soirée

[fred65200]

bonsoir,
De plus,je ne vois pas l'initialisation de WdDoc
Set WdDoc = ...
je me demandais si tu n'avais pas une erreur.

Code :

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

1
2
NbPage = WdDoc.BuiltinDocumentProperties(wdPropertyPages)

tu peux aussi écrire

Code :

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

1
2
3
 
DocWord.Close SaveChanges:=wdDoNotSaveChanges
'documents("NOUVEAU.doc").Close SaveChanges:=wdDoNotSaveChanges

@+
fred65200