Bonjour,

Je cherche à calculer le nombre de lignes non-vides dans mon fichier Excel.
J'ai réussi à adapter un bout de code à partir de ce que j'ai trouvé ici
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
'Décalration des éléments
Dim xlsapp As New Microsoft.Office.Interop.Excel.Application    ' Appli Excel
Dim xlsbook As Microsoft.Office.Interop.Excel.Workbook          ' Classeur Excel
Dim NbrLigne As Integer 
 
'Ouverture du fichier Excel
xlsapp.Workbooks.Open("D:\MonDossier\Monfichier.xls")
xlsbook = xlsapp.ActiveWorkbook
 
'Calcul du nombre de lignes
NbrLigne  = xlsbook.Sheets("DATA").Range("A1", xlsbook.Sheets("DATA").Range("A1").End(Microsoft.Office.Interop.Excel.XlDirection.xlDown)).Rows.Count
mais perso je le trouve horrible...
*si quelqu'un connait quelque chose de plus porpre, je suis partant*