Discussion :

[le_sonic]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[SfJ5Rpw8]

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

au niveau déclarations :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
    Dim fso As FileSystemObject
     Dim f As File
     Set fso = New FileSystemObject

puis dans la boucle pour l'affichage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[le_sonic]

CA MARCHE SUPER !!! tu es un

Pour toi :


Merci