Compter le nombre d'elements d'un range d'un autre fichier

bonjour,

j'espère pouvoir être débloqué sur ce problème:

je souhaite compter le nombre d'éléments contenu dans un range dans autre fichier a partir de mon application.

voici le code:

Code:

---

1 2 3 4 5 6 7 8 9

adresse_fichier = chemin & nom_fichier & ".xls" Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(adresse_fichier) xlApp.Visible = False     xlBook.Sheets(nom_onglet).Activate Range("b1", [b500].End(xlUp)).Select id_l = Selection.Count

---

il me renvoie le nombre d'éléments contenu dans le range de mon application mais pas celui du fichier que j'ai ouvert auparavant.

Si quelqu'un a une idee?

Il vaut toujours mieux se passer des Select et autre Selection.
Essaie:

Code:

---

id_l = xlBook.Sheets(nom_onglet).Range("b1", [b500].End(xlUp)).Count

---

Merci pour cette aide mais en fait j'ai trouvé une autre solution qui me donne satisfaction:

Code:

---

1 2	xlBook.Activate id_l = xlBook.Sheets(nom_onglet).UsedRange.Rows.Count

---

j'avais testé votre solution mais elle n'a pas fonctionnée.