Discussion :

[fikou]

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

[Phil Rob]

Bonjour,

Je crois que la syntaxe suivante te conviendra :

... ... ... .NumberFormat = "#,##0.00 [$CHF.-100C]"

Bonne journée,

[fikou]

hello Phil Rob,
Super, merci
@+FikoU