Changer format de cellule Excel
Bonjour,
Je remplis un fichier Excel avec une base Access.
J'aimerai modifier le format (monétaire) d'une des cellules.
J'ouvre le fichier excel :
Code:
1
2
3
4
5
6
7
8
9
10
|
'ouverture de l'application et du classeur
appExcel = New Excel.Application
appExcel.Visible = False
excelfile = Application.StartupPath & "\MatriceVin.xlsx"
Classeur = appExcel.Workbooks.Open(excelfile)
Feuille = Classeur.Sheets(1)
'Feuille.Cells(LIGNE, COLONNE)
Feuille = Classeur.ActiveSheet |
Je le remplis avec une boucle for
Code:
1
2
3
4
5
6
7
8
|
For I = 0 To TableVins_DataTable.Rows.Count() - 1
Feuille = Classeur.Sheets(1)
Feuille.Cells(I + 2, 1) = Trim(TableVins_DataTable.Rows(I).Item("C_Pays"))
Feuille.Cells(I + 2, 2) = TableVins_DataTable.Rows(I).Item("C_Region")
''...…
Feuille.Cells(I + 2, 12) = IIf(IsDBNull(TableVins_DataTable.Rows(I).Item("C_Prix")), 0, TableVins_DataTable.Rows(I).Item("C_Prix"))
Feuille.Cells(I + 2, 12).NumberFormat = "#,##0.00 CHF" |
J'ai une erreur : impossible de définir la propriété NumberFormat
Merci d'avance
FikoU
