Ecrire dans Excel 2003 avec VBnet 2005 : Erreur : Impossible d'effectuer un cast d'un objet COM de type 'Syst

Bonjour à tous,

Merci par avance pour votre aide.

Je travaille sur un projet en VB.Net 2005 et j'aimerai exporter des données dans des feuilles Excel que j'ai préparé. Mais j'obtiens une erreur (au moment même me semble-t-il où il veut ouvrir Excel).

Configuration: Windows Seven, Excel 2003 et VB.Net 2005
J'ai bien rajouté la dll d'Excel : Excel 11 Object Librairy

Ma question donc:
Quelqu'un saurait-il comment écrire dans Excel 2003 avec VBnet 2005. J'ai cherché sur Internet mais rien ne fonctionne toujours la même erreur.
Impossible d'effectuer un cast d'un objet COM de type 'System.__ComObject' 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 : n’a pas pu être trouvé. (Exception de HRESULT : 0x80030002 (STG_E_FILENOTFOUND))."

Merci

Pensez vous que cela puisse venir du système d'exploitation ou de l'office qui aurait été mal installé?

pourrais tu montrer ton code ainsi que tes imports ? as tu bien ajouté les références ? je viens de finaliser une partie de mon appli qui justement transfert des datas vers un fichier excel suis chaud bouillant sur le sujet si j'ose dire

pour ma part dans les références sur l'assemblys j'ai rajouté:
Microsoft.office.tools (M.O.T)
M.O.T.common
M.O.T.common.V.X.X.utilities
M.O.T.Excel
M.O.T.Excel.VX.X.Utilities
M.O.T.VX.X.framework

et dans la form qui génère mon excel:

Code:

---

1 2 3 4 5

Imports Microsoft.Office.Interop Imports Microsoft.Office.Tools Imports Microsoft.Office.Tools.Excel.Controls Imports Microsoft.Office.Interop.Excel Imports Microsoft.Office.Tools.Excel

---

peut être en ai je trop mis ( je prend toutes les remarques) mais chez moi ça passe

sinon tu as ce truc sorti d'un vieux site oueb poussiéreux ..... la solution peut sans doute taider:http://www.developpez.net/forums/arc...t-1074860.html

Salut
dans les réferences de ton projet
tu as les réferences net et com
tu as coché dans les com Excel 11 Object Librairy
il faut plutot dans les net cocher microsoft.office.interop.excel
et décocher Excel 11 Object Librairy
Bonne prog

Merci Manuly et shayw, j'essaye et je vous dis

J'ai bien rajouté la référence Microsoft.Office.Interop.Excel (dll mise dans bin\Debug de mon projet)
mais aucune différence.

Voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Imports Microsoft.Office.Interop 'Déclaration des variables Dim appExcel As Excel.Application 'Application Excel Dim FichierExcel As Excel.Workbook 'Classeur Excel Dim FeuilleExcel As Excel.Worksheet 'Feuille Excel Dim i As Integer Dim j As Integer 'Ouverture de l'application appExcel = CreateObject("Excel.Application")     'Ouverture d'un fichier Excel     FichierExcel = appExcel.Workbooks.Open("Chemin fichier", , True) 'Feuille Excel correspondant à la feuille selectionné FeuilleExcel = FichierExcel.Worksheets(1) 'Worksheets permet de determiner la feuille

---

Merci pour votre aide

Manuly, comment tu fais pour rajouter ses références Microsoft.office.tools (M.O.T).
Je ne les trouve pas.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Imports excel = Microsoft.Office.Interop.Excel Dim appExcel As New excel.Application 'Application Excel Private FichierExcel As excel.Workbook 'Classeur Excel Private FeuilleExcel As excel.Worksheet 'Feuille Excel Private xlWorkBooks As excel.Workbooks   Private Sub test(ByVal path As String) Try xlWorkBooks = appExcel.Workbooks FichierExcel = xlWorkBooks.Open(path) FeuilleExcel = CType(FichierExcel.ActiveSheet, excel.Worksheet) With FeuilleExcel   End With   Catch ex As Exception MessageBox.Show(ex.Message) End Try   End Sub

---

shayw, merci de ton aide mais je viens d'essayé et cela ne fonctionne toujours pas.:cry:

Je regarde du coté de PIA Office, j'ai vu que cela pouvait peut être venir de cela, je vous tiens au courant.

J'ai téléchargé OPIA2003 (PIA office 2003) et exécuté mais cela ne fonctionne toujours pas.
Je ne sais plus quoi faire.:cry:

Je ne suis pas dans mon environnement de travail pour le moment mais 1 chose qui posait probleme chez moi

