[Débutant] Feuille excel dans un sub

Feuille excel dans un sub

Bonjour,
Je souhaiterais faire passe une feuille excel dans un sub mais je cale.

Pourriez vous m'aider ?

Merci d'avance,

Code:

1
2
3
4
5
6
7
 
AppExcel = New OXL.Application
xlWorkbook = AppExcel.Workbooks.Add
xlWorkSheetOne = CType(xlWorkbook.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
AppExcel.Visible = True
test(xlWorkSheetOne)
xlWorkbook.SaveAs("c:\a")

Code:

1
2
3
4
 
Sub test(x As OXL.Worksheet)
x.Cells(10, 10) = "xxxxx"
End Sub

Dans ce que tu as montré, si le Sub test n'est pas dans le sub où tu déclares AppExcel, ça marchera pas. Déclare AppExcel dans le constructeur de ton programme, et ferme le dans le destructeur. Sinon ton SUb test ne sais même pas ce qu'est Excel, il n'a pas accès à cette information.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Public Class Form1 Dim AppExcel Public Sub New() InitializeComponent() AppExcel = New OXL.Application End Sub Sub main xlWorkbook = AppExcel.Workbooks.Add xlWorkSheetOne = CType(xlWorkbook.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet) AppExcel.Visible = True test(xlWorkSheetOne) xlWorkbook.SaveAs("c:\a") end sub Sub test(x As OXL.Worksheet) x.Cells(10, 10) = "xxxxx" End Sub End Class
Un truc dans ce genre là.

Merci pour ton aide