Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Nom d'un fichier sans nom des repertoires

Nom d'un fichier sans nom des repertoires

2 réponses
Avatar
Richard
Bonjour.

J'ai le code suivant qui me donne la liste des fichiers dans un répertoire
Probléme je ne veux pas du nom du répertoire.
je ne veux que le nom du fichier.

Avez vous une solution simple pour ce Pb

Sub Macro1()
With Application.FileSearch
.NewSearch
.LookIn = "d:\test\"
.SearchSubFolders = True
.Filename = "*.*"
.MatchTextExactly = True
.Execute msoSortByFileName
For i = 1 To .FoundFiles.Count
Cells(i, 4) = .FoundFiles(i)
Next i
End With
End Sub

Par avance merci de votre aide
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
FxM
Bonjour Richard,

Remplace
Cells(i, 4) = .FoundFiles(i)
par
Cells(i, 4) = dir(.FoundFiles(i))

ou par
Cells(i, 4) = ubound(split(.FoundFiles(i),""))
Excel 2000 ou +

@+
FxM



Bonjour.

J'ai le code suivant qui me donne la liste des fichiers dans un répertoire
Probléme je ne veux pas du nom du répertoire.
je ne veux que le nom du fichier.

Avez vous une solution simple pour ce Pb

Sub Macro1()
With Application.FileSearch
..NewSearch
..LookIn = "d:test"
..SearchSubFolders = True
..Filename = "*.*"
..MatchTextExactly = True
..Execute msoSortByFileName
For i = 1 To .FoundFiles.Count
Cells(i, 4) = .FoundFiles(i)
Next i
End With
End Sub

Par avance merci de votre aide



Avatar
camerboy
Bonjour Richard,
Rends toi dans le site www.excelabo.net tu y trouveras un fichier
(jb-formulaire) réalisé par un crac d'Excel et de ce forum. A l'intérieur se
trouve un exemple qui pourra te satisfaire.

"Richard" a écrit dans le message de
news:
Bonjour.

J'ai le code suivant qui me donne la liste des fichiers dans un répertoire
Probléme je ne veux pas du nom du répertoire.
je ne veux que le nom du fichier.

Avez vous une solution simple pour ce Pb

Sub Macro1()
With Application.FileSearch
.NewSearch
.LookIn = "d:test"
.SearchSubFolders = True
.Filename = "*.*"
.MatchTextExactly = True
.Execute msoSortByFileName
For i = 1 To .FoundFiles.Count
Cells(i, 4) = .FoundFiles(i)
Next i
End With
End Sub

Par avance merci de votre aide