[VBA 2003] Import de module->Perte de références

Bonjour à tous,

Je fait de l'automation Word depuis Delphi.
Utilisant des macros similaires pour plusieurs modèles Word, j'ai décidé de les stoquer dans un fichier bas commun que j'importe de cette manière:

Code:

---

vDoc.VBProject.VBComponents.Import (MonChemin+'\Module1.bas');

---

Seulement, dans ces macros, je fait de l'appel aux données en utilisant l'objet DAO, ce qui impose qu'il doit se trouver dans les références du fichier Word concerné.
Seulement, j'ai beau le mettre et enregistrer dans le modèle... Il le garde bien, mais le document généré depuis ce modèle ne garde pas les références de son modèle.
Si bien que les macros se chargent bien, mais je ne peux pas les utiliser.

Je l'ai ajouté au normal.dot, mais ca ne change rien.

Comment faire pour contourner le problème (ou au pire, ajouter dynamiquement cette référence depuis le module bas ou Delphi).

Merci d'avance.

Lorsque tu ajoutes une référence, tu peux dès la déclaration créer et lier ton "objet" (Early binding)

Code:

---

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

---

Ou encore

Code:

---

Dim wApp as New Word.Application

---

Mais en VBA, il est possible de faire du (Late Binding)

Code:

---

1 2	Dim wApp As Object set wApp = CreateObject("Word.Application")

---

Dans ce dernier cas, la référence ne doit pas être ajoutée.

Bonjour Heureux-oli,

Merci pour ta rapidité, mais je ne vois pas du tout à quel moment l'ajout de référence intervient dans ton exemple.

En fait, ce que tu donnes, je le fait dans Delphi, ensuite, je fait un:
vDoc.VBProject.VBComponents.Import ('monModule.bas');
(vDoc étant l'instance du document Word désiré)

Seulement, je comptait faire l'ajout de référence dans 'monModule.bas'.
Mais il ne connait pas l'objet 'Reference'.
Ca n'en finit plus.

A aucun moment.
Si dans ton code tu utilises mon dernier morceau pour la déclaration de ton code, tu n'as pas besoin de déclarer la référence.

Dans mon code VBA ???

Je fait donc un truc comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim wApp as Word.Application Set wApp = CreateObject("Word.Application") Dim mydb As DAO.Database Dim myRS As DAO.Recordset Set mydb = DAO.OpenDatabase(chemBase) mySQL = "SELECT * FROM TblStyles WHERE Id=" & myId Set myRS = mydb.OpenRecordset(mySQL) myRS.MoveFirst While Not myRS.EOF Coloriage_Style myRS("NomStyle"), Couleur, myRS("FondouPolice") myRS.MoveNext Wend myRS.Close Set myRS = Nothing

---

Et ca suffit ?

Très bien, j'essaye ça dans quelques instants.

Merci.

hum ! hum !
J'ai peur d'avoir compris, et pense que la solution n'est pas (complètement) là.


Effectivement, comme l'à dit Heureux-Oli, le Late-Binding te permettra de t'affranchir des références.
Mais, si tu as à créer un document word, tu as d'office les références à Word. Partant, le CreateObject ne sert plus à grand-chose pour les bjets de Word.
Là où tu en aurais plutôt besoin, ce serait pour tes objets DAO qui ne sont pas référencés, par défaut, dans un projet Word.



Une autre possibilité, c'est d'ajouter les références à la volée dans ton projet.
Pour cela, regardes donc le tutoriel suivant:
http://sinarf.developpez.com/access/autoref/
;)

Dans mon dernier exemple, je met

Code:

---

Dim wApp as Objet

---

Tous les objets doivent être déclaré en Objet.

Code:

---

1 2	Dim oDoc as Object Set oDoc = wApp.Documents.Add

---

Pareil pour le DAO

Code:

---

Set rs as Object

---