La collection Workbooks est un membre de l'objet Application. Cette collection recense l'ensemble des classeurs ouverts. Pour accéder accéder un objet de la collection il suffit de passer en paramètre la clé de l'élément concerné :
MonElement = MaCollection(CléElement)
Dans notre cas, la clé est tout simplement le nom du classeur est on obtient :
Set MonClasseur = xlapp.Workbooks("Mon Classeur.xls")
Il ne reste plus qu'a encapsuler le code dans une fonction afin de gérer les exceptions, notament si le classeur est fermé
Partager