Ouvrir un doc word a partir d'Excel

Bonjour

A partir d'une feuille excel, avec une macro je tente d'ouvrir un document word qui est fusionné à lafeuille excel pour réaliser un publipostage. Le doc s'ouvre mais je "perds" le processus de fusion pour le publipostage, de plus le document reste dans la barre des taches et ne s'ouvre pas automatiquement à l'écran, mais ce n'est pas là le plus gênant..

Voici le code

Sub OuvrirDocWord()

'la reference Microsoft Word xx.x Object Library est activée

Dim WordApp

Dim WordDoc

Set WordApp = CreateObject("Word.Application")

WordApp.Visible = True

Set WordDoc = WordApp.Documents.Open("F:\LocalBackup\GDP UTDC\GESTION DP 2012\Originaux 2012 2013\DAET FUSION1.doc")

End Sub

Merci pour une ou des aides

Bonjour

J'ai trouvé une solution (en partie) j'arrive à ouvrir le doc word prêt pour le publipostage, un petit PB il ne s'ouvre pas à l'écran mais en réduction dans la barre des taches. Ci joint le fichier pour mieux comprendre, si vous avez une solution merci

Private Sub commandButton1_Click()

'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"

Dim docWord As Word.Document

Dim appWord As Word.Application

Dim NomBase As String

NomBase = "C:\Users\Patrick\Documents\FUSION TEST\BASE.xls"

Application.ScreenUpdating = False

Set appWord = New Word.Application

appWord.Visible = True

'Ouverture du document principal Word

Set docWord = appWord.Documents.Open("C:\Users\Patrick\Documents\FUSION TEST\FORME2.doc")

'fonctionnalité de publipostage pour le document spécifié

With docWord.MailMerge

'Ouvre la base de données

.OpenDataSource Name:="C:\Users\Patrick\Documents\FUSION TEST\BASE.xls", _

Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _

"DBQ=" & "C:\Users\Patrick\Documents\FUSION TEST\BASE.xls" & "; ReadOnly=True;", _

SQLStatement:="SELECT * FROM [BASE1$]"

End With

End Sub