Afficher les fichiers sans l’extension

Bonsoir le forum,

Je fais appel à votre aide

Avec ce code :

Dim dossier
Private Sub CommandButton1_Click()
  racine = ActiveWorkbook.Path & "\test\"
       If racine = "" Then Exit Sub
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set dossier = fs.getfolder(racine) 'DossierRacine
    i = 0
  Me.ListBox1.Clear
  For Each f In dossier.Files
  If "TXT" = "*.*" Or UCase(Right(f.Name, 3)) = "TXT" Then
        Me.ListBox1.AddItem
        Me.ListBox1.List(i, 0) = f.Name
        i = i + 1
    End If
    Next
   End Sub

J’arrive à afficher dans un USF une liste avec son extension

Mais je n’arrive pas à faire apparaitre sans l’extension.

Il y a-t-il une personne pour m’éclairer ?

D’avance merci.

Bonsoir Realiste, bonsoir le forum,

Quelques incohérences dans ton code que j'ai commentées :

Private Sub CommandButton1_Click()
Dim Racine As String
Dim FS As Object
Dim Dossier As Object
dim F as object
Dim I As Integer

Racine = ActiveWorkbook.Path & "\test\"
'racine ne sera jamais vide vu la ligne au dessus...
If Racine = "\test\" Then Exit Sub
Set FS = CreateObject("Scripting.FileSystemObject")
Set Dossier = FS.getfolder(Racine) 'DossierRacine
'I = 0 inutile
Me.ListBox1.Clear
For Each F In Dossier.Files
    'pas compris la première condition, "TXT" ne sera jamais égale à "*.*", il me semble qu'il manque une variable là
    If "TXT" = "*.*" Or UCase(Right(F.Name, 3)) = "TXT" Then
        Me.ListBox1.AddItem
        'renvoie le nom sans l'extension si le nom ne contient pas d'autre point (.) que celui de l'extension
        Me.ListBox1.List(I, 0) = Split(F.Name, ".")(0) 
        I = I + 1
    End If
Next F
End Sub

Si le nom comporte plusieurs points et que l'extension a toujours 3 lettres (ce qui semble être le cas vu ta condition ), tu peux aussi utiliser :

Me.ListBox1.List(I, 0) = Left(F.Name, Len(F.Name) - 4)

Bonjour, ThauThème, bonjour le forum,

Pour les incompréhensions, je ne pensais pas qu’il y en avait autant => padawan je suis

La partie DIM je s’avais qu’il en manquait, mais bizarrement cela fonctionne alors je me suis dit pourquoi pas.

En grand merci à toi.

Non seulement tu m’aides, mais en plus tu expliques.

Merci beaucoup.

Les deux fonctionnent, j’aime avoir le choix

Merci beaucoup.

PS Clin d’œil

VBA m'éclate, les formules m'ennuient ! Je n'y peux rien c'est comme ça...

J’aime

Bonjour Realiste, bonjour le forum,

Le code fonctionne même si tu ne déclares aucune variable. Mais je te conseille de toujours le faire car ça le rend beaucoup plus clair et souvent ça simplifie son écriture...