Publipostage et droits !!!

Bonjour

J'avais demandé lme code du publipostrage il y a qlq temps ceci marche cependant quand je clique sur mon bonton de mon userform et que sa lance word ... j'ai pas la main sur les option du publipostage sous word !! ceci est trés genant !!


Private Sub CmdPubliP_Click()
ActiveWorkbook.Save
Dim DocWord As Word.Document
Dim AppWord As Word.Application

Application.ScreenUpdating = False
Set AppWord = New Word.Application
AppWord.Visible = True

Set DocWord = AppWord.Documents.Open("fichier.doc")

With DocWord.MailMerge
.Destination = wdSendToPrinter
.Destination = wdSendToNewDocument
'.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
'.Execute Pause:=True

End With

Application.ScreenUpdating = True
'DocWord.Close False
'AppWord.Quit
End Sub

si qlq peu m'aider ...

merci