Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Adaptation macro

Adaptation macro

2 réponses
Avatar
Infogroup
Bonjour à tous,
la macro ci-dessous, me liste les fichiers du répertoire D:\Copie ainsi que
de ses sous-répertoires.
le problème est que le résultat indique le sous répertoire si le fichier
n'est pas à la racine.
je voudrais obtenir seulement le nom du fichier seul sans le nom du
sous-répertoire qui le précède.

Merci pour votre aide

Sub Édition_liste_de_fichiers()
Dim I As Long, P As String
Path = "D:\Copie"
With Application.FileSearch
.NewSearch
'.FileType = msoFileTypeAllFiles
.LookIn = Path
.Filename = "*.*"
.SearchSubFolders = True
.Execute
With .FoundFiles
For I = 1 To .Count
Range("A1").Offset(I + 3, 0) = Right(.Item(I), Len(.Item(I)) -
Len(Path) - 1)
Next I
End With
End With
End Sub


Cdl

Infogroup
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
Daniel.C
Bonjour.
Non testé :

Sub Édition_liste_de_fichiers()
Dim I As Long, P As String
Path = "D:Copie"
With Application.FileSearch
.NewSearch
'.FileType = msoFileTypeAllFiles
.LookIn = Path
.Filename = "*.*"
.SearchSubFolders = True
.Execute
With .FoundFiles
For I = 1 To .Count
Range("A1").Offset(I + 3, 0) = Dir(.Item(I))
Next I
End With
End With
End Sub

Cordialement.
Daniel

Bonjour à tous,
la macro ci-dessous, me liste les fichiers du répertoire D:Copie ainsi que
de ses sous-répertoires.
le problème est que le résultat indique le sous répertoire si le fichier
n'est pas à la racine.
je voudrais obtenir seulement le nom du fichier seul sans le nom du
sous-répertoire qui le précède.

Merci pour votre aide

Sub Édition_liste_de_fichiers()
Dim I As Long, P As String
Path = "D:Copie"
With Application.FileSearch
.NewSearch
'.FileType = msoFileTypeAllFiles
.LookIn = Path
.Filename = "*.*"
.SearchSubFolders = True
.Execute
With .FoundFiles
For I = 1 To .Count
Range("A1").Offset(I + 3, 0) = Right(.Item(I), Len(.Item(I)) -
Len(Path) - 1)
Next I
End With
End With
End Sub


Cdl

Infogroup


Avatar
Infogroup
Bonjour Daniel C.,

j'ai testé ta macro et tout est OK

encore une fois merci à toi pour ton dévouement et ta disponibilité.

Cdl

Infogroup


"Daniel.C" a écrit dans le message de
news:%
Bonjour.
Non testé :

Sub Édition_liste_de_fichiers()
Dim I As Long, P As String
Path = "D:Copie"
With Application.FileSearch
.NewSearch
'.FileType = msoFileTypeAllFiles
.LookIn = Path
.Filename = "*.*"
.SearchSubFolders = True
.Execute
With .FoundFiles
For I = 1 To .Count
Range("A1").Offset(I + 3, 0) = Dir(.Item(I))
Next I
End With
End With
End Sub

Cordialement.
Daniel

Bonjour à tous,
la macro ci-dessous, me liste les fichiers du répertoire D:Copie ainsi
que de ses sous-répertoires.
le problème est que le résultat indique le sous répertoire si le fichier
n'est pas à la racine.
je voudrais obtenir seulement le nom du fichier seul sans le nom du
sous-répertoire qui le précède.

Merci pour votre aide

Sub Édition_liste_de_fichiers()
Dim I As Long, P As String
Path = "D:Copie"
With Application.FileSearch
.NewSearch
'.FileType = msoFileTypeAllFiles
.LookIn = Path
.Filename = "*.*"
.SearchSubFolders = True
.Execute
With .FoundFiles
For I = 1 To .Count
Range("A1").Offset(I + 3, 0) = Right(.Item(I),
Len(.Item(I)) - Len(Path) - 1)
Next I
End With
End With
End Sub


Cdl

Infogroup