Insertion objet OLE (word) dans un formulaire avec VBA
Bonjour,
Je modifie un état en utilisant le VBA Access, pour ceci j’utilise la méthode CreateReportControl. J’y arrive très bien pour créer des contrôles access de base.
Mais je galère un peu pour insérer un objet OLE de type word. J’utilise le code suivant, mais access refuse d’exécuter la manip en protestant par l’erreur 2771 : « Le cadre … ne contient pas d’objet OLE …»
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
DoCmd.OpenReport “EtEtatTest”, acViewDesign
Set EtTempo = Reports(“EtEtatTest”)
DoCmd.Save acReport, “EtEtatTest”
Set CtrTempo = CreateReportControl(EtTempo.Name, acObjectFrame, , "", "")
CtrTempo.Name = "TestWordOLE"
CtrTempo.OLEClass = "Microsoft Word 97"
CtrTempo.Class = "Word.Document.8" ' Définit le nom de classe.
CtrTempo.OLETypeAllowed = acOLEEither ' Spécifie le type d'objet.
CtrTempo.SourceDoc = "C:\Mes documents\TestAccess\Participation\2006\RipWordA.doc" ' Spécifie le fichier source.
CtrTempo.Action = acOLECreateEmbed ' Crée l'objet lié.
CtrTempo.SizeMode = acOLESizeZoom ' Ajuste la taille du contrôle. |
Quelqu’un a t il une idée ?
Peut être pourrais je passer par un RunCommand de ce type la :
Code:
DoCmd.RunCommand acCmdInsertObject
mais je ne trouve pas de quoi faire dans l'aide en ligne
Merci
