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

[basmamirvet]

bonjour sil vous aide moi j'ai un problème de compter les nombres des lignes d'une fichier excel en vb.net 2010 s'il vous donner moi un code qui permet de calculer le nombre des lignes d'une feuille excel et merci

[Franck.H]

CA !! C'est du déterrage de sujet Va voir le post juste à côté qui traite de ce problème et auquel j'ai répondu !