Salut,
J'écris en live sans tester, alors à prendre avec des pincettes. Mais c'est plus pour donner une direction...
Private Sub TonBouton_Click ()
Dim i as integer
For i=1 to TaListeBox.listcount
if TaListBox.selected(i-1) then
Workbooks.Open Filename:=TaListeBox.List(i-1,0)
end if
next i
end sub
Rmq: 1- j'ai ici supposé que ta listebox n'avait qu'une seule colonne comportant le nom du classeurs à ouvrir. Sinon, si les noms des classeurs sont en colonnes n, alors change Filename:=TaListeBox.List(i-1,n-1)
2 - Si plusieurs lignes de ta listbox sont sélectionnées, tous les classeurs correspondants s'ouvriront.
3- Je ne me suis pas du tout occupé des chemins d'accés. J'ai supposé que tous les classeurs étaient dans le dossier courant. Sinon, il faudra un traitement supplémentaire pour obtenir le chemin d'accés.