Discussion :

[rolan]

Bonjour
J'ai vb.net 2005
Excel 2007
J'ai arrivé à ouvrir un fichier Excel dans mon application VB.Net 2005 je cherche à compter le nombre des cellules non vide dans une colonne.
dans la version précédante d'excel j'étulise les lignes de code suivants et elle marche
Dim a = xlapp.Range("c12").End(xlapp.XlDirection.xlDown).Rows.Count()
le message affiché est "XlDirection" n'est pas un membre ....
est ce qu'il ya une autre manière de de compter mes lignes (cellules) dans cette colonne?.

[Skalp]

Es-tu sûr que c'est

Code :

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

xlapp.XlDirection.xlDown

et non pas

Code :

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

Excel.XlDirection.xlDown

?

[rolan]

merci
j'ai essayer avec Excel mais pas solution.

[Skalp]

Normalement, tout ce que tu peux faire avec Excel < 2007 est possible avec Excel 2007. Donc je ne comprend pas pourquoi tu as ce problème.

Peux-tu nous montrer plus de code, s'il te plait ?

[rolan]

Bonjour

Merci à ton aide

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
 Dim xlApp As Excel.Application
 Dim xlBook As Excel.Workbook
 Dim xlSheet As Excel.Worksheet
 
xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook)
xlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet)
 
 
If ofd_ouvrirexcell.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
xlapp.Workbooks.Open(ofd_ouvrirexcell.FileName)  
xlSheet.Application.Visible = True
Else
Exit Sub
End If

'Voila le problème toujours le résultat est 1 autrement il pointe vers la dernière cellule seulement.
' et moin j'aimerai compter tous les cellule de la colonne C le départ est la cellule "C12" mais je ne sais pas la fin.
' Compter tous les cellules non vide de la colonne C en partant de la cellule "C12"

Code :

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

Dim a As Int16 = xlApp.Range("c12").End(Excel.XlDirection.xlDown).Rows.Count

[rolan]

Merci
voila j'ai résolu le problème comme suit:

Code :

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

Dim aAs Int16 = xlApp.Range(("c11"), xlApp.Range("c11").End(Excel.XlDirection.xlDown)).Rows.Count