Datagrid et Excel

[Résolu]
Signaler
Messages postés
75
Date d'inscription
samedi 26 juillet 2003
Statut
Membre
Dernière intervention
21 mai 2014
-
Messages postés
75
Date d'inscription
samedi 26 juillet 2003
Statut
Membre
Dernière intervention
21 mai 2014
-
Bonjours à tous, je cherche le moyen d'envoyer des informations d'un datagrid dans Excel. Je travaille avec Visual basic 6. Quelqu'un aurait un bout de code ou quelque chose a ce sujet ?

Voici ou j'en suis rendu. C'est la base je le sais mais tout le code que j'ai essayer par la suite n'a rien donné de concret

Dim applicationExcel As Excel.Application 'Application Excel
Dim classeurExcel As Excel.Workbook 'Classeur Excel
Dim feuilleExcel As Excel.Worksheet 'Feuille Excel


'Ouverture de l'application
Set applicationExcel = CreateObject("Excel.Application")


'Ajout d'un classeur car à l'ouverture d'Excel il n'y a aucun classeur d'ouvert
applicationExcel.Workbooks.Add 'Ceci n'est nécessaire que si vous n'ouvrez pas un fichier existant


'Récupération du classeur par défaut
Set classeurExcel = applicationExcel.ActiveWorkbook


'Récupération de la feuille par défaut
Set feuilleExcel = classeurExcel.ActiveSheet

'Fait la feuille Excel visible
applicationExcel.Visible = True

Merci bcp de tout l'intérêt que vous y porterez
Sylvain

3 réponses

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
Bonjour,

Vas voir ce code , c'est surement ce que tu cherches.



http://www.vbfrance.com/forum.v2.aspx?id=531598



jpleroisse



Si une réponse vous convient, cliquez Réponse Acceptée.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Messages postés
132
Date d'inscription
vendredi 23 juillet 2004
Statut
Membre
Dernière intervention
11 mai 2010

Bonjour,

Je viens de créer une petite appli Vb2005, l'utilisateur choisi un critère et le résultat s'affiche dans un datagrid (via dataset).
Si besoin, il peut exporter ces données dans Excel.
Voici le code que j'utilise, je pense que tu dois pouvoir en tirer quelquechose :

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

' Déclarations pour classeur Excel
Dim Classeur As Excel.Workbook
Dim Feuille As Excel.Worksheet
Dim NomClasseur As String = "X:\PublicationVB\InterrogationListes\Résultat_Interro_Listes.xls"
Dim Pstr As String ' Affichage du poids en tonne

Appli.Visible = True ' Application visible
Appli.DisplayAlerts = False ' Inactivation des alertes
Appli.ScreenUpdating = False ' Inactivation de l'affichage

' Ouverture du classeur
Try
Appli.Workbooks.Open(NomClasseur)
Catch ex As Exception
MsgBox("***** IMPOSSIBLE D'OUVRIR LE FICHIER EXCEL *****")
End Try

' Initialisation Classeur et Feuille Excel
Classeur = CType(Appli.Workbooks(1), Excel.Workbook)
Feuille = CType(Classeur.Worksheets(1), Excel.Worksheet)

Dim ids As Short ' Compteur de lignes DataSet (row)
Dim jds As Short ' Compteur de colonnes DataSet (column)
i = 2 ' Compteur de lignes dans classeur
j = 1 ' Compteur de colonnes dans classeur

' Chargement des cellules à partir du DataSet
With ds.Tables("REF_PS")
For ids = 0 To .Rows.Count - 1
For jds = 0 To .Columns.Count - 1
Feuille.Cells(i, j) = .Rows(ids)(.Columns(jds))
j = j + 1
Next
i = i + 1
j = 1
Next
End With
Appli.ScreenUpdating = True ' Réactivation de l'affichage

Pstr = Poids & " TO"
Appli._Run2("Formattage") ' Exécution macro Excel
Feuille.Cells(i, 1) = "TOTAL"
Feuille.Cells(i, 10) = Pstr

End Sub

Bon(nes) courage, développement, salutations...
(choisissez ce qui vous convient) dp
Messages postés
75
Date d'inscription
samedi 26 juillet 2003
Statut
Membre
Dernière intervention
21 mai 2014

Merci bcp a tout les deux. C'est en plein ce que j'avais de besoin.

Longue vie a vous!!

Sylvain