Vba imprime word en pdf depuis excel 2003

Bonjour,
J'essaie d'ouvrir, puis d'imprimer un document word en pdf depuis un code vba sous excel 2003.
Tout va bien jusqu'à l'ouverture du fichier word mais au lancement de ma macro PDF, plantage: "impossible de trouver la macro"...

Le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub PUBLIPOSTPDFMLKB()
 
  Dim Fich As Worksheet
Set Fich = ThisWorkbook.Worksheets("MLKB")
Sheets("MLKB").Visible = True
ActiveSheet.Unprotect
 
chemin = "C:\Documents and Settings\XXXX\Bureau\XXXX.doc"
 
Set FichierWord = CreateObject("word.application")
Set wrdApp = CreateObject("Word.Application")
 
FichierWord.Visible = True
FichierWord.DisplayAlerts = False
 
 
    monDocument = chemin
    FichierWord.Documents.Open Filename:=monDocument
 
       ' Ouvrir le document
      '.Documents.Open "C:\Documents and Settings\XXXX\Bureau\XXXX.doc"
wrdApp.Run MacroName:="IMPRPDF"
 
' Fermer et libérer les objets
Set wdapp = Nothing 
 
End Sub

Quelqu'un y voit il plus clair que moi???

Merci beaucoup

Plus précisément:

Erreur d'exécution '-2147352573 (80020003)':

Impossible d'exécuter la macro spécifiée

Avec la ligne de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part