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

[dacid]

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.

[Heureux-oli]

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.

[dacid]

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.

[Heureux-oli]

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.

[dacid]

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.

[Maxence HUBICHE]

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/

[Heureux-oli]

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