Référence relative en VBA

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

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

Comment ?
En remplacant, par exemple :

Code:

---

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

---

par

Code:

---

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 ;)

Pour faire mon publipostage j'utilise le code suivant :

Code:

---

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

---

Comment dois-je l'adapter ?
Merci
Willy

J'ai modifié mon code :

J'ai remplacé :

Code:

---

1 2 3

Dim ObjWord As Word.Document par Dim ObjWord As object

---

et j'ai rajouté une ligne

Code:

---

Set Objword = CreateObject("word.document")

---

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

Code:

---

Objword.MailMerge.Destination = wdSendToNewDocument

---

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

Si vous avez une petite idée
Merci
Willy

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:

---

1 2	const wdSendToNewDocument as long = 0

---

Génial !
ça fonctionne
Merci