Bonjour à tous,
 
Je réalise une macro en vba et je cherche à lister les fichiers présent dans un dossier. je souhaite que seul le nom du fichier s'affiche (sans chemin d'acces ni extension)...comment puis-je faire ? voilà mes lignes de code :
 
Set fs = Application.FileSearch
With fs
    .LookIn = "C:\Offres MSA\Images"
    .FileName = "*.jpg"
    If .Execute(SortBy:=msoSortByFileName, _
            SortOrder:=msoSortOrderAscending) > 0 Then
       
        For i = 1 To .FoundFiles.Count
            ComboBox2.AddItem FoundFiles.Item(i)                      *********ceci m'affiche le nom du fichier avec chemin et extension, ce que je ne
        Next i                                                                                        veux pas********
    Else
        MsgBox "There were no files found."
    End If
End With
 
 
Merci d'avance
 
A+

Regardes http://forum.hardware.fr/hardwaref [...] 9918-1.htm tout y est

Merci pour ta réponse mais cela ne répond pas à ma question car je suis sous Word (j'ai oublié de préciser)....
Apparemment, foundfiles ne peut pas renvoyer uniquement un nom de fichier....
comment faire ? (le but de la macro étant de récuperer dans une combobox tous les noms de fichiers  (et uniquement les noms, sans les chemins) d'un dossier.
 
Je n'ai pas de très grande connaissances en vba...quelqu'un a t-il une solution ???

et alors Word comme Excel se programme en VBA

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

Merci beaucoup !!!!!
 
C'est exactement ce que je voulais....
SUPER !!!