Discussion :

[tayari]

Bonjour/ Bonsoir
je cherche � faire des boutons parcourir qui m'aide � importer (parcourir de 4 fichier excel) des num�ros dans des cellules ( 4 cellule ) dans un fichier excel qu'il est aussi importer(parcourir)sur une datagridview en utilisant vbnet
on note que tout le travail :est sur vbnet et dans la datagridview
les cellules ont un contour noir
aidez moi svp, c'est concernant mon pFe

[simhoney]

Salut,

Je ne comprend pas bien ton probl�me, tu veux r�cup�rer la valeur des 4 cellules dans des variables ?

[tayari]

salut
la probl�me est que je voudrais modifier ce fichier import� , avec des valeurs que je l'importe depuis autre fichiers excel.
les cellules que je voudrais changer leur valeurs sont cadrer en noir ,je veux faire un bouton parcourir pour chaque cellule pour importer les valeurs .

[simhoney]

Voici une piste pour y arriver. Ce n'est peut �tre pas la meilleure m�thode mais pour moi �a fontionne :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Public Class Form2
    Public rIndex As Integer 'ici on déclare une variable qui stockera l'index de la ligne selectionnée
 
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim oSim As New SimFunction 'je fais appel à une classe où mes fonctions les plus utilisées se trouvent
        Dim str As String = "SELECT * FROM matable WHERE codeMatiere='ASME"
        Dim oCmd As New SqlCommand(str, oSim.connectDb)
        Dim oData As New DataTable
        Dim oAdapt As New SqlDataAdapter
 
        oCmd.ExecuteNonQuery()
        oAdapt.SelectCommand = oCmd
        oAdapt.Fill(oData)
 
        DataGridView1.DataSource = oData
 
    End Sub
 
 
    Private Sub DataGridView1_RowHeaderMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.RowHeaderMouseClick
      'ici c'est quand tu cliques sur l'entête d'une ligne de ton datagridview (celle qui t'intéresse dans ton cas)
        rIndex = e.RowIndex
 
        If MsgBox("Voulez-vous exporter cette ligne ?", vbYesNo) = vbYes Then
            Dim val1 As String = DataGridView1.Rows(rIndex).Cells(1).Value ' ici tu vas récupérer la valeur de la 2eme colonnes de la ligne sur laquelle tu as cliqué pour changer de colonne, tu modifies le paramètre de Cells. (on démarre de 0 -> x)
 
          'ensuite arrivé à ce point 
            'tu effectues le traitement pour l'exportation
        End If
    End Sub
End Class

[tayari]

merci pour le code , mais quand j'appuie sur debug il ne fonctionne et j'ai pas r�ussir a tester et juger car il y a plusieurs lignes qui sont soulign�e en bleu, si tu veux tu peut m' envoyer le dossier du programme et de la form

[simhoney]

Tu ne dois pas recopier le code tel quel c'est un exemple, c'est pour �a que c'est soulign� en bleu car SimFuntion est une classe que j'ai cr��e donc elle n'existe pas sur ta machine. Pourrais tu mettre en ligne le code que tu utilises pour remplir ton datagridview? Es tu en VB? Il me faudrait un peu plus d'informations.

[tayari]

voila le code que je utlise pour import� le fichier excel dans la datagridview

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.OpenFileDialog1.FileName = Nothing
        If Me.OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.TextBox1.Text = Me.OpenFileDialog1.FileName
        End If
        Try
            Dim Myconnection As System.Data.OleDb.OleDbConnection
            Dim dataSet As System.Data.DataSet
            Dim Mycommand As System.Data.OleDb.OleDbDataAdapter
            Dim path As String = OpenFileDialog1.FileName
            Myconnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data source=" + path + ";Extended Properties=Excel 12.0")
            Mycommand = New System.Data.OleDb.OleDbDataAdapter("select * from [Feuil1$]", Myconnection)
 
            dataSet = New System.Data.DataSet
            Mycommand.Fill(dataSet)
            DataGridView1.DataSource = dataSet.Tables(0)
 
            Myconnection.Close()
 
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
 
        End Try
    End Sub
End Class