Fusion Word Excel

[hernandez]

Bonjour,
Je n'arrive pas à imprimer toutes les lettres d'un fichier de fusion.

Voici mon code (extrait) :

Set Wrd = CreateObject("Word.Application")
Set appWord = Wrd.Documents.Open("Chemin du fichier")
Wrd.activedocument.PrintOut
Wrd.Documents.Close SaveChanges:=wdDoNotSaveChanges

Mais ça ne m'imprime que le premier enregistrement.
Ou est le truc !

Merci d'avance

 

[chris]

Bonjour

Wrd.activedocument.PrintOut

imprime le document (lettre type) mais il n'y a pas de commande de fusion dans ton code.

Chris