Discussion :

[arnogue]

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 :

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

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?

[AlainTech]

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

Code :

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

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

[arnogue]

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

Code :

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

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.