au lieu de mettre dim tavariable as excel.application essaie de mettre dim tavariable as Microsoft.office.interrop.excel.application (un truc comme ça)
si tu n'as pas les ref tools je crois que c'est normal ( version d'office de mémoire )

comme dit shayw privilégie l'interrop plutot que l'objet library de excel

je te copie colle mon code ce soir

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Dim C, N As Integer Dim xlapp As New Microsoft.Office.Interop.Excel.Application Dim xl As Microsoft.Office.Interop.Excel.Workbook Dim Xlws As Microsoft.Office.Interop.Excel.Worksheet xl = xlapp.Workbooks.Open("C:\Users\Vacants.xlsx") Xlws = xl.Worksheets(1) 'Dim j As Integer xlapp.visible = True 'xl.Workbooks.Add()     N = DataGridView1.ColumnCount   For L As Integer = 0 To DataGridView1.Rows.Count - 1 For C = 0 To N - 1   Xlws.Cells(L + 4, C + 1) = DataGridView1.Rows(L).Cells(C).Value Next C Next L     Dim newDate = Now TextBox102.Text = newDate TextBox102.Text = Replace(TextBox102.Text, "/", "") TextBox102.Text = Replace(TextBox102.Text, ":", "") TextBox102.Text = Replace(TextBox102.Text, " ", "")   xl.SaveAs("C:\Users\" & TextBox102.Text & ".xlsx") 'xl.Close()

---

Bonjour,

Si tu as VB.net 2005 Express, tu ne peux pas utiliser les "Office Tools". Malheureusement, aucune des éditions Express, ne le permet.

bonsoir,

Tout d'abord clementmarcotte mon VB est : Microsoft Visual Studio 2005 Professional Edition

Ensuite manuly merci pour code, j'ai refait un peu projet avec juste ton code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

Imports Microsoft.Office.Interop Imports Microsoft.Office.Tools Imports Microsoft.Office.Tools.Excel.Controls Imports Microsoft.Office.Interop.Excel Imports Microsoft.Office.Tools.Excel   Public Class Form1   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim C, N As Integer Dim xlapp As New Excel.Application   Dim xl As Excel.Workbook Dim Xlws As Excel.Worksheet xl = xlapp.Workbooks.Open("Chemin fichier") Xlws = xl.Worksheets(1) 'Dim j As Integer xlapp.visible = True 'xl.Workbooks.Add()     'N = DataGridView1.ColumnCount   'For L As Integer = 0 To DataGridView1.Rows.Count - 1 ' For C = 0 To N - 1   ' Xlws.Cells(L + 4, C + 1) = DataGridView1.Rows(L).Cells(C).Value ' Next C 'Next L     'Dim newDate = Now 'TextBox102.Text = newDate 'TextBox102.Text = Replace(TextBox102.Text, "/", "") 'TextBox102.Text = Replace(TextBox102.Text, ":", "") 'TextBox102.Text = Replace(TextBox102.Text, " ", "")   'xl.SaveAs("C:\Users\" & TextBox102.Text & ".xlsx") 'xl.Close() End Sub End Class

---

Référence rajoutées :
Microsoft Office 11.0 Object Library.
Microsoft Visual Basic for Applications Extensibility 5.3
Microsoft.Office.Interop.Excel

Nouvelle erreur:
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 : n’a pas pu être trouvé. (Exception de HRESULT : 0x80030002 (STG_E_FILENOTFOUND)).

je suis têtu mais ....

Code:

---

1 2 3

Dim xlapp As New Microsoft.Office.Interop.Excel.Application Dim xl As Microsoft.Office.Interop.Excel.Workbook Dim Xlws As Microsoft.Office.Interop.Excel.Worksheet

---

evite de mettre

Code:

---

as excel.blabla

---

il y a parfois des erreurs de builds à cause de ce truc ( ça m'est arrivé)

Merci Manuly,

J'ai mis exactement cela mais cela me donne toujours une erreur:
:evilred:
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 : n’a pas pu être trouvé. (Exception de HRESULT : 0x80030002 (STG_E_FILENOTFOUND)).

Et j'ai fais un nouveau petit projet rien qu'avec ton code.

Certains forum disent de réparer mon Office c'est se que j'ai fait mais aucun changement.
Je n'ai plus aucune idée.:(

Bonjour,
l'interop office c'est nul :mouarf:
Essayez l'Open Xml si c'est possible dans votre projet (moins de mal aux cheveux ;))

Malheureusement c'est impossible.
Mais merci dkmix

je crois que j'ai trouvé. si tu as un problème avec la langue se shèspire ^^ tu me dis je traduirai
http://social.msdn.microsoft.com/For...ng-office-2003

hope it will be the good try !!!!!!!!


EDIT: base de registre surtout !!!!

sinon j ai encore trouvé ceci:
http://www.wiki-errors.com/wiki-erro...iki=0x80030002

Salut

après avoir lu tes réponses une chose n'est pas claire
tu as écrit

Citation:

---

J'ai bien rajouté la référence Microsoft.Office.Interop.Excel (dll mise dans bin\Debug de mon projet)
mais aucune différence.

---

justement chez moi quand j'ajoute une reference la dll n'apparait pas dans
bin\Debug

pour cela je ne sais pas si tu as ajouté la réference comme il le faut
tu peux verifier si dans la liste des réferences utillisé dans ton projet
PROJET -> proprieté du projet -> onglet réference
dans la liste qui apparait as tu Microsoft.Office.Interop.Excel ?
si oui donc c'est bon
si non clique sur ajouter -> onglet NET
as tu dans la liste Microsoft.Office.Interop.Excel
si oui clique ok
non donc problème
aussi tu as ajouté Excel 11 Object Librairy qui est une réference de type com
en net on n'utilise plus ce genre de réference
il faudrait plutot la retirer de ton projet
PROJET -> proprieté du projet -> onglet réference
dans la liste choisis Excel 11 Object et clique sur le bouton "supprimer" ou
remove