Publipostage - et choix du modèle Word

[jhofman]

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

   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

 

[jhofman]

Re : Publipostage - et choix du modèle Word

j'ai trouvé en formulant ma question
a priori je n'ai qu'à faire
With docWord.MailMerge.MainDocumentType = wdCatalog

Merci de votre aide.