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
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.
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 bien essayer en faisant "CType(exsheet.Range(exsheet.Cells(j, i)), Double)" mais ça marche pas non plus.
Merci pour vos conseils.
A++
Chris
Partager