Bonjour,
Quelqu'un peut-il m'aider?
J'ai référencé Word (Office 365 64b) dans ma solution Visual Studio 2017 (et 2019 preview) pour insérer quelques données sur des signets d'un document mais j'ai ce message d'erreur qui m'est retourné :
System.InvalidCastException
HResult=0x80004002
Message=Impossible d'effectuer un cast d'un objet COM de type 'Microsoft.Office.Interop.Word.ApplicationClass' en type d'interface 'Microsoft.Office.Interop.Word._Application'. Cette opération a échoué, car l'appel QueryInterface sur le composant COM
pour l'interface avec l'IID '{00020970-0000-0000-C000-000000000046}' a échoué en raison de l'erreur suivante : Interface non enregistrée (Exception de HRESULT : 0x80040155).
Source=mscorlib
Arborescence des appels de procédure :
à System.StubHelpers.StubHelpers.GetCOMIPFromRCW(Object objSrc, IntPtr pCPCMD, IntPtr& ppTarget, Boolean& pfNeedsRelease)
à Microsoft.Office.Interop.Word.ApplicationClass.get_Documents()
à Word_Pilotage.Form1.btn_go_Click(Object sender, EventArgs e) dans C:\Users\Christophe\source\repos\Word_Pilotage\Word_Pilotage\Form1.vb :ligne 14
à System.Windows.Forms.Control.OnClick(EventArgs e)
à System.Windows.Forms.Button.OnClick(EventArgs e)
à System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
à System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
à System.Windows.Forms.Control.WndProc(Message& m)
à System.Windows.Forms.ButtonBase.WndProc(Message& m)
à System.Windows.Forms.Button.WndProc(Message& m)
à System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
à System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
à System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
à System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
à System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
à System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
à System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
à Word_Pilotage.My.MyApplication.Main(String[] Args) dans :ligne 81
Quelques ligne de mon code :
Imports Word = Microsoft.Office.Interop.Word
Public Class Form1
Private Sub btn_go_Click(sender As Object, e As EventArgs) Handles btn_go.Click
Dim oWord As Word.Application
Dim oDoc As Word.Document
oWord = CreateObject("Word.Application")
oDoc = oWord.Documents.Open("C:\Users\Christophe\OneDrive\Famille\Christophe\Bowling
Merci d'avance...
Xtof
