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 Pilotage WORD depuis ACCESS 2002

Pilotage WORD depuis ACCESS 2002

3 réponses
Avatar
DENNLER Andre
Cette fonction marchait bien avec OFFICE 97, depuis que je suis passé à la
version 2002 j'ai un soucis d'ouverture du document WORD.
J'utilise :

Function Publipostage_BandeDNA()
Dim wdApp As Word.Application

' Démarrer Word
Set wdApp = CreateObject("Word.Application")
With wdApp
.Visible = True

' Ouvrir la lettre type
.Documents.Open "C:\Doc\Courses\Eti-DNA.doc"

' Diriger le publipostage vers un nouveau document
.ActiveDocument.MailMerge.Destination = wdSendToNewDocument

' Lancer le fusion
.ActiveDocument.MailMerge.Execute
End With

' Fermer et libérer les objets
Set wdApp = Nothing
End Function


J'ai un message d'erreur :" L'objet demandé n'est pas disponible"

En fait la source de donnée n'est pas ouverte, les boutons de fusion ne sont
pas disponible.

Quand je passe en ouverture manuel du fichier WORD cela fonctionne
normalement.
--
Andre
Signaler un problème avec ce contenu

3 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,

DENNLER Andre wrote:
Cette fonction marchait bien avec OFFICE 97, depuis que je suis passé
à la version 2002 j'ai un soucis d'ouverture du document WORD.
...
J'ai un message d'erreur :" L'objet demandé n'est pas disponible"


Regarde dans tes réferences (avec un module ouvert, outils...references), il
faut peut être changer la réference à Word. Déja regarde s'il n'y a pas une
réference marqué manquante. Si oui, décoche là. Tu devras trouver une
réference Microsoft Word x.x Object Library.

Arnaud
--
Charte du forum : http://www.mpfa.info/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
DENNLER Andre
J'ai vérifié, le problème ne vient pas de la.
--
Andre



Bonjour,

DENNLER Andre wrote:
Cette fonction marchait bien avec OFFICE 97, depuis que je suis passé
à la version 2002 j'ai un soucis d'ouverture du document WORD.
...
J'ai un message d'erreur :" L'objet demandé n'est pas disponible"


Regarde dans tes réferences (avec un module ouvert, outils...references), il
faut peut être changer la réference à Word. Déja regarde s'il n'y a pas une
réference marqué manquante. Si oui, décoche là. Tu devras trouver une
réference Microsoft Word x.x Object Library.

Arnaud
--
Charte du forum : http://www.mpfa.info/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr






Avatar
Gafish
DENNLER Andre wrote:
J'ai vérifié, le problème ne vient pas de la.


Essaie en utilisant dans ton code cette fonction :
http://www.mvps.org/accessfr/apis/api0007.htm
comme suit :

Dim boolWd as Boolean
If fIsAppRunning("Word") Then
Set wdApp = GetObject(, "Word.Application")
boolWd = False
Else
Set wdApp = CreateObject("Word.Application")
boolWd = True
End If

et à la fin de ta procédure

If boolWd Then wdApp.Application.Quit


Arnaud
--
Charte du forum : http://www.mpfa.info/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr