Problem d'ecriteur sur fichier EXCEL Avec VB.net

Salut Les amis j'ai un gros probleme la quand j'écrie des donnée sur un fichier Excel tous se passe très bien

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

xlap2 = New Excel.Application cl2 = xlap2.Workbooks.Add(misValue) fl2 = cl2.Sheets(1) ds.Clear() da = New SqlDataAdapter("select * from [traitefile]", con) da.Fill(ds, "a")   For j As Integer = 0 To ds.Tables("a").Rows.Count - 1 For c As Integer = 0 To 23 fl2.Cells(j + 2, c + 1).value = ds.Tables("a").Rows(j).Item(c) Next Next fl2.SaveAs("C:\Documents and Settings\administrateur\Bureau\Application a faire\123.xls") xlap2.Quit()

---

quand j’ouvre le fichier Excel je trouve les données mal afficher par exemple le referenceCommande 2,24588+69 alor qu'il doit etre 69224588 le problem oui s que l’affichage est en standard comment faire pour changer le format d'affichage ou (Format de cellule ) dans mon Code VB.net sans avoir a modifier a chaque fois manuellement dans le fichier EXCEL
Merci d'avancée

Bonsoir,

voir du coter de : sheet.Range("C3").NumberFormat = "0"

Bonjour Sankasssss


Ca Me donne l'erreur Suivant :

http://www.developpez.net/forums/att...1&d=1347885121

Merci de Me donnée une solution est me fournir un bon cours Merci pour ton aide

Pourrais-tu nous montrer comment tu as intégré cette ligne dans ton code? (donc le code que tu as utilisé)

Voila

sheet.Range("C3").NumberFormat = "@"


Merci j'ai Peut Résoudre Le problème Avec

8O

ca donnerais plutôt ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

xlap2 = New Excel.Application cl2 = xlap2.Workbooks.Add(misValue) fl2 = cl2.Sheets(1) ds.Clear() da = New SqlDataAdapter("select * from [traitefile]", con) da.Fill(ds, "a")   For j As Integer = 0 To ds.Tables("a").Rows.Count - 1 For c As Integer = 0 To 23 fl2.Cells(j + 2, c + 1).value = ds.Tables("a").Rows(j).Item(c) fl2.Cells(j + 2, c + 1).NumberFormat = "@" Next Next fl2.SaveAs("C:\Documents and Settings\administrateur\Bureau\Application a faire\123.xls") xlap2.Quit()

---