OVH Cloud OVH Cloud

Lier un document Word par un controle OLE

1 réponse
Avatar
Evaro
Bonjour,
Je voudrais lier un document Word à un champ OLE.
Dans un formulaire j'ai créé un contrôle dépendant du champ et saisi le
code suivant,
trouvé dans l'aide et dans les archives du forum, de façon à ce que
l'utilisateur n'ai pas
à utiliser le menu Insertion / Objet :

Private Sub OleCtrl_Click()

Me.OleCtrl.Class = "Word.document"

Me.OleCtrl.OLETypeAllowed = acOLELinked

Me.OleCtrl.SourceDoc = "Monchemin\Mondocument.doc"

Me.OleCtrl.Action = acOLECreateLink

Me.OleCtrl.SizeMode = acOLESizeZoom

End Sub



A la ligne :

Me.OleCtrl.Action = acOLECreateLink,

sur 2000 comme sur 2002, j'ai le Message :



Erreur d'exécution 2786,

le serveur OLE ne prend pas en charge la liaison.



Pourquoi tant de haine ?



Merci d'avance,



Etienne.

1 réponse

Avatar
Evaro
Re,

Bon, j'ai déjà trouvé que le nom de Classe c'est "OpusApp" au lieu
de "Word.Document" grâce à l'API GetClassName.
Mais ça ne change rien à mon problème...
Merci

Etienne

"Evaro" a écrit dans le message de
news:
Bonjour,
Je voudrais lier un document Word à un champ OLE.
Dans un formulaire j'ai créé un contrôle dépendant du champ et saisi le
code suivant,
trouvé dans l'aide et dans les archives du forum, de façon à ce que
l'utilisateur n'ai pas
à utiliser le menu Insertion / Objet :

Private Sub OleCtrl_Click()

Me.OleCtrl.Class = "Word.document"

Me.OleCtrl.OLETypeAllowed = acOLELinked

Me.OleCtrl.SourceDoc = "MoncheminMondocument.doc"

Me.OleCtrl.Action = acOLECreateLink

Me.OleCtrl.SizeMode = acOLESizeZoom

End Sub



A la ligne :

Me.OleCtrl.Action = acOLECreateLink,

sur 2000 comme sur 2002, j'ai le Message :



Erreur d'exécution 2786,

le serveur OLE ne prend pas en charge la liaison.



Pourquoi tant de haine ?



Merci d'avance,



Etienne.