Discussion :

[mic56]

j'ai un datagrid que je remplis avec un dataset qui est lui meme alimente par un fichier excel, puis je formatte ma datgrid pour avoir les largeur, etcc... et surtout pour 3 colonne des checkbox.

ca marche mais quand je change la valeur des checkbox, il ne veut pas prendre l'état que je leur donne et un leur état revient toujours sur un état intermediaire.(checkbox grisé).

donc quand je sauvegarde mon fichier excel avec les valeur de la datagrid, j'ai bien les donées pour les colonne texte mais j'ai rien pour les checkbox.

si quelqu'un a deje fait ca et peut m'expliquer.

[mic56]

j'ai en meme temps une autre question.
quand j'effectue ma sauvegarde, j'ai 2 datagrid que je voudrai mettre dans le meme fichier mais sur une feuille différente.

Comment faire pour choisir une feuille d'un fichier excel?

[mic56]

pour choisir une feuille excel j'ai trouvé, mais je ne sais tjrs pas pourquoi je ne peut pas modifier mes checkbox dans ma datagrid ce qui une fois le fichier excel mis a jour j'ai toujours rien dans ma cellule.

quelqu'un a bien une petite idee non!!! :o

[mic56]

bon si ca peut aider quelqu'un pour m'aider, je crois que j'ai un debut de solution.
c'est que la colonne que je prend dans excel n'est pas du type booleen.

alors
est ce qu'il est possible sous excel de donner un format booleen a une cellule ou une colonne comme on peut le faire pour un champs access ou alors si il est possible de mettre en type booleen une colonne d'un datagrid?

[mic56]

alors j'ai finalement resolu mon probleme.
il faut creer une datatable avant d'initialiser le dataset, et en affectant un type a la colonne voulue.
ensuite on initialise le dateset puis on rempli la datagrid

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 Public Sub excel_piecedetachees()
 
        Dim strsql As String
        Dim MyConnection As System.Data.OleDb.OleDbConnection
        Dim ds As New System.Data.DataSet
        Dim ad As System.Data.OleDb.OleDbDataAdapter
        Dim dt As New System.Data.DataTable
        'affichage de la grille suivant le critere str 
        ' Try 
        ds = New System.Data.DataSet
        dt = New System.Data.DataTable("grille")
        'selectionne le fichier exemple du tableau de mesure
        Try
            'connexion au fichier excel du tableau
            Dim sFileName2 As String = cheminaccesconfig & "modele.txt"
            Dim fs2 As New System.IO.FileStream(sFileName2, IO.FileMode.Open, IO.FileAccess.Read)
            Dim lecture2 As New System.IO.StreamReader(fs2)
            Dim cheminacces As String
            Dim sauvegarde As String
            Dim acces As String
            cheminacces = lecture2.ReadLine()
            lecture2.Close()
            fs2.Close()
 
            dt.Columns.Add("Q")
            dt.Columns.Add("DESIGN")
            dt.Columns.Add("TYPE")
            dt.Columns.Add("DISPO", GetType(Boolean))
            dt.Columns.Add("PRIX")
            dt.Columns.Add("DELAIS")
            dt.Columns.Add("CMD", GetType(Boolean))
            dt.Columns.Add("RECU", GetType(Boolean))
            dt.Columns.Add("OBSERVATION")
 
            MyConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cheminacces + "donneesfiche.xls;Extended Properties=Excel 8.0;")
            strsql = "SELECT * FROM [piecedetache$]"
            ad = New System.Data.OleDb.OleDbDataAdapter(strsql, MyConnection)
            ds = New System.Data.DataSet
 
            ds.Tables.Add(dt)
            ad.Fill(ds, "grille")
            DataGrid1.DataSource = ds.Tables("grille")
 
        Catch eLoad As System.Exception
            MsgBox(eLoad.Message)
        Finally
            MyConnection.Close()
        End Try
 
    End Sub