Discussion :

[willytito]

Bonjour à tous,

Je développe sous Access 2003

Mon problème est le suivant :
J'ai une application qui fait du publipostage (word Access)
Les données du publipostage : une requête
L'application fonctionne, mais je voudrais qu'elle fonctionne avec les 3 versions de word suivant (97, 2000, 2003)
Pour faire le lien avec word, j'utilise une référence qui change suivant la version de word installée sur la machine.
Par exemple pour word 2000 (microsoft word 9.0 object Library)

Peut-on paramaîtrer ces référence en VBA
Si oui comment faire
Je vourais un truc du genre :
Choisir la version de word dans une liste déroulant

Si quelqu'un a une idée merci

Willy

[Maxence HUBICHE]

Tu n'as pas besoin des références.
Tu peux utiliser la technique dite du LateBinding.

Comment ?
En remplacant, par exemple :

Code :

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

1
2
Dim objWordApplication as Word.Application
Set objWordApplication = New Word.Application

par

Code :

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

1
2
Dim objWordApplication as Object
Set objWordApplication = CreateObject("Word.Application")

Avec le LateBinding, l'interpréteur VBA découvre, le plus tard possible le type d'objet qu'il va générer.
La génération via le CreateObject va lire dans la base de registre pour trouver la classe de l'objet word référencé par défaut sur le poste (puisque dans la base de registre)
Donc, cela implique que, quel que soit la version du logiciel installé, ca marchera

[willytito]

Pour faire mon publipostage j'utilise le code suivant :

Code :

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

1
2
Dim ObjWord As Word.Document
Set ObjWord = GetObject(Var_Fichier_Pub, "Word.Document")

Comment dois-je l'adapter ?
Merci
Willy

[willytito]

J'ai modifié mon code :

J'ai remplacé :

Code :

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

1
2
3
Dim ObjWord As Word.Document
par
Dim ObjWord As object

et j'ai rajouté une ligne

Code :

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

Set Objword = CreateObject("word.document")

Mais je ne sais pas comment adapter ce bout de code qui pose problème

Code :

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

Objword.MailMerge.Destination = wdSendToNewDocument

C'est cette constante qui pose problème : wdSendToNewDocument

Si vous avez une petite idée
Merci
Willy

[Maxence HUBICHE]

regarde la valeur de wdSendToNewDocument


Puisque tu n'as plus accès à la bibliothèque Word, les constatnes de word non plus n'existent plus.

tu peux donc les recréer, dans ton programme :

Code :

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

1
2
 
const wdSendToNewDocument as long = 0

[willytito]

Génial !
ça fonctionne
Merci