Ouverture fichier Excel ERREUR
Bonjour,
Malgré plusieurs types de progs, je n'arrive pas à ouvrir un fichier excel depuis VB.net
Ajout de la référence Microsoft Excel 16.0 Object Library
Voici mon code
Code:
1
2
3
4
5
6
7
8
9
| Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim appExcel As Microsoft.Office.Interop.Excel.Application = CreateObject("Excel.Application") 'Application Excel
Dim wbExcel As Microsoft.Office.Interop.Excel.Workbook = appExcel.Workbooks.Open("L:\GestCab\Essai.xlsx") 'Classeur Excel ' <= ERREUR
Dim wsExcel As Microsoft.Office.Interop.Excel.Worksheet = wbExcel.Worksheets(1) 'Feuille Excel
appExcel.Visible = True 'Affiche la fenetre d'excel
End Sub |
Erreur ligne 4
OU
Code:
1
2
3
4
5
6
| Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim appExcel As Microsoft.Office.Interop.Excel.Application = CreateObject("Excel.Application") 'Application Excel
appExcel.Visible = True 'Affiche la fenetre d'excel ' <= ERREUR
End Sub |
là aussi erreur ligne 4.
Erreur sur l'ouverture
Citation:
"An unhandled exception of type 'System.InvalidCastException' occurred in WindowsApplication4.exe"
Additional information: Impossible d'effectuer un cast d'un objet COM de type 'Microsoft.Office.Interop.Excel.ApplicationClass' en type d'interface 'Microsoft.Office.Interop.Excel._Application'. Cette opération a échoué, car l'appel QueryInterface sur le composant COM pour l'interface avec l'IID '{000208D5-0000-0000-C000-000000000046}' a échoué en raison de l'erreur suivante : Erreur lors du chargement de la bibliothèque/DLL du type. (Exception de HRESULT : 0x80029C4A (TYPE_E_CANTLOADLIBRARY)).
Merci de votre aide.
