Discussion :

[Crowww]

Bonjour, j'ai un petit problème pendant mon stage, je dois enregistrer les données présentes dans mon tableau (datagridview) en fichier excel. Mais hélas et malgré de multiples recherches et essai, je ne trouve absolument pas comment faire. Pouvez-vous me venir en aide? Je suis sous Visual Studio 2010.

Merci d'avance!

[_Ez3kiel]

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

C'est pour un DataGrid, mais je suppose que le DataGridView implémente les fonctions de son prédécesseur ... Et apparemment ce n'est pas pour une quantité excessive de données.

Sinon sur Google on trouve plein de choses, vrai de vrai.
(Par ex: http://vb.net-informations.com/excel...w_to_excel.htm pas testé, mais c'est qu'un exemple ...)

[DocBS]

J'ai adapté la solution que j'ai trouvé pour le transfert d'un DataTable vers Excel.
( voir ici :
http://http://www.developpez.net/forums/d747446/dotnet/developpement-windows/windows-forms/exporter-datatable-vers-excel/ )

Je passe par une RichTextBox (qui doit rester invisible) dont on peut facilement copier le contenu dans le presse-papier.

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
Dim out As String
Dim excelapp As New Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
 
 
out = String.Join(vbTab, Me.DataGridView1.Columns.Cast(Of DataGridViewColumn)().Select(Function(d) d.Name).ToArray())
me.RichTextBox1.AppendText(out + vbNewLine)
For Each rw As DataGridViewRow In Me.DataGridView1.Rows
     out = String.Join(vbTab, rw.Cells.Cast(Of System.Windows.Forms.DataGridViewTextBoxCell)().Select(Function(s) System.Convert.ToString(s.Value)).ToArray)
     out = out.Replace(",", ".")
     me.RichTextBox1.AppendText(out + vbNewLine)
Next
 
wb = excelapp.Workbooks.Add
ws = wb.Worksheets.Add()
me.RichTextBox1.SelectAll()
me.RichTextBox1.Cut()
ws.Range("A1").Select()
ws.Paste()

[Kropernic]

Si on ne doit pas s'embêter à formater le document Excel, voici une méthode simple et plus rapide que de copier cellule par cellule.

Code :

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

1
2
3
4
5
 
monDGV.SelectAll()
Clipboard.SetDataObject(monDGV.GetClipboardContent)
'initialisation d'Excel
xlSheet.Paste(xlSheet.Range("A1"))

où monDGV est un contrôle de type DataGridView et xlSheet est un objet de type Microsoft.Office.Interop.Excel.Worksheet.

Pour ce qui est de l'initialisation d'Excel, les réponses ont déjà été données.

P.S. : Ne pas oublié à la fin de soit rendre Excel visible pour que l'utilisateur puisse fermer le processus lui-même, soit de libérer les ressources utilisées pour Excel sinon le processus ne se fermera jamais (sauf au shutdown de la machine).

[DocBS]

J'ai testé la solution de Kropernic avec un DataGridView rempli de Doubles.
La commande Paste ne colle alors pas correctement les valeurs dans la feuille Excel.
Cependant, si je fais ensuite un CTRL-V pour coller les mêmes données manuellement,
les valeurs s'affichent correctement dans la feuille. Mystère !

[Crowww]

Excusez moi de ne pas avoir répondu tout de suite.
Alors j'ai fais plusieurs test, je pense que je m'y rapproche cependant j'ai des erreurs qui surviennent, voila mon code d'enregistrement :

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
 
Private Sub XMLToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnregistrerToolStripMenuItem.Click
        Dim ds As DataSet = DataGridView1.DataSource
        Try
            With SaveTab
                .Title = "Enregistrer"
                .InitialDirectory = "\\"
                .Filter = "Fichier XML (.xml)|*.xml|Tous les fichiers|*.*"
                .DefaultExt = "xml"
                .AddExtension = True
            End With
 
            If SaveTab.ShowDialog = Windows.Forms.DialogResult.OK Then
                If SaveTab.FileName.ToString <> "" Then
                    ds.WriteXml(SaveTab.FileName, XmlWriteMode.IgnoreSchema)
                End If
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Cependant il me génère une erreur à le ligne :

Code :

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

1
2
 
ds.WriteXml(SaveTab.FileName, XmlWriteMode.IgnoreSchema)

Enfin je pense que ce doit être un problème de création de fichier, car même s'il à un problème de récupération de données, il devrait en principe me créer au moins un fichier, chose qu'il ne fait pas!