Probléme export et fusion excel word

Version imprimable

1 pièce(s) jointe(s)

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... :roll:

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
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

21/10/2007, 06h21
Invité

Bonjour

Je ne vois pas de

Code:

Set appWord ...

Starec
21/10/2007, 11h48
JPDU92

Oui mais

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

Citation:

set appword

est suivi de quoi ? Merci
21/10/2007, 14h37
Invité

Bonjour

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

Starec

Fusion word excel

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 :cry:

Code:

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

21/10/2007, 23h59
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:

1 2 3 AppWord.quit Set AppWord = Nothing Set DocWord = Nothing
Bonne soirée
22/10/2007, 02h46
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:

1 2 NbPage = WdDoc.BuiltinDocumentProperties(wdPropertyPages)
tu peux aussi écrire
Code:

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