OVH Cloud OVH Cloud

ouvrir un par un des fichiers txt d'un répertoire

3 réponses
Avatar
Poclain
Bonjour à tous
Je cherche sans succès à ouvrir en boucle des fichiers textes qui se
trouvent dans un même répertoire
avec
With Application.FileSearch
je ne vois que les fichiers excel mais pas les fichiers textes
Que faut-il mettre pour n'ouvrir que les fichiers textes.

Merci

3 réponses

Avatar
FxM
Bonjour,

With Application.FileSearch
.NewSearch
.Filename = "*.txt"
...

@+
FxM


Bonjour à tous
Je cherche sans succès à ouvrir en boucle des fichiers textes qui se
trouvent dans un même répertoire
avec
With Application.FileSearch
je ne vois que les fichiers excel mais pas les fichiers textes
Que faut-il mettre pour n'ouvrir que les fichiers textes.

Merci




Avatar
JB
Bonjour,

Liste des fichiers .Txt du répertoire courant

ChDir ActiveWorkbook.Path
nf = Dir("*.txt") 'premier txt
Do While nf <> ""
MsgBox nf
nf = Dir 'suivant
Loop

Cordialement JB



Bonjour à tous
Je cherche sans succès à ouvrir en boucle des fichiers textes qui se
trouvent dans un même répertoire
avec
With Application.FileSearch
je ne vois que les fichiers excel mais pas les fichiers textes
Que faut-il mettre pour n'ouvrir que les fichiers textes.

Merci


Avatar
Poclain
Merci beaucoup.
"FxM" a écrit dans le message de news:
%
Bonjour,

With Application.FileSearch
.NewSearch
.Filename = "*.txt"
...

@+
FxM


Bonjour à tous
Je cherche sans succès à ouvrir en boucle des fichiers textes qui se
trouvent dans un même répertoire
avec
With Application.FileSearch
je ne vois que les fichiers excel mais pas les fichiers textes
Que faut-il mettre pour n'ouvrir que les fichiers textes.

Merci