Discussion :

[coutep]

Bonjour,

J'ai besoin de l'ire un fichier EXCEL de façon à remplir une table Oracle.

Pour cela, j'essaie d'ouvrir un fichier Excell. j'ai donc écris les lignes suivants :

Dim xlapp As Excel.Application
Dim xlSheet As Excel.Worksheet

xlapp = New Excel.Application
xlSheet = xlapp.Workbooks.Open("C:\Monfich.xls").Worksheets(0)

Ceci génère une erreur.
Pour info, j'ais uniquement installé sur mon PC Microsoft Excel 9.0 Object libray.


Pouvez vous me dire ce qui ne va pas.

Merci

[HULK]

c'est quoi le message d'erreur ?

[coutep]

Voila le stack de mon erreur :

System.Runtime.InteropServices.COMException was unhandled
ErrorCode=-2147319784
Message="Old format or invalid type library. (Exception from HRESULT: 0x80028018 (TYPE_E_INVDATAREAD))"
Source="Interop.Excel"
StackTrace:
at Excel.Workbooks.Open(String Filename, Object UpdateLinks, Object ReadOnly, Object Format, Object Password, Object WriteResPassword, Object IgnoreReadOnlyRecommended, Object Origin, Object Delimiter, Object Editable, Object Notify, Object Converter, Object AddToMru)
at WindowsApplication1.Form1.Form1_Load(Object sender, EventArgs e) in C:\Documents and Settings\pxcc721\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb:line 8
at System.EventHandler.Invoke(Object sender, EventArgs e)
at System.Windows.Forms.Form.OnLoad(EventArgs e)
at System.Windows.Forms.Form.OnCreateControl()
at System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
at System.Windows.Forms.Control.CreateControl()
at System.Windows.Forms.Control.WmShowWindow(Message& m)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ScrollableControl.WndProc(Message& m)
at System.Windows.Forms.ContainerControl.WndProc(Message& m)
at System.Windows.Forms.Form.WmShowWindow(Message& m)
at System.Windows.Forms.Form.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows.Forms.SafeNativeMethods.ShowWindow(HandleRef hWnd, Int32 nCmdShow)
at System.Windows.Forms.Control.SetVisibleCore(Boolean value)
at System.Windows.Forms.Form.SetVisibleCore(Boolean value)
at System.Windows.Forms.Control.set_Visible(Boolean value)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.Run(ApplicationContext context)
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
at WindowsApplication1.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81
at System.AppDomain.nExecuteAssembly(Assembly assembly, String[] args)
at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
at System.Threading.ThreadHelper.ThreadStart_Context(Object state)
at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
at System.Threading.ThreadHelper.ThreadStart()

[HULK]

mets un try catch avec ex.message pour capter le message d'erreur, on en aura un moins compliqué je pense

[jab]

Je n'ai aucune expérience avec mais dans ton cas ne serait-il pas plus simple dans ton cas d'utiliser le driver Excel ODBC au lieu d'ouvrir excel en oledb ?

[Gilles_37]

Bonjour,

Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object

xlApp = CreateObject("Excel.Application")
( ou si tu préfère New Excel.Application ! )
xlBook = xlApp.Workbooks.open("C:\Monfich.xls").
xlSheet = xlBook.Worksheets(ici le nom ou N° de feuille)

Es-tu sûr du 0 dans "Worksheets(0)", étonnant !

Ca marche, c'est sûr.

Gilles_37