F
Fdarro
Guest
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
@+
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
@+