modification macro pour liste fichiers

Pierrot93 à dit:

Bonjour,

essaye peut être comme suit :

Code:

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
@+

Cliquez pour agrandir...

VBANOVICE à dit:

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
@+

Cliquez pour agrandir...