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