Ecrire dans un fichier Excel

Version imprimable

Bonjour à tous,

J'ai suivi le tuto http://faqvbnet.developpez.com/?page...dgrid_to_excel afin de pouvoir remplir un fichier Excel

Si je fais ça,
Code:

1 2 3 4 5 6 7 8 9 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet xlApp = CType(CreateObject("Excel.Application"), Excel.Application) xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook) xlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet) xlSheet.Cells(1, 1) = 13
ça marche correctement, mais si je rajoute une boucle toute bête telle que
Code:

1 2 3 For j As Integer = 1 To 13 xlSheet.Cells(0, j).Value2 = 1 Next
j'ai un message d'erreur COMException

Citation:

Exception de HRESULT : 0x800A03EC

J'ai aussi essayé avec un .Cells(0,j) = 1, la même erreur est levée...

Quelqu'un aurait-il une idée d'où cela peut-il venir ?
Je précise que j'ai importé Interop.Office.Excel v11 et que sur mon poste, il s'agit de Excel 2003...

Par avance, MERCI

@+

19/01/2011, 17h49
chrismonoye

Bonsoir,
la case 0 n'existe pas sur une page excel.
Les lignes (ou colonnes) commencent à 1.
La library 11 est la bonne pour excel 2003, je crois.
19/01/2011, 20h03
MABROUKI

excel,index

bonjour
comme l'as dit tomlev,les index dans excel commence toujours à 1(pas comme dans vb.net ou il commence à zero).
attention quand on surfe entre com et .net............
bon code

Bonjours a tous,

Afin d'envoyé le contenu d'un DataGridView dans un fichier excel, j'ai utilisé le meme code que koyot3 qui fonctionne.

Mon probleme c'est que je voudrais que les données de mon DataGridView soit envoyé dans un fichier excel deja existant et choisi par l'utilisateur au lieu de crée un nouveau classeur.

J'ai regarder plusieurs tuto sur internet mais j'ai reussi a trouvé comment faire.
J'avais pensé utilisé GetObject()

Mon code :
Code:

1 2 3 4 5 6 7 8 9 Dim app As New Excel.Application Dim Wbook As Excel.Workbook Dim Wsheet As Excel.Worksheet app = CType(GetObject("D:\Users\Alexandre\Desktop\specialite\" &Me.listepays.Text &".xlsx"),Excel.Application) Wbook = CType(excel.Workbooks.Add, Excel.Workbook) Wsheet = CType(xlsBook.Worksheets(1), Excel.Worksheet) .....
mais des que je lance mon script je reçoit une erreur (en gras sur mon code) avec l'exception suivante :

Citation:

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 : Cette interface n’est pas prise en charge (Exception de HRESULT : 0x80004002 (E_NOINTERFACE)).

Je n'arrive pas a trouver d'ou vient le probleme Si quelqu'un aurait une idée si vous plais

Merci a tous

Bonjour,
à tester, en adaptant l'import et le chemin du fichier excel, bien-sûr :

Code:

Imports xls = Microsoft.Office.Interop.Excel

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim xlApp As New xls.Application
        Dim xlBook As xls.Workbook
        Dim xlSheet As xls.Worksheet
 
        'xlApp = CType(CreateObject("Excel.Application"), xls.Application)
        xlBook = xlApp.Workbooks.Open(Application.StartupPath & "\Classeur1.xlsx")
        xlSheet = CType(xlBook.Worksheets(1), xls.Worksheet)
 
        For j As Integer = 1 To 13
            Dim castRange As xls.Range = CType(xlSheet.Cells(1, j), xls.Range)
            castRange.Value = j
        Next
 
        xlApp.Visible = True
    End Sub

20/01/2011, 12h52
Brialex

Bonjours

j'ai essayé de resoudre mon probleme par different moyen j'ai essayé en adaptant le code de chrismonoye ou en essayant d'utiliser des file.open ...

Mais mon erreur persiste =(

ecrire dans fichier excel

bonjour
supprime ce cast inutile ,en interop.excel.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
'corrige cette ligne (cast inutile)
'xlSheet = CType(xlBook.Worksheets(1), xls.Worksheet)
'remplace par :
xlSheet =xlBook.Worksheets(1)
'initialise l'interface range avant d'entrer dans la boucle
Dim castRange As xls.Range =nothing
 For j As Integer = 1 To 13
           'pas besoin de caster un objet excel à autre objet excel
           castRange = xlSheet.Cells(1, j)
           castRange.Value = j
        Next

bon code............

21/01/2011, 11h36
koyot3

Citation:

Envoyé par chrismonoye

Bonsoir,
la case 0 n'existe pas sur une page excel.
Les lignes (ou colonnes) commencent à 1.
La library 11 est la bonne pour excel 2003, je crois.

:ccool: merci

Citation:

Envoyé par MABROUKI

bonjour
supprime ce cast inutile ,en interop.excel.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
'corrige cette ligne (cast inutile)
'xlSheet = CType(xlBook.Worksheets(1), xls.Worksheet)
'remplace par :
xlSheet =xlBook.Worksheets(1)
'initialise l'interface range avant d'entrer dans la boucle
Dim castRange As xls.Range =nothing
 For j As Integer = 1 To 13
           'pas besoin de caster un objet excel à autre objet excel
           castRange = xlSheet.Cells(1, j)
           castRange.Value = j
        Next

bon code............

Oui c'est bon sa marche Merci BEAUCOUP a toi est a chrismonoye pour votre aide