[VB .NET] IMPORTER À PARTIR D'EXCEL VERS UNE DATAGRIDVIEW

Commentaire de elect31 le 15/04/2007 21:30:27

Merci pour ta contribution,
mais chez moi ça ne fonctionne pas (je suis débutant) : l'"imports Excel" n'est pas reconnu (des ondulations vertes dessous) :message d'erreur:"l'espace de nom dans les imports Excel ne contient aucun membre public ou est introuvable...Vérifiez que l'espace ... est défini ou contient ... 1 membre public" ???
J'ai mis tout ton code dans une classe..
merci de tes explications si c'est possible
elect31

Commentaire de Musau le 17/07/2007 16:32:12

Bonjour à tous!
Quelqu'un pourra m'aider en vb.net,je n'arrive à afficher mes données dans le datagrid qui ne prend pas la méthode DataBind(),quelqu'un a-t-il une idée sur ça? Bien à vous MKB.Et
Voici mon code

Imports System.Data.SqlClient

Public Class stater
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cmd As SqlCommand
        Dim conn As SqlConnection
        Dim ds As DataSet


        Dim da As SqlDataAdapter

        'Dim Netmon As NetMonClientObj
    
        conn = New SqlConnection()
        cmd = New SqlCommand
        ds = New DataSet()
        da = New SqlDataAdapter()

        conn.ConnectionString = "Data Source=ZORASEC50;Initial Catalog=KlantenFiche;Persist Security Info=True;User ID=sa;Password=Nacka123"
        cmd.Connection = conn
        cmd.CommandText = "select Naam from Customers"
        da.SelectCommand = cmd
        da.Fill(ds, "Customers")
        GridView1.DataSource = ds

Commentaire de bebstylus le 07/10/2008 11:10:05

Je me suis inspiré de ton code et y est apporté une petite modification pour faire gagner du temps à l'éxécution.

Public Sub rempliDatagrid(ByVal NomSheet As String, ByVal DGV As DataGridView)
        TFeuille = CType(TClasseur.Worksheets(NomSheet), Excel.Worksheet)
        'on prend connaissance de la taille du tableau a importer
        Dim indHaut = TFeuille.Range("E5").End(XlDirection.xlUp).Row.ToString + 1
        Dim indBas = TFeuille.Range("E5").End(XlDirection.xlDown).Row.ToString
Dim indGauche = TFeuille.Range("E5").End(XlDirection.xlToLeft).Column.ToString
        Dim indDroite = TFeuille.Range("E5").End(XlDirection.xlToRight).Column.ToString

        Dim range1 As Excel.Range
        Dim range2 As Excel.Range
        Dim cells_excel As Object

        Dim row(indDroite-indGauche) As String
        
        range1 = TFeuille.Cells(indHaut, indGauche)
        range2 = TFeuille.Cells(indBas, indDroite)
        cells_excel = TFeuille.Range(range1, range2).Value2

        Dim j, k As Integer
        For j = 0 To UBound(test, 1) - 1
            For k = 0 To UBound(cells_excel, 2) - 1
                row(k) = test(j + 1, k + 1)
            Next
            DGV.Rows.Add(row)
        Next
    End Sub

Bonne continuation!

Commentaire de erokage le 25/05/2009 14:01:24

Private Sub PictureBox8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox8.Click
        'Transfert du datagrid vers excel'
        Dim c, j As Integer

        Dim xl As New Object

        xl = CreateObject("Excel.application")


        xl = DataGridView1
        xl.visible = True

        xl.workbooks.Add()

        For c = 0 To DataGridView1.Columns.Count - 1

            xl.cells.Item(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.item(l + 1, j + 1) = DataGridView1.Rows(l).Cells.Item(c).Value

            Next c

        Next l


    End Sub