Effacer dans un fichier texte

Résolu
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 26 mars 2006 à 17:21
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 26 mars 2006 à 20:34
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

cs_Willi Messages postés 2375 Date d'inscription jeudi 12 juillet 2001 Statut Modérateur Dernière intervention 15 décembre 2018 22
26 mars 2006 à 17:37
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
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
26 mars 2006 à 20:34
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
0
Rejoignez-nous