Effacer dans un fichier texte [Résolu]

Signaler
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
-
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
-
Salut à tous !!

Malgrè le moteur de recherche, je ne trouve pas chaussure à mon pied :

Comment faire, avec VBA Excel, pour ouvrir un fichier.txt et supprimer les 2 dernieres lignes ?
Ecrire n'est pas un problème mais l'effacement oui.

Merci à ceux qui pourront m'aider.

Mortalino

2 réponses

Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
20
Salut,
Ceci devrait t'aider
http://www.codyx.org/snippet_supprimer-ou-plusieurs-lignes-dans-fichier_76.aspx

Dans l'exemple tu pourras dans ton cas supprimer la 2ième étape qui est la suppression des lignes 5 et 11.
Par contre dans la réecriture de ton fichier
Ton for ressemblera à ceci si tu ne veux pas des 2 dernières lignes
For i = 1 to colLignes.Count - 2
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 226 internautes nous ont dit merci ce mois-ci

Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
16
Merci Willy,

J'ai effectivement occulté la 2ème étape et mis le "- 2" à colLignes.Count
et ça fonctionne parfaitement.

Encore merci et bonne soirée à toi !

Mortalino