Bonjour a tous,
j'utilise ce code:
pour ouvrir un fichier excel via une listbox, j'essaye de faire en sorte qu'il n'y est pas de message d'erreur dans le cas ou l'on cherche a ouvrir deux fois le meme fichier... mais ça ne fonctionne pas
pouvez vous m'aider ?
merci d'avance et bonne journée.
@+
j'utilise ce code:
Code:
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
pour ouvrir un fichier excel via une listbox, j'essaye de faire en sorte qu'il n'y est pas de message d'erreur dans le cas ou l'on cherche a ouvrir deux fois le meme fichier... mais ça ne fonctionne pas
pouvez vous m'aider ?
merci d'avance et bonne journée.
@+