Discussion :

[saou88]

Bonjour,
Je travaille sur un code vb.net qui permet de lancer une application Excel en mode invisible et puis de lire les valeurs du tableau. Mon problème est que l'application n'arrive pas à lire les valeurs 0, elle considère les cellules correspondantes comme vides.
Merci de me répondre.

Aurevoir!

[infosam76]

Sans un exemple de code etc on ne saurait pas t'aider ...

[anasschiguer]

Bonjour, je crois comprendre votre problème car j'ai eu le meme souci une fois
Le problème c'est que les données dans une colonne excel doivent être cohérentes, c'est à dire si dans une colonne de ton fichier, il est rempli de données numériques et tu insère une chaine de caractère, cette dernière va être pris part une valeur : DbNull
j'ai détourné mon problème en m'assurant que la base de données ne contient pas ces incohérence et au cas ou il y en a je l'ai considère pas et donc j'enleve toute la ligne, ( je sais pas si ca peux te servir )

bref j'ai fais ceci :je rempli ma DGV de données :
(Imports System.Data.OleDb est nécessaire)

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
 
        OpenFileDialog1.ShowDialog()
        Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
        Dim DtSet As System.Data.DataSet
        Dim filePath As String = OpenFileDialog1.FileName
        Try
            Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & filePath + ";Extended Properties=Excel 8.0;"
            Dim connection As OleDbConnection = New OleDbConnection(connectionString)
            Dim nomFeuil As String = InputBox("Entrer le nom de la feuille excel", , "Feuil1")
            Dim cmdText As String = "SELECT * FROM [" & nomFeuil & "$]"
            Dim command As OleDbCommand = New OleDbCommand(cmdText, connection)
            MyCommand = New System.Data.OleDb.OleDbDataAdapter(cmdText, connection)
            DtSet = New System.Data.DataSet
            MyCommand.Fill(DtSet)
            DGV.DataSource = DtSet.Tables(0)
        Catch ex As Exception
            MsgBox(ex.Message, 0 + vbExclamation, "Erreur Importation Excel")
        End Try

et dans le bloc meme du try je met ce petit code :

Code :

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

1
2
3
4
5
6
 
For i As Integer = DGV.RowCount - 1 To 0 Step -1
                If IsDBNull(DGV.Rows(i).Cells("DATE").Value) Then
                    DGV.Rows.Remove(DGV.Rows(i))
                End If
            Next

disant que si (dans mon exemple ) il n'ya pas de date , pas la peine de considerer les autres champs
en plus quand je veux travailler avec une données, je fais le test :
If IsDBNull(MaValeur) Then
Si elle est du type DBNull, je la remet a une valeur par défaut, ( travailler à la place avec 0 )
J'espère avoir aider.

[azstar]

http://skalp.developpez.com/tutoriel...tomationexcel/

http://excel.developpez.com/cours/?page=automation



http://www.developpez.net/forums/d535016/logiciels/microsoft-office/general-vba/lire-fichier-excel/