Bestialement qqch comme ceci
Dim NomFichier As String, NomFichierSansExtension As String
Dim Dossier As String
Dim NbFichiers As Integer, Pos As Integer
Dim Tableau() As String
Dim i As Integer
' Dossier de test
Dossier = "C:\Transfert\*.*"
NomFichier = Dir(Dossier)
Erase Tableau
NbFichiers = 0
Do While Len(NomFichier) > 0
NbFichiers = NbFichiers + 1
ReDim Preserve Tableau(1 To NbFichiers)
Pos = InStr(1, NomFichier, ".", 1)
NomFichierSansExtension = Left(NomFichier, Pos - 1)
Tableau(NbFichiers) = NomFichierSansExtension
NomFichier = Dir()
Loop
For i = 1 To UBound(Tableau)
......
Next