syntaxe pour Récupérer une "Public Const" dans fichier word, de Excel

[fredl]

Bonjour à tous,
après recherche infructueuse dans le forum, je me permets de vous poser une question :
Comment puis je faire pour, de Excel, récupérer une "Public Const" nommée "Vversion" dans un fichier word?

Mon code :


sub MacroDansExcel
On Error Resume Next
Set appli = GetObject(, "Word.Application")
If appli Is Nothing Then 'si word est fermé,l'ouvrir
Vword = 1
Set appli = CreateObject("Word.Application")
End If
appli.Visible = True

appli.documents.Open ("C:\essai.docm")
With appli.ActiveDocument
Ver = Vversion.Value 'ne marche pas
End With
end sub

Merci d'avance pour le temps que vous voudrez bien me consacrer.
Cordialement.
Frédéric