modification macro pour liste fichiers

[VBANOVICE]

bonjour a tous

en cherchant sur le forum, j'ai trouve une macro de Michelxld qui me permet de lister les fichiers d'un repertoire
cette macro fonctione mais j'aimerais ne pas voir les extentions des fichiers

qu'elle est la modif?

Option Explicit

Private Sub UserForml_Initialize()
Dim Racine As String
Dim Fs As Object, Dossier As Object, Fichier As Object

Racine = "d:\fluide\données"

Set Fs = CreateObject("Scripting.FileSystemObject")
Set Dossier = Fs.getfolder(Racine)

For Each Fichier In Dossier.Files
Me.ListBox1.AddItem Fichier.Name
Next
End Sub


merci pour votre reponse
@+

 

[Pierrot93]

Re : modification macro pour liste fichiers

Bonjour,

essaye peut être comme suit :

Me.ListBox1.AddItem Split(fichier.Name, ".")(0)

en supposant qu'il n'y a pas de "." dans le nom des fichiers en question.

bon après midi
@+

 

[VBANOVICE]

Re : modification macro pour liste fichiers

Bonjour,

essaye peut être comme suit :

Me.ListBox1.AddItem Split(fichier.Name, ".")(0)

en supposant qu'il n'y a pas de "." dans le nom des fichiers en question.

bon après midi
@+

merci pour cette info qui fonctione parfaitement

@+

 

[Pierrot93]

Re : modification macro pour liste fichiers

Re

pour tenir compte des fichiers ayant un point dans le nom :

Me.ListBox1.AddItem Mid(fichier.Name, 1, InStrRev(fichier.Name, ".") - 1)

@+

 

[Aurore_C]

Re : modification macro pour liste fichiers

bonjour a tous

en cherchant sur le forum, j'ai trouve une macro de Michelxld qui me permet de lister les fichiers d'un repertoire
cette macro fonctione mais j'aimerais ne pas voir les extentions des fichiers

qu'elle est la modif?

Option Explicit

Private Sub UserForml_Initialize()
Dim Racine As String
Dim Fs As Object, Dossier As Object, Fichier As Object

Racine = "d:\fluide\données"

Set Fs = CreateObject("Scripting.FileSystemObject")
Set Dossier = Fs.getfolder(Racine)

For Each Fichier In Dossier.Files
Me.ListBox1.AddItem Fichier.Name
Next
End Sub


merci pour votre reponse
@+

Bonjour,

Pourriez-vous m'indiquer comment faire fonctionner ce code ? Car je ne retrouve pas le fichier d'origine de Michelxld dont vous parlez ?

Merci,
Aurore