Le problème avec les numéros d'index des feuilles, c'est que le numéro d'une feuille donnée peut changer dès qu'une feuille est déplacée, ou qu'une feuille est insérée ailleurs qu'à la dernière feuille.
Tu peux utiliser le nom de la feuille (Hector, Feuil1 etc) au lieu de l'index. Mais le nom doit être entre guillemets.
Ceci dit, surveille bien quel classeur est actif au moment de faire ton opération. Si ton classeur actif a une seule feuille et que tu lui fais chercher la feuille 7, tu as un problèmeCeci dit, mets un espion sur
xls (à tout hasard), OF2, ListeKit, My.Settings.cheminOF et My.Settings.cheminKit
et exécutes ces trois lignes au pas-à-pas, en vérifiant les valeurs dans la fenêtre Espions.
1 2 3
| xls = CreateObject("Excel.Application")
OF2 = xls.Workbooks.Open(My.Settings.cheminOF)
ListeKit = xls.Workbooks.Open(My.Settings.cheminKit) |
Si une seule des valeurs est empty, Nothing ou n'importe quoi d'illogique, ne vas pas plus loin.
AJOUTÉ :
En faisant ton pas-à-pas, ru devrais voir si ces lignes, déclenchent vraiment une exception en cas de problème. Si elles font juste prendre une mauvaise valeur, sans déclencher d'exception, tu vas probablement devoir modifier tes tests.
Partager