Macro Répertoire texte

[Alex57]

Bonjour à vous.

Dans mon classeur, feuille 'Test',cellule 'A1' , j'ai
inscrit le chemin d'un répertoire de fichiers .txt.


Est il possible d'ouvrir tout les fichiers .txt de ce
répertoire.
De supprimer la première ligne de ces fichiers .txt.
D'enregistrer ces fichiers .txt

Merci à vous.
Alex

 

[Romuald]

tu peux utiliser le code suivant pour lire ton fichier texte et supprimer ta ligne

Open (sBatch) For Input Access Read Shared As #iFileInput
Open (sNewBatch) For Output As #iFileOuput
Do Until EOF(iFileInput)
Line Input #iFileInput, sLine
if <blabla> then Print #iFileOuput, sLine
Loop

sinon pour parcours ton répertoire essaie l'objet FileSystemObject :

for each fFile in fso.Getfolder(spaht).files
debug.print ffile.path
next

 

[Alex57]

Merci bien pour cette aide