ERREUR AUTOMATION Le module spécifié est introuvable

Bonjour,


Une appli dévelloppée avec Access 2002 et distribuée avec le runtime tourne
sous différents postes sans problème.

Sur un poste qui n'est pas chez moi sous Win2000, donc difficile de faire
des test facilements, j'ai un message d'erreur "ERREUR AUTOMATION Le module
spécifié est introuvable" losque j'essaye de piloter Word.

Les Références que j'utilise sont les suivantes:

Visual Basic For Applications
Microsoft Access 10.0 Object Library
Microsoft Forms 2.0 Object Library
Microsoft Graph 10.0 Object Library
Microsoft OLE BD Service Component 1.0 Type Library

Et le code que j'utilise se trouve ci-dessous.

Par avance, merci pour vos idées.

Pat

----------------------------------------------------------------------
Dim db As DAO.Database, rst As DAO.Recordset
Dim strSQL As String, strNouveauFichier As String
Dim varFichier As Variant

Set db = CurrentDb()

strSQL = "SELECT * FROM [TbleClient]"

Set rst = db.OpenRecordset(strSQL)

Dim wdApp As Object
Dim doc As Object
Set wdApp = CreateObject("Word.Application")

wdApp.Visible = False

If (Forms!GF!Type Like "Nom" And Forms!GFicheLocataire!Mandataire = 1)
Then varFichier = CurrentDBDir() & "Doc1.doc"
If (Forms!GF!Type Like "Nom" And Forms!GFicheLocataire!Mandataire = 0)
Then varFichier = CurrentDBDir() & "Doc2.doc"

Set doc = wdApp.Documents.Open(varFichier)

With doc

If .Bookmarks.Exists("Titre") Then
.Bookmarks("Titre").Range.Text = Nz(rst("Titre"))
End If


.PrintOut
End With

'doc.PrintOut

strNouveauFichier = "C:\Mes documents\" & Me.Ref & "\" & Me.Dossier & "\" &
Me.Nom & "\" & "Prenom" & rst("Nom") & " du " & Format(Now, "dd-mm-yyyy") &
".doc"
MsgBox "Veuillez attendre la fin de l'impression avant de cliquer OK." &
vbLf & vbLf & " Le document a été enregistré à l'emplacement " &
strNouveauFichier, vbInformation, "Message"

doc.SaveAs strNouveauFichier
rst.Close

End If

CommandePrint_Click_Exit:

On Error Resume Next
wdApp.ActiveDocument.Close
doc.Close
Set doc = Nothing
wdApp.Quit
Set wdApp = Nothing
Set rst = Nothing
Set db = Nothing

Exit Sub

CommandePrint_Click_Err:
MsgBox error$

Resume CommandePrint_Click_Exit

End Sub