problème de priorité de bibliothèques DAO et Word [Résolu]

[Sefrou]

Bonjour,

Dans une même procédure je souhaite lister les champs de mon formulaire à travers la collection fields du recordsetclone et lister les champs d'un document word ouvert.

Code :

1
2
3
4
5
6
Dim rs As Recordset
Set rs = Me.RecordsetClone
Dim accFld As Field
For Each accFld In rs.Fields
MsgBox accFld.Name
Next accFld

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open(essai.doc)
 
Dim fld As Field
For Each fld In wrdApp.ActiveDocument.Fields
MsgBox fld.Code & vbCrLf & _
fld.Code & vbCrLf & _
fld.Index & vbCrLf & _
fld.Kind & vbCrLf & _
fld.Result & vbCrLf & _
fld.Type & vbCrLf & _
fld.Code & " "
Next fld

Le probème c'est que ça marche pas, selon que je mette la bibliothèque DAO ou Word en dessus ou en dessous dans la liste des propriétés, j'ai un problème soit avec la première boucle, soit avec la deuxième, mais les deux ne fonctionnes pas en même temps. Quelqu'un aurait une solution à suggérer ?

Merci d'avance.

Max

[Sefrou]

je réponds à ma propre question :

il faut indiquer la classe à laquelle appartient la variable dans sa déclaration :

Code :

Dim accFld As DAO.Field

Code :

Dim fld As Word.Field

[helas]

Bonjour,
Je pense que lorsque tu parles de liste des propriétés, il s'agit de la liste des références. Quand au problème quel est-il ? Inclure une gestion des erreurs pour savoir de quoi il retourne.

[Sefrou]

Merci Helas,

Je parlais des priorités des références, pas de propriétés. Le problème est résolu, je te remercie.

Max