Discussion :

[stujava]

Bonjour,

j'ai une fonction en access permettant d'ouvrir un document word afin de fusionner avec des data.

Le souci est dans le code ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim WordObj as Word.Application
 
set WordObj = GetObject(,"Word.application")
 
'manipulation pour recherche du document word à fusionner
 
With WordObj
.Documents.Open filename:="C:\test\Document.doc"
.With .ActiveDocument.MailMerge
.Destination = wsSendToNewDocument
.Execute Pause:= True
End With
 
.....

Le souci est sur la ligne .Destination = wsSendToNewDocument, j'ai essayer bcp de cas de figure présent sur ce forum ou ailleurs sur le net et je n'ai rien trouver qui puisse me dépanner, l'erreur est "5852 L'objet demandé n'est pas disponible".

Je ne sais plus ce que je dois faire, les références ont été vérifiées, le fichier doc est bien présent, l'accès au répertoire est full .

Quelq'un pourrait-il m'aider ????

Merci pour tout

[laurent_42]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
.Destination = wsSendToNewDocument

Ne serait-ce pas plutôt wdSendToNewDocument ?

Laurent

[stujava]

oui, c'est moi qui ai mal orthographié ici mais dans le code c'est bien wsSendToNewDocument. Mais ce n'est pas ça le souci je pense...puisque rien ne fonctionne

[laurent_42]

Bonjour,

Donc on est d'accord que dans le "vrai" code tu as écrit wdSendToNewDocument ? Je me permets d'insister puisque dans ta réponse tu me dis que tu as bien écrit wsSendToNewDocument.

L'erreur te dit que l'objet n'est pas disponible. Du coup es-tu sûr que l'objet existe ? Avec GetObject tu fais référence à une instance qui existe déjà, tu n'en crées pas une. Donc il faut avoir instancié l'objet avant, avec CreateObject, cf le tuto sur VBA pour Office.

Sinon ton document est-il un document principal de fusion ?

Bonne journée
Laurent

[stujava]

Je confirme il y a bien .wdSendToNewDocument et non .wsSendToNewDocument .

J'ai vérifier car dans le code avant il y a bien un GetObject que j'ai remplacé par un CreateObject mais rien ne change j'ai toujours la même erreur sur la même ligne.

J'ai bien respecté le code pour le CreateObject mais par contre en testant si c'est un document principal de fusion et bien la réponse est non.

Que puis-je faire ?

Merci pour l'aide

[laurent_42]

Je pense que la lecture des 2 tuto suivant te sera d'une grande aide et te fera gagner beaucoup de temps :
http://heureuxoli.developpez.com/publipostage/
http://heureuxoli.developpez.com/off.../publipostage/
et notamment la partie :
http://heureuxoli.developpez.com/off...ipostage/#LVII

Bonne lecture et bon courage,

Laurent

[stujava]

Merci pour l'info mais le souci est que cela fonctionnait avant la migration , enfin je vais voir ce que je peux faire.

Merci

[laurent_42]

Avant la migration ? La migration de quoi ?

Laurent

[stujava]

j'ai la même db en Access 2002 qui tourne en Access 2002 et en Access 2010, ce qui fait que je dois jouer sur le code pour qu'il puisse travailler dans les 2 environnement...

[stujava]

J'ai un peu plus d'infos en analysant le code Access je crois comprendre comment cela travaille.

1. ouverture de word
2. choix d'un document word
3. création de la table servant de données pour le document
4. garnissage de la table avec les données adhoc
5. merge du document et des données et c'est là que le souci se pose..

enfin je pense.

[laurent_42]

Sans pouvoir te garantir de t'aider beaucoup (je n'ai jamais fait de publipostage en VBA et je ne suis pas vraiment un vieux routard ni d'Access ni de VBA) poste tout le code. Peut-être que ça peut aider... Et le message d'erreur obtenu.

Laurent