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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
DoCmd.RunCommand acCmdInsertObject
mais je ne trouve pas de quoi faire dans l'aide en ligne

Merci