Discussion :

[aiglevb]

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

Pourriez vous m'aider ?

Merci d'avance,

Code :

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

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 :

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

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

[Uranne-jimmy]

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 :

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

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à.

[aiglevb]

Merci pour ton aide