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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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