Discussion :

[abdego]

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 :

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

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

[Sankasssss]

Bonsoir,

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

[abdego]

Bonjour Sankasssss


Ca Me donne l'erreur Suivant :



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

[Sankasssss]

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

[abdego]

Voila

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


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

[Sankasssss]

ca donnerais plutôt ça :

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
                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()