OVH Cloud OVH Cloud

Erreur d'exécution "5852". Objet demandé n'est pas disponible

1 réponse
Avatar
DPSGAP
Bonjour,

Je posséde un windows xp pro sp2 avec toutes les maj dispo, un office pro
2003 sp2 avec toutes ces maj.
Le probléme rencontré se trouve entre ACCESS et WORD pendant une
fusion(sachant que je ne connais rien à ACCESS et que l'entreprise qui a
écrit ce prgramme n'existe plus). Donc aprés la saisie d'un borderaux de
permis de transport, je dois éditer un permis de transports via WORD. je
clique sur un bouton ACCESS, le document de "base" PERMIS sous WORD s'ouvre
et là une fenêtre WINDOWS Microsoft Visual Basic avec Erreur d'éxécution
"5852". Objet demandé n'est pas disponible avec comme choix FIN ou DEBOGAGE
ou AIDE (alors qu'à ce moment là d'habitude un document LETTRETYPE1 devrait
s'ouvrir).
En cliquant sur DEBOGAGE, Visual Basic s'ouvre sur l'erreur
wdApp.ActiveDocument.MailMerge.Destination = wdSendToNewDocument , dans la
fenêtre Form_SAISIEdesbordereaux .

le contenu de cette fenêtre est :

Private Sub Commande17_Click()
'Publipostage
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
wdApp.Documents.Open "M:\PERMIS.doc"
wdApp.ActiveDocument.MailMerge.Destination = wdSendToNewDocument
wdApp.ActiveDocument.MailMerge.Execute
Set wdApp = Nothing
End Sub

D'avance merci

1 réponse

Avatar
DPSGAP
Bonjour,

je pense avoir cerné le probléme
En fait sur WORD 2002 quand on excecute une fusion a partir de fichier
source (ici permis.doc) la fusion crée un document WORD avec comme nom
LETTRETYPE1 alors qu'avec WORD 2003 le document a pour nom LETTRE1 d'ou
l'erreur 5852 OBJET NON DISPO.
Je dois donc renseigner la base ACCESS mais où????
merci d'avance


Bonjour,

Je posséde un windows xp pro sp2 avec toutes les maj dispo, un office pro
2003 sp2 avec toutes ces maj.
Le probléme rencontré se trouve entre ACCESS et WORD pendant une
fusion(sachant que je ne connais rien à ACCESS et que l'entreprise qui a
écrit ce prgramme n'existe plus). Donc aprés la saisie d'un borderaux de
permis de transport, je dois éditer un permis de transports via WORD. je
clique sur un bouton ACCESS, le document de "base" PERMIS sous WORD s'ouvre
et là une fenêtre WINDOWS Microsoft Visual Basic avec Erreur d'éxécution
"5852". Objet demandé n'est pas disponible avec comme choix FIN ou DEBOGAGE
ou AIDE (alors qu'à ce moment là d'habitude un document LETTRETYPE1 devrait
s'ouvrir).
En cliquant sur DEBOGAGE, Visual Basic s'ouvre sur l'erreur
wdApp.ActiveDocument.MailMerge.Destination = wdSendToNewDocument , dans la
fenêtre Form_SAISIEdesbordereaux .

le contenu de cette fenêtre est :

Private Sub Commande17_Click()
'Publipostage
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
wdApp.Documents.Open "M:PERMIS.doc"
wdApp.ActiveDocument.MailMerge.Destination = wdSendToNewDocument
wdApp.ActiveDocument.MailMerge.Execute
Set wdApp = Nothing
End Sub

D'avance merci