EXPORTER LE CONTENU D'UN DATAGRID VERS EXCEL OU N IMPORTE QUELLE AUTRE FICHIER T
surfzoid
Messages postés
463
Date d'inscription
vendredi 15 août 2003
Statut
Membre
Dernière intervention
21 avril 2010
-
16 août 2005 à 15:57
daless94 Messages postés 5 Date d'inscription dimanche 27 avril 2008 Statut Membre Dernière intervention 25 mars 2011 - 25 mars 2011 à 17:19
daless94 Messages postés 5 Date d'inscription dimanche 27 avril 2008 Statut Membre Dernière intervention 25 mars 2011 - 25 mars 2011 à 17:19
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/32896-exporter-le-contenu-d-un-datagrid-vers-excel-ou-n-importe-quelle-autre-fichier-tabule
https://codes-sources.commentcamarche.net/source/32896-exporter-le-contenu-d-un-datagrid-vers-excel-ou-n-importe-quelle-autre-fichier-tabule
25 mars 2011 à 17:19
Je comprend tout ce que tu fais mais je n'arrive pas à utiliser :
Dim DsAuthors1 As DataSet
Dim tablename
tamponxls = vbNullString
iCnt = Me.BindingContext(DsAuthors1, tablename).Count
tablename doit etre declaré en quoi ?
Et moi je dispose de 5 colonne mais de 15 lignes alors des que je veux intervertir les i avec les Integer ça me donne des erreurs :/
Merci
19 août 2009 à 13:37
19 août 2009 à 10:19
18 août 2009 à 12:25
18 août 2009 à 09:44
15 août 2009 à 13:38
http://www.vbfrance.com/codes/EXPORTER-CONTENU-DATAGRIDVIEW-VERS-EXCEL-IMPORTE-QUELLE-AUTRE_50445.aspx
Il est a noter que la modernisation remplace le vieux DataGrid de VS 2003 par le nouveau DataGridView de VS2005/2008
15 août 2009 à 12:41
Cela fait très, très longtemps que j'ai mis le nez dans ce code , il y a peut être comme l'expliquer erokage, deux fois la boite de dialogue, ce qui peut être la source de ton problème.
Nota : a l'époque, VS 2003, les datagrid and co, c'était pas terrible comparer a maintenant avec VS2008/MonoDevelop, il y a beaucoup plus simple et efficace maintenant pour cracher un .csv.
J'essayerai de la refaire, mais je suis passer au C# depuis plusieurs années.
Petit sondage, qui voudrai une source simplifiée pour le même résultat ?
15 août 2009 à 09:18
Mais je vais signaler un bug, si on peut appeler ça ainsi:
lorsqu'on enregistre le fichier une première fois depuis le début de l'application, il enregistre un fichier vide. Est-ce que quelqu'un pourrait m'aider à résoudre ce problème.
9 juil. 2009 à 12:08
9 juil. 2009 à 10:55
ça marche trèès bien merci pour tes efforts
25 mai 2009 à 11:34
25 mai 2009 à 11:17
25 mai 2009 à 09:56
Dim c, j As Integer
Dim xl As New Object
xl = CreateObject("Excel.application")
xl.visible = True
xl.workbooks.Add()
For c = 0 To DataGridView1.Columns.Count - 1
xl.cells(c + 1, 1) = DataGridView1.Columns(c).Name
Next
For l As Integer = 0 To DataGridView1.Rows.Count - 1
For c = 0 To DataGridView1.Rows.Count - 1
xl.cells(l + 1, j + 1) = DataGridView1.Rows(l).Cells(c).Value
Next c
Next l
Tout de suite le fichier excel s'ouvre mais je ne suis pas parvenu a récupérer tout le datagrid avec le bonne mise en page
ps:si quelqu'un a une idée
5 févr. 2009 à 15:45
C'est vrai je code vraiment trop a l'arache, lol, c est l habitude de produire toujours plus vite (mauvaise habitude d'ailleurs).
5 févr. 2009 à 14:28
oh mer noire!!
Merci quand meme pour cette source!!
Tcho!!
5 févr. 2009 à 14:25
Cela étant voila un code super bien fait (pour les initiés en tous cas car cela manque un peu de commentaires) qui va bien me servir.
Cependant petite question : à quoi correspond le "DsAuthors1" car j'ai beau chercher nada!!
Sur ce bonne continuation et courage il n'y a pas que des leechers...
A bon entendeur salut!!
27 janv. 2009 à 09:55
Xavleb : tu tombe sur un de mes mauvai jours et vu le niveau de question je te conseil de d abord jetté un coup d'oeil a la section tutorial
26 janv. 2009 à 11:18
'item n'est pas un membre de system.web.ui.webcontrol.datagrid'
Quelqu'un sait quel controle utiliser à la place???
20 janv. 2009 à 18:35
20 janv. 2009 à 16:33
25 nov. 2008 à 16:12
donc un truc du genre
for each datagridcolum Clm in mydatagriview.collums
devrait faire l'affaire
25 nov. 2008 à 15:23
Cependant, est-il possible de récupérer dans le fichier Excel les titres de mes colonnes?
Si oui, comment ?
Merci d'avance
11 janv. 2008 à 20:35
9 janv. 2008 à 14:30
iCnt = 12
Car pour mon application je n'exporte que 12 mois, pas besoin de verifier combien il y en aura.
Sinon, dommage que sa n'exporte pas l'intitulé des colonnes.
Bug constaté: la boite de dialogue pour choisir le nom, le format et l'endroit où l'on veut l'enregistrer apparait deux fois consécutive, comme si la 1ere n'était pas pris en compte.
Après verification du code, effectivement lors de la vérifcation de la condition :
If saveFileDialog1.ShowDialog() = DialogResult.OK Then
L'appli relance la boite de dialogue, donc j'ai supprimer la ligne précédente:
saveFileDialog1.ShowDialog()
Et voila.
Je n'ai tester qu'au format excel, je suppose que pour les autres formats il n'y ai aucun bug (je ne voit pas de raison)
PS: pensez aussi a adapter les lignes:
tamponxls = tamponxls & (Me.Grille.Item(i, 1)) & vbTab
tamponxls = tamponxls & (Me.Grille.Item(i, 2)) & vbTab
tamponxls = tamponxls & (Me.Grille.Item(i, 3)) & vbTab & vbCr
en fonction de votre tableau, c'est comme pour iCnt = 12, 12 car j'avai 12 lignes
Ici j'ai 3 colonnes (sans compter la colonnes de ma clef primaire qui est la N°0) mais qui n'est pas pris en compte dans ce code. Donc supprimer celle que vous avez en trop, ou rajoutez en si besoin. Et n'oublier pas le & vbTab & vbCr sur la derniere ligne qui permet de faire un retour a la ligne sinon votre tableau ne sera pas disposé en colonne mais sur une seule ligne.
Voila, j'espere que pour ceux qui n'ont pas réussit à l'adapter sous VS 2005 n'auront plus de problème.
Merci surfzoid pour ce code ;)
18 oct. 2007 à 00:07
en effet le principe est trés simple, rudimentaire et peut performant, car en fait il consiste a scuté les cellule d'une grille de donnée une par une, en recupérer les valeurs au fur et amesure et stocké ces valeur dans une string en concatenan les chaine, chaque cellule concaténé ressemble a :
"val cellule & separateur, ou séparateur peut etre un ; ou une , ou un tab, as yu want
puis on ecrit le text ds un fichier.
Pour des question de performance je propose de ramplacer la "string" par une system.text.stringbuilder
c'est mieu
17 oct. 2007 à 19:12
29 juil. 2007 à 13:26
25 avril 2007 à 11:34
DsAuthors1 = Dataset de contenu des données d'une base de donnée
Tablename = nom de la table ds la BdB
DataGrid1 = Grille de donnée liée a une table de Bdb
Cela reviendrait au meme de dire
iCnt = Me.DataGrid1.items.Count 'Mais ne garentit pas que le dataset a été "Update"
25 avril 2007 à 10:38
L'objet de type datasource passé en parametre n'est pas null, je n'arrive pas à identifier d'ou viens le probleme.
AlPROGRAMMEUR as tu résolu ton problème ?
14 juil. 2006 à 12:11
http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=375554&SiteId=1
12 juil. 2006 à 23:17
12 juil. 2006 à 23:16
C'est avec VS 2003 mais je pense qu'il fonction aussi avec VS2005
10 juil. 2006 à 19:42
S'il vous plai si vs avé déja trouver la solution d'export de données d'un datagrid vers excel, faite moi signe car vs allez me sauver la vie.
safé 4 mois que je cherche.
skymohamed@caramail.com
merci d'avance
22 juin 2006 à 16:16
lol
28 nov. 2005 à 13:52
EXPORTER LE CONTENU D'UN DATAGRID VERS EXCEL OU N IMPORTE QUELLE AUTRE
et exporter un fichier csv vers je ne sais quoi d'ailleur
donc la source est issue d un DATAGRID (grille qui affiche le contenu d'une base de donnée) et exporter dans un fichier texte (cvs,xls, rtf ou ce que tu veux ça reste plus ou moins du texte)
17 nov. 2005 à 09:10
mon prob, je sais pas ce que signifie 'bindingcontext'
et savefiledialog
il me met erreur
merci
Dim i
Dim iCnt As Integer
Dim tamponxls As String
tamponxls = vbNullString
iCnt = Me.BindingContext(DsAuthors1, tablename).Count
For i = 0 To iCnt
If i = iCnt Then Exit For
tamponxls = tamponxls & (Me.DataGrid1.Item(i, 1)) & vbTab
tamponxls = tamponxls & (Me.DataGrid1.Item(i, 2)) & vbTab
tamponxls = tamponxls & (Me.DataGrid1.Item(i, 3)) & vbTab
tamponxls = tamponxls & (Me.DataGrid1.Item(i, 4)) & vbTab
tamponxls = tamponxls & (Me.DataGrid1.Item(i, 5)) & vbTab
tamponxls = tamponxls & (Me.DataGrid1.Item(i, 6)) & vbTab
tamponxls = tamponxls & (Me.DataGrid1.Item(i, 7)) & vbTab
tamponxls = tamponxls & (Me.DataGrid1.Item(i, 8)) & vbTab & vbCr
Next i
RichTextBox1.Text = tamponxls
' Displays a SaveFileDialog so the user can save the Image
' assigned to Button2.
Dim saveFileDialog1 As New SaveFileDialog
saveFileDialog1.Filter = "Excel|*.xls|Texte|*.txt|Richtext|*.rtf"
saveFileDialog1.Title = "Sauver le fichier exporter sous ?"
saveFileDialog1.ShowDialog()
If saveFileDialog1.ShowDialog() = DialogResult.OK Then
RichTextBox1.SaveFile(saveFileDialog1.FileName, _
RichTextBoxStreamType.PlainText)
End If
16 août 2005 à 15:57
Merci à toi "étranger"