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