Effacer dans un fichier texte [Résolu]

mortalino 6812 Messages postés vendredi 16 décembre 2005Date d'inscription 21 décembre 2011 Dernière intervention - 26 mars 2006 à 17:21 - Dernière réponse : mortalino 6812 Messages postés vendredi 16 décembre 2005Date d'inscription 21 décembre 2011 Dernière intervention
- 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
Afficher la suite 

2 réponses

cs_Willi 2381 Messages postés jeudi 12 juillet 2001Date d'inscription 13 février 2015 Dernière intervention - 26 mars 2006 à 17:37
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
mortalino 6812 Messages postés vendredi 16 décembre 2005Date d'inscription 21 décembre 2011 Dernière intervention - 26 mars 2006 à 20:34
0
Utile
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.