Discussion :

[sebac]

Bonjour
je voudrais écrire dans un fichier excel à partir d'un datatable sans forcément passer par un datagrid comme me le propose tous les tutos que j'ai lu jusqu'ici.
Quelqu'un aurait-il un lien ou une astuce pour ce novice que je suis en vb.net?

[bidou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
            appExcel = New Excel.Application
            'création du classeur
            wbk = appExcel.Workbooks.Add
            wsh = CType(wbk.Worksheets(1), Excel.Worksheet)
            appExcel.Visible = True
            'désignation de "A1" comme cellule de base
            CellBase = CType(wsh.Cells(1, 1), Excel.Range)
            Dim cmptLig As Integer = 0
            Using Lecteur As New DataTableReader(Me.Biblio1DataSet.Tables(0))
                Do While Lecteur.Read()
                    For cmpt As Integer = 0 To Lecteur.FieldCount - 1
                        CellBase.Offset(cmptLig, cmpt).Value = Lecteur(cmpt).ToString()
                    Next
                    cmptLig += 1
                Loop
            End Using