Lecture à partir d'un fichier Excel

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!

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

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:

---

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:

---

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.

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/