Private Sub Bouton2_Click()
Dim Presence As Boolean
Presence = False
TextBox4.Value = Workbooks("test.xls").Sheets("Instructions").Range("A5").Value
TextBox4.BackColor = &HFFFF&
With Me.Listbox1
For Each w In Workbooks
If w.Name = Selected(i) Then Presence = True
Next w
If Presence = True Then
Workbooks(Selected(i)).Activate
Else
For i = 0 To Me.Listbox1.ListCount - 1
If .Selected(i) Then
Workbooks.Open (path & .List(i))
'Unload Me
End If
Next i
End If
End With
'Unload Me
End Sub