Discussion :

[younesssoleil]

Bonjour;
Je développe un petit programme en VB 2010 express; je dois importer un fichier excel (en pièce jointe: Feuil1 ) vers mon datagrideview1

j'utilise le code ci-dessous; qui marche bien mais j'ai un problème: le format de mon affichage dans le datagrideview1 n'est pas bon:
je m'explique: dans le fichier excel j'ai des formats en hh:mm:ss or le résultat dans le datagrideview1 n'a pas le même format ( je l'ai mis dans l'onglet Feuil2 du même fichier ci-joint)
Merci de m'aider de trouver comment résoudre ce problème d'affichage.
Merci

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
 Dim OpenFileDialog1 As New OpenFileDialog
        Dim dt As New DataTable
        If OpenFileDialog2.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim FileName As String = OpenFileDialog2.FileName.ToUpper
            Dim Builder As New OleDbConnectionStringBuilder With {.DataSource = FileName}
 
            ' Setup the properties for our connection dependent on which file was open.
 
            If IO.Path.GetExtension(FileName) = ".XLSX" Then
                Builder.Provider = "Microsoft.ACE.OLEDB.12.0"
                Builder.Add("Extended Properties", "Excel 8.0;HDR=No;")
 
            Else
                Builder.Provider = "Microsoft.Jet.OLEDB.4.0"
                Builder.Add("Extended Properties", "Excel 8.0;HDR=No;")
            End If
 
 
            Using cn As New OleDbConnection With {.ConnectionString = Builder.ConnectionString}
                Dim cmd As New OleDbCommand With _
                { _
                    .CommandText = "SELECT * FROM [Feuil1$]", _
                    .Connection = cn _
                }
 
                cn.Open()
 
                dt.Load(cmd.ExecuteReader)
                DataGridView1.DataSource = dt
                ActiveControl = DataGridView1
 
            End Using
        End If
    End Sub