Discussion :

[cbods]

Bonjour à tous,

j'ai besoin de vos lumières car je ne sais plus quoi faire pour régler mon problème.
J'ai une appli qui crée et écrit dans un fichier excel.

Voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim app As New Microsoft.Office.Interop.Excel.Application
            Dim exbook As Microsoft.Office.Interop.Excel.Workbook
            Dim exsheet As Microsoft.Office.Interop.Excel.Worksheet
            exbook = app.Workbooks.Add
            exsheet = CType(exbook.Sheets(1), Microsoft.Office.Interop.Excel.Worksheet)
 
exsheet.Cells(1, i + 1) = "Montant HTVA"
 
exsheet.Cells(j, i) = CType(exsheet.Cells(j, i), Double) + CType(SqlDr.Item("Faktu_D_Menge").ToString, Double)
 
exbook.SaveAs(txt_ExcelDatei.Text.Trim)
            app.Visible = True

J'ai une erreur sur le "CType(exsheet.Cells(j, i), Double)". Le problème c'est que je n'ai aps accès à la propriété VALUE de CELLS. Je sais pas pourquoi.

J'ai bien essayer en faisant "CType(exsheet.Range(exsheet.Cells(j, i)), Double)" mais ça marche pas non plus.

Merci pour vos conseils.

A++

Chris

[bidou]

c'est probablement
CDbl(CType(exsheet.Cells(j, i), Microsoft.Office.Interop.Excel.Range).Value)

[cbods]

Ok, merci, j'ai essayé et ça marche.