Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

ERREUR AUTOMATION Le module spécifié est introuvable

13 réponses
Avatar
Pat
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

10 réponses

1 2
Avatar
Gafish
Bonjour,

Il te manque la référence à Word.

Arnaud

"Pat" a écrit dans le message news:
41fe4c97$0$22470$
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




Avatar
Jessy Sempere [MVP]
Bonjour

Je ne pense pas que le pb vienne de là, vu qu'il fait du Late Binding :
il ne déclare pas d'object Word.Application donc il n'a pas besoin
de la référence de Word.

Le problème vient sûrement d'ailleur.

PS : Est ce que Word est installé sur le poste en question ???

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Gafish" a écrit dans le message news:

Bonjour,

Il te manque la référence à Word.

Arnaud

"Pat" a écrit dans le message news:
41fe4c97$0$22470$
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








Avatar
Pierre CFI [mvp]
"Si le probléme ne vient pas de là, il vient d'ailleurs"
Les pensées profondes de Jessy, penseur du XXI siécle, garde barriére au PN 32008 à ST BRICE (2 trains de marchandises/semaine)

--
Pierre CFI
MVP Microsoft Access
Avatar
Jessy Sempere [MVP]
Et oui c'est un extrait du tome 1 qui va sortir prochainement... ;-))

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Pierre CFI [mvp]" a écrit dans le message news:
OxCHw$
"Si le probléme ne vient pas de là, il vient d'ailleurs"
Les pensées profondes de Jessy, penseur du XXI siécle, garde barriére au
PN 32008 à ST BRICE (2 trains de marchandises/semaine)


--
Pierre CFI
MVP Microsoft Access




Avatar
Pat
Bonjour et merci pour votre aide.


Oui Word est installé en version 97 d'abord et j'ai installé ensuite la
version 2002 pensant que c'était la cause du problème, mais sans succès.

Que faire??

Merci

Pat


"Jessy Sempere [MVP]" a écrit dans le message de
news:41ff5120$
Et oui c'est un extrait du tome 1 qui va sortir prochainement... ;-))

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Pierre CFI [mvp]" a écrit dans le message
news:

OxCHw$
"Si le probléme ne vient pas de là, il vient d'ailleurs"
Les pensées profondes de Jessy, penseur du XXI siécle, garde barriére au
PN 32008 à ST BRICE (2 trains de marchandises/semaine)


--
Pierre CFI
MVP Microsoft Access








Avatar
Pierre CFI [mvp]
.../...
cherche dans l'explorateur si les chemins des références sont bien les mémes, des fois que

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Pat" a écrit dans le message de news:41ff589a$0$541$
Bonjour et merci pour votre aide.


Oui Word est installé en version 97 d'abord et j'ai installé ensuite la
version 2002 pensant que c'était la cause du problème, mais sans succès.

Que faire??

Merci

Pat


"Jessy Sempere [MVP]" a écrit dans le message de
news:41ff5120$
Et oui c'est un extrait du tome 1 qui va sortir prochainement... ;-))

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Pierre CFI [mvp]" a écrit dans le message
news:

OxCHw$
"Si le probléme ne vient pas de là, il vient d'ailleurs"
Les pensées profondes de Jessy, penseur du XXI siécle, garde barriére au
PN 32008 à ST BRICE (2 trains de marchandises/semaine)


--
Pierre CFI
MVP Microsoft Access












Avatar
Pat
Merci Pierre,

J'ai vérifié, les références sont biens à leur place.

Pat


"Pierre CFI [mvp]" a écrit dans le message de
news:
.../...
cherche dans l'explorateur si les chemins des références sont bien les
mémes, des fois que


--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Pat" a écrit dans le message de
news:41ff589a$0$541$

Bonjour et merci pour votre aide.


Oui Word est installé en version 97 d'abord et j'ai installé ensuite la
version 2002 pensant que c'était la cause du problème, mais sans succès.

Que faire??

Merci

Pat


"Jessy Sempere [MVP]" a écrit dans le
message de


news:41ff5120$
Et oui c'est un extrait du tome 1 qui va sortir prochainement... ;-))

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Pierre CFI [mvp]" a écrit dans le message
news:

OxCHw$
"Si le probléme ne vient pas de là, il vient d'ailleurs"
Les pensées profondes de Jessy, penseur du XXI siécle, garde
barriére au




PN 32008 à ST BRICE (2 trains de marchandises/semaine)

--
Pierre CFI
MVP Microsoft Access
















Avatar
Raymond [mvp]
Bonjour Pierre .

ce n'est pas parcequ'on fait du Late Binding que access n'utilise pas la
librairie word. ok pour ne pas la cocher mais faut qu'elle soit présente sur
disque.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Pierre CFI [mvp]" a écrit dans le message de
news:
.../...
cherche dans l'explorateur si les chemins des références sont bien les
mémes, des fois que

--
Pierre CFI
MVP Microsoft Access


Avatar
Jessy Sempere [MVP]
Ben oui entièrement d'accord, c'est pour ça que je demandais si Word
était installé... ;-)))

Bon c'est vrai que je disais "pas besoins" j'aurais du dire "pas cocher"

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Raymond [mvp]" a écrit dans le message
news:
Bonjour Pierre .

ce n'est pas parcequ'on fait du Late Binding que access n'utilise pas la
librairie word. ok pour ne pas la cocher mais faut qu'elle soit présente
sur

disque.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Pierre CFI [mvp]" a écrit dans le message de
news:
.../...
cherche dans l'explorateur si les chemins des références sont bien les
mémes, des fois que

--
Pierre CFI
MVP Microsoft Access






Avatar
Pierre CFI [mvp]
salut jessy
pourquoi raymond m'attribue t il, tes bétises ? encore un qui espére des billets gratos. Moi, maintenant j'ai la carte des vieux,
enfin pudiquement nommée "senior" ou senior XXXL pour 3stone

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Jessy Sempere [MVP]" a écrit dans le message de news:4200904d$
Ben oui entièrement d'accord, c'est pour ça que je demandais si Word
était installé... ;-)))

Bon c'est vrai que je disais "pas besoins" j'aurais du dire "pas cocher"

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Raymond [mvp]" a écrit dans le message
news:
Bonjour Pierre .

ce n'est pas parcequ'on fait du Late Binding que access n'utilise pas la
librairie word. ok pour ne pas la cocher mais faut qu'elle soit présente
sur

disque.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Pierre CFI [mvp]" a écrit dans le message de
news:
.../...
cherche dans l'explorateur si les chemins des références sont bien les
mémes, des fois que

--
Pierre CFI
MVP Microsoft Access










1 2