[VBA-E] Recherche le NOM d'un fichier ...

Version imprimable

Bonjour j'ai crée une petite macro ki me permetde rechercher le nom du fichier mais le probleme c'est que ca me retourne tout le chemin d'acces et non le nom seulement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
With Application.FileSearch
        .NewSearch
        .FileType = msoFileTypeExcelWorkbooks
        .SearchSubFolders = True
        .LookIn = "<a href="file://\\server\blabla\toto\" target="_blank">\\server\blabla\toto\</a>""
        .Execute
 
       With .FoundFiles
            For i = 1 To .Count
                Sheets("feuil1").Cells(i, 1) = .Item(i)
            Next i
        End With
    End With

Merci d'avance

O fait top le nouvo forum !!!
Bravo o developpeur ...

rajoute la référence microsoft Scripting Runtime à ton projet puis modifie ton code ..

au niveau déclarations :
Code:

1 2 3 4 Dim fso As FileSystemObject Dim f As File Set fso = New FileSystemObject
puis dans la boucle pour l'affichage
Code:

1 2 3 Set f = fso.GetFile(.Item(i)) Sheets("feuil1").Cells(i, 1) = f.Name

27/04/2006, 11h34
le_sonic

CA MARCHE SUPER !!! tu es un :king:

Pour toi :
:lahola:

Merci