HEEEEEEELP EXCELRésolu

Question

Bonjour encore une fois huhu 

nan restons calme et serieux 

voila depuis une smaine je chercher a resoudre le probleme suivant:
transferer dans un fichier excel mon dataset

je viens a l'instant de toucher au r&#233;f&#233;rence et tout ca pour rien
voila le message qu'il m'ecrit:
 "&#201;chec de QueryInterface pour l'interface Microsoft.Office.Interop.Excel._Application"
ou
"&#201;chec de QueryInterface pour l'interface Excel._Application" (si j'utilise la reference du 9.0)

Il me met ce message au moment ou j'initialise mon fichier excel c'est a dire &#224;:

MyWorkBook = Myexcel.Workbooks.Add

Voici le code complet:


Private 
Sub btn_export_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles btn_export.Click



Dim Myexcel 
As 
New Microsoft.Office.Interop.Excel.Application



Dim MyWorkBook 
As Microsoft.Office.Interop.Excel.Workbook



Dim MyWorkSheet 
As Microsoft.Office.Interop.Excel.Worksheet



Dim strAppPath = System.Reflection.Assembly.GetExecutingAssembly.Location.Substring(0, System.Reflection.Assembly.GetExecutingAssembly.Location.LastIndexOf("") + 1)



Dim strExcelFile 
As 
String



Dim strFileName 
As 
String


MyWorkBook = Myexcel.Workbooks.Add


MyWorkSheet = MyWorkBook.ActiveSheet



For colone = 0 
To data_result.Tables("TEMPO").Columns.Count - 1


Myexcel.Cells(1, colone + 1).value = data_result.Tables("TEMPO").Columns(colone).ColumnName.ToString



Next colone



For ligne = 0 
To data_result.Tables(0).Rows.Count - 1



For colone = 0 
To data_result.Tables(0).Columns.Count - 1


Myexcel.Cells(ligne + 1, colone + 1).Value = data_result.Tables("").Rows(ligne).ItemArray(colone).ToString



Next



Next ligne


strExcelFile = strAppPath & cf_rechercher


Myexcel.ActiveWorkbook().SaveAs(strExcelFile)


Myexcel.ActiveWorkbook.Close()



End 
Sub

Si queulqu un pouvait me sortir de la, j'en serais tres ravi 
Merci

spike

mrdep1978 · Accepted Answer

MyWorkbook et MyWorkSheet sont des objets.
L'affection se fait donc avec l'op&#233;rateur Set

Set MyWorkBook = Myexcel.Workbooks.Add
Set MyWorkSheet = MyWorkBook.ActiveSheet

spike62300 · Answer

il ne veut pas mettre Set,

en fait il les enleve kan je les met 

Merci de m'avoir repondu c gentil 
pck ca f&#233; un moment ke je traine dessus sans y arriver

Si tu as une autre id&#233;e n'hesites pas sinon tant pis je v&#233; laiss&#233; l export de cot&#233; pour l'instant

spike

mrdep1978 · Answer

Oups, je n'avais pas vu que c'&#233;tait du .Net. Je t'ai fait une r&#233;ponse VB6/VBA ...

spike62300 · Answer

ah ok jcomprends mieux ^^

spike

HEEEEEEELP EXCEL

4 réponses

Discussions similaires