Discussion :

[olbi]

Bonjour,

J'aimerais que dans mon application, à chaque fois que l'on affiche un tableau (datagrid,listview), il y ai un menu contextuel qui porpose de soit l'imprimer, soit l'exporter vers excel, soit l'exporter vers Word. J'ai vu plusieurs exmple d'exportation vers excel mais c'est toujours en ASP.NET et je développe en vb.net.
Peut-etre existe-t-il quelque chose de déjà écrit (même payant). D'avance merciiiiii

[HULK]

export excel rapide (si tu as beaucoup de données dans ton dg)

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
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
 
Dim xlApp As Excel.Application
        Try
            xlApp = GetObject(, "excel.application")
        Catch
            xlApp = New Excel.Application
        Finally
            xlApp.Visible = False
        End Try
 
        'ajout d'une page et sélection 
        Dim xsSoldesComptes5 As Excel.Worksheet = xlApp.Workbooks.Add.ActiveSheet
        'requete serveur 
        Try
            With xsSoldesComptes5.QueryTables.Add(Connection:= _
            "ODBC;DRIVER=SQL Server;SERVER=KAA;Integrated Security=SSPI;" & _
            "APP=Microsoft® Query;DATABASE=Brazza;Trusted_Connection=Yes" _
            , Destination:=xsSoldesComptes5.Range("A1"))
 
                .CommandText = "ESSAI_1" ' ou la requete select * from machin si vous n'avez pas de proc 
 
                .Name = "SoldesComptes5"
                .FieldNames = True
                .RowNumbers = True
                .FillAdjacentFormulas = False
                .PreserveFormatting = True
                .RefreshOnFileOpen = False
                .BackgroundQuery = True
                .RefreshStyle = Excel.XlCellInsertionMode.xlOverwriteCells
                .SavePassword = False
                .SaveData = False
                .AdjustColumnWidth = True
                .RefreshPeriod = 0
                .PreserveColumnInfo = True
                .Refresh(BackgroundQuery:=False)
            End With
            ' affichage 
            xlApp.Visible = True
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

tu as ce code là aussi (si tu as pas beaucoup de données) :

http://faqvbnet.developpez.com/?page...dgrid_to_excel

[olbi]

Ok mais je ne rempli pas le datagrid avec une requete SQL. Je remplis le tableau ligne par ligne.

Dim row1 As String() = {"N° succursale","N° article","Libellé1"....}

Me.dgvEcart.Rows.Add(row1).

Je verais plutot un parcours de tous le tableau, ligne par ligne, cellule par cellule.