Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access impression word a partir d'access

impression word a partir d'access

2 réponses
Avatar
sandrine
allo a tous, j'ai essayer de faire imprimer un document=20
word a partir d'acces mais j'ai toujours le message=20
d'erreur m'indiquant type de variable ind=E9finit.Voici le=20
code utiliser

Sub Imprimer()
On Error Resume Next
Dim W_App As New Word.Application
With W_App
.Visible =3D True
.Documents.Open ("doc1.doc")
.PrintOut False
.ActiveDocument.SaveAs ("Doc2.Doc")
.Quit
End With
Set W_App =3D Nothing
End Sub

j'ai pris ce code a cette adresse=20
(http://officesystem.access.free.fr/vba/imprimer_doc.htm)=20
mais ce ne fonctionne pas pouvez-vous me donner un coup de=20
main??

merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Gafish
Bonjour,

J'imagine que l'erreur survient sur la ligne
Dim W_App as New Word.Application
Si c'est le cas, il doit te manquer la référence à Word. Dans ton module,
fais outils...reference et coche Microsoft Word.

Arnaud

"sandrine" a écrit dans le message
news: 1c2901c4e1dd$d338bef0$
allo a tous, j'ai essayer de faire imprimer un document
word a partir d'acces mais j'ai toujours le message
d'erreur m'indiquant type de variable indéfinit.Voici le
code utiliser

Sub Imprimer()
On Error Resume Next
Dim W_App As New Word.Application
With W_App
.Visible = True
.Documents.Open ("doc1.doc")
.PrintOut False
.ActiveDocument.SaveAs ("Doc2.Doc")
.Quit
End With
Set W_App = Nothing
End Sub

j'ai pris ce code a cette adresse
(http://officesystem.access.free.fr/vba/imprimer_doc.htm)
mais ce ne fonctionne pas pouvez-vous me donner un coup de
main??

merci
Avatar
Raymond [mvp]
Merci Arnaud. C'est bien ça;

pour sandrine, lorsqu'on ajoute une librairie externe, toujours prendre
l'habitude de recompiler l'appli pour vérifier s'il ne manque pas une
variable ou une librairie.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Gafish" a écrit dans le message de news:

Bonjour,

J'imagine que l'erreur survient sur la ligne
Dim W_App as New Word.Application
Si c'est le cas, il doit te manquer la référence à Word. Dans ton module,
fais outils...reference et coche Microsoft Word.

Arnaud