XL 2016 [VBA] erreur 424 objet requis [Résolu]

Dranreb à dit:

Bonsoir.
En effet Row n'est pas un objet, encore moins une collection, et n'a donc pas de propriété Count.
Rows, par contre, si !

Cliquez pour agrandir...

Yeahou à dit:

Bonjour tangixankenobi, Dranreb, le forum

Bonjour et bienvenue sur XLD, @tangixankenobi, si tu ne l'as pas déjà fait, un petit tour par la Charte Xld t'expliquera comment fonctionne le forum !
Pour ton code, plusieurs choses :
Comme l'a dit Dranreb, il faut utiliser Rows.Count, au lieu de Row.Count, qui renverra le nombre de lignes maximum de la feuille active.
ensuite tu as défini premiereLigne en Integer ce qui limite les importations à 32767 lignes et provoque une erreur sur un nombre de lignes importé plus conséquent, renvoyer le nombre de lignes maximum avec Rows.Count est inutile dans ce cas, autant écrire 32767. Pour un code plus correct, il faut définir premiereLigne en Long avec Dim premiereLigne as Long ou Dim premiereLigne& ce qui est la même chose en plus court.
Ensuite, tu ne mets pas de qualificateur à Rows il est donc rattaché à la feuille active ce qui ne pose pas problème dans le cas précis de ton code car tu ouvres un classeur Xlsx qui devient le classeur actif.
Dans certains cas, cela pourrait pourtant poser problème sur un grand nombre de données (supérieur à 65536) sur un classeur Xlsx (1048576 lignes par feuille) si le classeur actif au moment de la définition de premiereLigne est un fichier Xls (65536 lignes par feuille) ou provoquer une erreur 1004 dans le cas inverse en renvoyant lors de la commande un nombre de lignes supérieur à celui de la feuille examinée.
Pour un code globalement plus générique et re utilisable :

VB:

Dim premiereLigne&
With Worksheets("UCESO_BV+RCY"): premiereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row + 1: End With

Je te souhaite une Excellente journée sur Xld.

Bien cordialement, @+

Cliquez pour agrandir...