EXPORTER LE CONTENU D'UN DATAGRID VERS EXCEL OU N IMPORTE QUELLE AUTRE FICHIER TABULÉ

Commentaire de alprogrammeur le 17/11/2005 09:10:30

Je cherche comment exporter un fichier csv    
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

Commentaire de surfzoid le 22/06/2006 16:16:15

mais bon sang qui mets des notes sans dire quoi que ce soit, ont se demande vraiment si le code a été utiliser
lol

Commentaire de surfzoid le 12/07/2006 23:16:23

Ben il marche pas mon bout de code pour faire un csv ?
C'est avec VS 2003 mais je pense qu'il fonction aussi avec VS2005

Commentaire de surfzoid le 14/07/2006 12:11:36

je ne sais quelle note cela vaut (lol( mais as tu essayer les explication qui sont donnée ici :
http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=375554&SiteId=1

Commentaire de surfzoid le 25/04/2007 11:34:38

BindingContext = Context des donnée liée
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"

Commentaire de telodoo le 17/10/2007 19:12:21

J'ai perdu mon temps a tester le code sous VS2005, ca ne passe pas. ++

Commentaire de RoNaaK le 09/01/2008 14:30:48

Sous VS 2k5, petite adaptation necessaire;
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 ;)

Commentaire de sushi59520 le 25/11/2008 15:23:05

Merci bcp pour ce code, il m'a été très utile.
Cependant, est-il possible de récupérer dans le fichier Excel les titres de mes colonnes?
Si oui, comment ?
Merci d'avance

Commentaire de bougachouch le 20/01/2009 16:33:59

mais ,ça marche pas pour moi je sais pas pk ,il me donne comme message d'erreur excel et xsl non reconnu!!

Commentaire de Xavleb le 26/01/2009 11:18:44

J'ai un pb, je suis en developpement web et j'ai comme message pour (Me.Grille.Item(i, 1)) :
'item n'est pas un membre de system.web.ui.webcontrol.datagrid'
Quelqu'un sait quel controle utiliser à la place???

Commentaire de Ouggada le 05/02/2009 14:25:16

Un pti 9 car mes professeur m'ont toujours dit que la note parfaite n'existait pas....
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!!

Commentaire de surfzoid le 05/02/2009 15:45:49

Merci a toi !
C'est vrai je code vraiment trop a l'arache, lol, c est l habitude de produire toujours plus vite (mauvaise habitude d'ailleurs).

Commentaire de surfzoid le 25/05/2009 11:17:18

Tu passe par du COM/OCX , style VB6/VBScrip, ton code ne fonctionnera pas sous Linux, de plus tu vas subir les mésaventures des différentes version de MS Office, c'est pour cela que a l'époque, j avais choisit la solution du csv, facile a adapter au évolution du .Net et des systèmes ....