Effacer dans un fichier texte [Résolu]

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

2 réponses

Meilleure réponse
Messages postés
2381
Date d'inscription
jeudi 12 juillet 2001
Dernière intervention
13 février 2015
- 26 mars 2006 à 17:37
3
Merci
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

Merci cs_Willi 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 90 internautes ce mois-ci

Messages postés
6812
Date d'inscription
vendredi 16 décembre 2005
Dernière intervention
21 décembre 2011
- 26 mars 2006 à 20:34
0
Merci
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.