Exporter un datagridview vers excel

Soyez le premier à donner votre avis sur cette source.

Vue 32 915 fois - Téléchargée 5 354 fois

Télécharger le projet
Commenter

Description

le code exporte un DataGridView dans un fichier Excel
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
YuneSh Messages postés 22 Date d'inscription lundi 3 janvier 2011 Statut Membre Dernière intervention 5 août 2011
22 juil. 2011 à 23:07
merci :)
yourisparrow Messages postés 7 Date d'inscription mardi 14 avril 2009 Statut Membre Dernière intervention 21 avril 2010
21 avril 2010 à 00:32
c faisable avec un streamwriter.
sourourbe Messages postés 3 Date d'inscription mercredi 31 décembre 2008 Statut Membre Dernière intervention 16 mars 2009
24 mars 2010 à 15:09
Bonjour,

Merci beaucoup pour ce code. Est ce que quelqu'un peut m'expliquer comme exporter un DataGridView vers un fichier Word?
Jomba Messages postés 58 Date d'inscription mercredi 2 novembre 2005 Statut Membre Dernière intervention 22 juillet 2010
6 nov. 2009 à 15:41
ce ne serait pas plus simple comme ça?

Public Sub ExporterVersExcel(ByRef Dgv As DataGridView)

Dim objXL As Excel.Application
Dim objClasseur As Excel.Workbook
Dim objFeuille As Excel.Worksheet

Try
' Lancer Excel
objXL = New Excel.Application
objXL.DisplayAlerts = False
objClasseur = objXL.Workbooks.Add(1)
objFeuille = objClasseur.Sheets(1)

Dim iLigne As Integer
' Récupérer l'élément actuellement sélectionné
iLigne = Dgv.Rows.GetFirstRow(DataGridViewElementStates.Selected)
' Tout sélectionner
Dgv.SelectAll()
' Le mettre en mémoire ClipBoard
Clipboard.SetDataObject(Dgv.GetClipboardContent())
' Remettre la sélection précédente
While Dgv.Rows.GetFirstRow(DataGridViewElementStates.Selected) > -1
Dgv.Rows(Dgv.Rows.GetFirstRow(DataGridViewElementStates.Selected)).Selected = False
End While
Dgv.Rows(iLigne).Selected = True

' Coller le datagrid dans Excel
objFeuille.Cells.PasteSpecial(Excel.XlPasteType.xlPasteAll, Excel.XlPasteSpecialOperation.xlPasteSpecialOperationAdd)

' Rendre visible Excel
objXL.Visible = True
objXL.UserControl = True
Catch ex As Exception
MessageBox.Show(ex.ToString())
End Try
End Sub
cs_yasmina28 Messages postés 1 Date d'inscription samedi 12 septembre 2009 Statut Membre Dernière intervention 14 septembre 2009
14 sept. 2009 à 00:18
Bonjour
j'ai essaé ce code mais j'ai un petit problème je crois que j'ai oublié de rajouter un dll mais je sais pas laquelle
le problème est: quand j'éxécute il ne reconnait pas la méthode SaveAs
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (rudhf)