OVH Cloud OVH Cloud

Cadre Objet indépendant

4 réponses
Avatar
Jero
Bonjour à tous,
dans un form. j'ai créé un cadre d'objet indépendant (FicWord1) pour
afficher un doc. word.
dans ce même form. j'ai 2 zones de texte : txtDossier et txtFichier qui vont
contenir (par ex.) C:\Mes docs\ et toto.doc
j'ai également un bouton de commande (btAperçu) dont le code est le suivant
:

Private Sub btApercu_Click()

Me.FicWord1.Class = "Word.Document.8"

Me.FicWord1.OLETypeAllowed = acOLEEither

Me.FicWord1.SourceDoc = Me.txtDossier & Me.txtFichier

Me.FicWord1.SourceItem = ""

Me.FicWord1.Action = acOLECreateLink

Me.FicWord1.SizeMode = acOLESizeZoom

Me.FicWord.Requery

End Sub



question : je n'ai rien qui s'affiche dans FicWord1....

je travaille avec Office 2003

merci de me mettre sur la (bonne) voie...

jero

4 réponses

Avatar
Raymond [mvp]
Bonjour.

sans changer ta procédure ça marche avec les modifs suivantes:

Me.FicWord1.Requery au lieu de Me.FicWord.Requery

propriétés de ficword1, onglet données:
Activé : oui
verrouillé : non

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jero" <~ a écrit dans le message de news:

Bonjour à tous,
dans un form. j'ai créé un cadre d'objet indépendant (FicWord1) pour
afficher un doc. word.
dans ce même form. j'ai 2 zones de texte : txtDossier et txtFichier qui
vont contenir (par ex.) C:Mes docs et toto.doc
j'ai également un bouton de commande (btAperçu) dont le code est le
suivant :

Private Sub btApercu_Click()

Me.FicWord1.Class = "Word.Document.8"

Me.FicWord1.OLETypeAllowed = acOLEEither

Me.FicWord1.SourceDoc = Me.txtDossier & Me.txtFichier

Me.FicWord1.SourceItem = ""

Me.FicWord1.Action = acOLECreateLink

Me.FicWord1.SizeMode = acOLESizeZoom

Me.FicWord.Requery

End Sub



question : je n'ai rien qui s'affiche dans FicWord1....

je travaille avec Office 2003

merci de me mettre sur la (bonne) voie...

jero






Avatar
Jero
Merci raymond,
Me.FicWord1.Requery au lieu de Me.FicWord.Requery
C'était un lapsus de ma part

Activé : oui
verrouillé : non
C'était déjà fait

jero
"Raymond [mvp]" a écrit dans le message de
news: %
Bonjour.

sans changer ta procédure ça marche avec les modifs suivantes:

Me.FicWord1.Requery au lieu de Me.FicWord.Requery

propriétés de ficword1, onglet données:
Activé : oui
verrouillé : non

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jero" <~ a écrit dans le message de
news:
Bonjour à tous,
dans un form. j'ai créé un cadre d'objet indépendant (FicWord1) pour
afficher un doc. word.
dans ce même form. j'ai 2 zones de texte : txtDossier et txtFichier qui
vont contenir (par ex.) C:Mes docs et toto.doc
j'ai également un bouton de commande (btAperçu) dont le code est le
suivant :

Private Sub btApercu_Click()

Me.FicWord1.Class = "Word.Document.8"

Me.FicWord1.OLETypeAllowed = acOLEEither

Me.FicWord1.SourceDoc = Me.txtDossier & Me.txtFichier

Me.FicWord1.SourceItem = ""

Me.FicWord1.Action = acOLECreateLink

Me.FicWord1.SizeMode = acOLESizeZoom

Me.FicWord.Requery

End Sub



question : je n'ai rien qui s'affiche dans FicWord1....

je travaille avec Office 2003

merci de me mettre sur la (bonne) voie...

jero










Avatar
Raymond [mvp]
chez moi ça marche en double-cliquant sur le cadre.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jero" <~ a écrit dans le message de news:

Merci raymond,
Me.FicWord1.Requery au lieu de Me.FicWord.Requery
C'était un lapsus de ma part

Activé : oui
verrouillé : non
C'était déjà fait

jero



Avatar
Jero
Re-bonsoir,
ça fonctionne...
c'est un bout de code que j'utilisai sous access 97 (ss pb.)
merci et bonne soirée
jero
"Raymond [mvp]" a écrit dans le message de
news:
chez moi ça marche en double-cliquant sur le cadre.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jero" <~ a écrit dans le message de
news:
Merci raymond,
Me.FicWord1.Requery au lieu de Me.FicWord.Requery
C'était un lapsus de ma part

Activé : oui
verrouillé : non
C'était déjà fait

jero