ListBox

[Claude]

Dans Excel j'ai un UserForm et deux boutons et un listbox.
En cliquant sur le premier il me montre dans mon listbox tout mes fichiers excel dans un dossier donné....jusque-la ca va.

Je voudrais cliquer sur mon 2eme bouton pour ouvrir le fichier excel sélectionner dans mon listbox

Merci de votre aide a tous

 

[Michel_M]

bonsoir Claude et le forum

tirée d'une application réalisée 'il y a qq mois, ouverture d'un classeur sélectionnée dans une listbox

la listbox s'appelait "liste" et les fichiers du dossier étaient des classeurs et on était en multiselect

i = 0
While i < liste.ListCount
If liste.Selected(i) = True Then
fich = liste.List(i)
'ouvre le fichier source sélectionné
' on error: gestionnaire d'erreur, évite de planter la macro si le fichier est déjà ouvert
On Error Resume Next
Workbooks.Open Filename:=chemin & "\" & fich
On Error GoTo 0
Workbooks(fich).Activate
End If
i = i + 1
Wend

En espérant que cela te sera utile
A+
Michel