Discussion :

[younesssoleil]

Bonjour
je souhaite importer un fichier excel "test resultat" en pièce jointe, qui contient dans la deuxième ligne des chiffres et après des types temps: hh:mm:ss
je réussis à importer le ficher avec le code global ci-dessous mais mon problème est que la conversion en mode Time avec la ligne de code ci-dessous est appliquée à toutes les lignes or moi je souhaite garder la deuxième ligne avec des chiffres :
Merci de m'aider à résoudre mon problème.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DataGridView1.RowsDefaultCellStyle.Format = "T"

'code de conversion en mode time hh:mm:ss


Code global:

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
Private Sub ImporterToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImporterToolStripMenuItem.Click
        Dim OpenFileDialog2 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.Jet.OLEDB.4.0"
                Builder.Add("Extended Properties", "Excel 8.0;HDR=Yes;IMEX=0;")
                DataGridView1.RowsDefaultCellStyle.Format = "T" ' <---- ICI <---- <---- <---- <---- <---- <---- 
            Else
                Builder.Provider = "Microsoft.Jet.OLEDB.4.0"
                Builder.Add("Extended Properties", "Excel 8.0;HDR=Yes;IMEX=0;")
            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

[Sankasssss]

Bonjour,

avec quelque chose comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If DataGridView1.Columns.Contains("MyColumns") Then
    DataGridView1.Columns("MyColumns").DefaultCellStyle.Format = "..."
End If

[Kropernic]

Sinon, pour formatter des cellules, l'évènement CellFormatting me semble pas trop mal ^^.

[younesssoleil]

Bonjour;
Désolé je ne sais pas comment utiliser vos instructions; j'explique différemment mon Pb:
je dois importer un fichier excel ( en pièce jointe) ce fichier contient un nombre x et y ( inconnu d'avance de colonnes et de lignes) avec en première ligne ( ligne 0 (non le Header)) des chiffres entiers et en deuxième ligne ( ligne 1) des "temps" sous le format: hh:mm:ss (exemple, 00:40:20).
je souhaite tout simplement importer ce fichier en gardant le même format.
le code indiqué dans mon 1er message l'importe bien mais avec un format identique en mode hh:mm:ss pour toutes les cellules.
Merci d'avance de voter aide.

[Kropernic]

Tu pourras l'expliquer dans tous les sens possibles et imaginables, nous ne ferons pas le travail à ta place.

Nous te donnons des pistes et des informations suffisantes pour que tu puisses chercher dans la bonne direction et parvenir à la résolution de ton problème.

[younesssoleil]

Merci pour ta remarque... mais ça fait plus de deux semaines que je cherche...