bonjour
suite à vos differents aides qui m'a rendu beaucoup de services,
j'aimerais une petite modification sur la macro ci jointe:
lorsque on doubleclic sur une répose dans la listebox le fichier s'ouvre
merci de votre aide
@+
Option Explicit
Private Sub ListBox1_Click()
End Sub
Private Sub UserForm_Initialize()
Dim Racine As String
Dim Fs As Object, Dossier As Object, Fichier As Object
Racine = "C:\fluideprod\données"
Set Fs = CreateObject("Scripting.FileSystemObject")
Set Dossier = Fs.getfolder(Racine)
For Each Fichier In Dossier.Files
'Me.ListBox1.AddItem Fichier.Name
Me.ListBox1.AddItem Split(Fichier.Name, ".")(0)
Next
End Sub
Private Sub COMMANDBUTTON1_CLICK()
Unload Me
End Sub
suite à vos differents aides qui m'a rendu beaucoup de services,
j'aimerais une petite modification sur la macro ci jointe:
lorsque on doubleclic sur une répose dans la listebox le fichier s'ouvre
merci de votre aide
@+
Option Explicit
Private Sub ListBox1_Click()
End Sub
Private Sub UserForm_Initialize()
Dim Racine As String
Dim Fs As Object, Dossier As Object, Fichier As Object
Racine = "C:\fluideprod\données"
Set Fs = CreateObject("Scripting.FileSystemObject")
Set Dossier = Fs.getfolder(Racine)
For Each Fichier In Dossier.Files
'Me.ListBox1.AddItem Fichier.Name
Me.ListBox1.AddItem Split(Fichier.Name, ".")(0)
Next
End Sub
Private Sub COMMANDBUTTON1_CLICK()
Unload Me
End Sub