bonjour
je réalise un publipostage depuis excel 2000 & 2007.
en 2000, j'arrive à atteindre un fichier word au format Catalogue ( sans remise à 1 des numéro de page) en word 2007, le publipostage génère systématique le format lettre et non Répertoire (équivalent 2000 de Catalogue).
Voici le code, merci de votre aide pour appliquer un format Répertoire en office 2007
je réalise un publipostage depuis excel 2000 & 2007.
en 2000, j'arrive à atteindre un fichier word au format Catalogue ( sans remise à 1 des numéro de page) en word 2007, le publipostage génère systématique le format lettre et non Répertoire (équivalent 2000 de Catalogue).
Voici le code, merci de votre aide pour appliquer un format Répertoire en office 2007
Code:
Application.ScreenUpdating = False
Set appWord = New Word.Application
appWord.Visible = True
'Ouverture du document principal Word
Set docWord = appWord.Documents.Open("D:\QD4C.doc")
'fonctionnalité de publipostage pour le document spécifié
With docWord.MailMerge
'Ouvre la base de données
.OpenDataSource Name:=NomBase, _
Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & NomBase & "; ReadOnly=True;", _
SQLStatement:="SELECT * FROM [Feuil1$]"
'Spécifie la fusion vers l'imprimante
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
'Prend en compte l'ensemble des enregistrements
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
'Exécute l'opération de publipostage
.Execute Pause:=True
End With
Application.ScreenUpdating = True
'Fermeture du document Word
docWord.Close False
appWord.Quit