Liste de fichiers non utilisés

[Fdarro]

Bonjour à tout le forum, je viens vous demander un petit coup de main
Je remonte la liste de tous fichiers contenus dans un répertoire (S:\Dossier\excel ) sans problème
Mon Userform contient une ListBox dans laquelle j’affiche toute la liste.

Private Sub UserForm_Initialize()
Dim F As Integer
Dim LongFilename As String
With Application.FileSearch
.NewSearch
.LookIn = “S:\Dossier\excel”
.Execute
On Error Resume Next
For Each F In .FoundFiles
Namefile = Mid(F, Len(rep) + 2)
Me.ListBox1.AddItem Namefile
Next F
End With
End Sub

Travaillant sur Excel 97 sous Win Nt en réseau, je ne voudrai pas faire apparaître les fichiers en cours d’utilisation sur les autres postes.
Vous remerciant par avance pour votre aide et la diffusion de vos connaissances.
Amitiés, Fdarro
@+

 

[michel]

bonjour Fdarro

dans le lien ci dessous , Romuald donne une solution pour verifier si un classeur est deja utilisé en reseau

Lien supprimé

il te restera à l'adapter dans ta boucle


bon week end
michel