Datagrid et ExcelRésolu

Question

Bonjours &#224; 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&#233; 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 &#224; l'ouverture d'Excel il n'y a aucun classeur d'ouvert
applicationExcel.Workbooks.Add 'Ceci n'est n&#233;cessaire que si vous n'ouvrez pas un fichier existant


'R&#233;cup&#233;ration du classeur par d&#233;faut
Set classeurExcel = applicationExcel.ActiveWorkbook


'R&#233;cup&#233;ration de la feuille par d&#233;faut
Set feuilleExcel = classeurExcel.ActiveSheet

'Fait la feuille Excel visible
applicationExcel.Visible = True

Merci bcp de tout l'int&#233;r&#234;t que vous y porterez
Sylvain

jpleroisse · Accepted Answer

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&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

dp_favresa · Answer

Bonjour,

Je viens de cr&#233;er une petite appli Vb2005, l'utilisateur choisi un crit&#232;re et le r&#233;sultat s'affiche dans un datagrid (via dataset).
Si besoin, il peut exporter ces donn&#233;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&#233;clarations pour classeur Excel
        Dim Classeur As Excel.Workbook
        Dim Feuille As Excel.Worksheet
        Dim NomClasseur As String = "X:\PublicationVB\InterrogationListes\R&#233;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 &#224; 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&#233;activation de l'affichage

        Pstr = Poids & " TO"
        Appli._Run2("Formattage")       '   Ex&#233;cution macro Excel
        Feuille.Cells(i, 1) = "TOTAL"
        Feuille.Cells(i, 10) = Pstr

    End Sub

Bon(nes) courage, d&#233;veloppement, salutations...
(choisissez ce qui vous convient)                   dp

Goth25 · Answer

Merci bcp a tout les deux. C'est en plein ce que j'avais de besoin.

Longue vie a vous!! 

Sylvain