Discussion :

[mactwist69]

Bonjour tout le monde.

J ai recuperer le code qui suit dans une source sur.

Imports System.IO
Imports Microsoft.Office

Private Sub plop()

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)

' ici on compte le nombre de lignes et de colonnes du datatable
Dim nbrLigne As Integer = Me.ds_term_warr.Tables(0).Rows.Count - 1
Dim nbrColon As Integer = Me.ds_term_warr.Tables(0).Columns.Count - 1
Dim x, y As Integer

For x = 0 To nbrColon
' ici on prends le titre des colonnes du datatable
xlSheet.Cells(1, x + 1) = Me.ds_term_warr.Tables(0).Columns(x).ColumnName
' on mets la première ligne en gras
xlSheet.Rows(1).Font.Bold = True

' pour chaque colonne et chaque ligne on transfert les données
For y = 0 To nbrLigne
xlSheet.Cells(y + 2, x + 1) = Me.ds_term_warr.Tables(0).Rows(y).Item(x).ToString
Next
Next

' ici on affiche les résultat dans excel
xlSheet.Application.Visible = True
' on peut sauvegarder notre document sur le disque
xlSheet.SaveAs("C:\SCT terminal Thales.xls")
' on quitte l'application et on détruit les objets
xlApp.Quit()
xlSheet = Nothing
xlBook = Nothing
xlApp = Nothing

End Sub

Il se trouve que quand je le fais deux fois de suite, l application ne se ferma pas automatiquement par ce qu il me demande si je veux ecraser... Ce qui m a permis de savoir que ca marche plus ou moins....

Par ce que mon probleme... c est que quand j ouvre mon fichier XLS, il y a comme un bug... Ca n affiche rien du tout. Excel se lance... Mais l interieur est vide.

Si il me manquait une librairie, il devrai me le dire a l execution ou a la compilation?

Le code ne ferme t il pas quelque chose comme il faut?

Merci

[mactwist69]

Dans le doute j ai ajouter:

xlApp = New Excel.Application

ici:

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet


xlApp = New Excel.Application


xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook)
xlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet)

Et ca marche.