Sub Piloter_Publisher()
'Nécessite d'activer la référence
'Microsoft Publisher xx Object Library
Dim AppMsPub As Publisher.Application
Dim DocMsPub As Publisher.Document
Dim TableMsPub As Publisher.Table
Dim Lig As Byte, Col As Byte
'Crée l'instance Publisher
Set AppMsPub = CreateObject("publisher.Application")
'Masque l'application pendant l'opération.
'Indiquez la valeur True pour voir l'application Publisher.
AppMsPub.ActiveWindow.Visible = True 'False
'Ouvre le document
Set DocMsPub = AppMsPub.Open("D:\Composition1.pub")
'Copie des données
Set TableMsPub = DocMsPub.Pages(1).Shapes(1).Table
'Tableau de 4 lignes et 3 colonnes
For Lig = 1 To 4
For Col = 1 To 3
TableMsPub.Rows(Lig).Cells(Col).TextRange = Lig & " " & Col
Next Col
Next Lig
'Ferme le document
DocMsPub.Close
'Ferme l'application
AppMsPub.Quit
End Sub