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 Scanner un repertoire

Scanner un repertoire

1 réponse
Avatar
Christian
Bonjour,

je liste dans une feuille, l'adresse et le nom des fichiers .txt contenues
dans un répertoire.
Ca marche parfaitement l'orsque mon repertoire est sur c:\ , par contre,
s'il est sur un autre disque, ça ne fonctionne plus.

Avez vous une idée pour résoudre ce PB ?

d'avance, je vous remerçi.

CHEMIN = Application.GetOpenFilename("Text Files (*.txt), *.txt")

With Application.FileSearch
.LookIn = CHEMIN
.FileType = msoFileTypeAllFiles
.Execute
End With

With Application.FileSearch
For i = 1 To .FoundFiles.Count
Sheets("Source").Cells(i, 1).Value = .FoundFiles(i)
Next i
End With
Signaler un problème avec ce contenu

1 réponse

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
ClémentMarcotte
bonjour,

Ajoute Chdrive "d:" avant d'appeler fileSearch

(Évidemment le nom du disque est à adapter.)


"Christian" a écrit dans le message de
news:
Bonjour,

je liste dans une feuille, l'adresse et le nom des fichiers .txt contenues
dans un répertoire.
Ca marche parfaitement l'orsque mon repertoire est sur c: , par contre,
s'il est sur un autre disque, ça ne fonctionne plus.

Avez vous une idée pour résoudre ce PB ?

d'avance, je vous remerçi.

CHEMIN = Application.GetOpenFilename("Text Files (*.txt), *.txt")

With Application.FileSearch
.LookIn = CHEMIN
.FileType = msoFileTypeAllFiles
.Execute
End With

With Application.FileSearch
For i = 1 To .FoundFiles.Count
Sheets("Source").Cells(i, 1).Value = .FoundFiles(i)
Next i
End With