Ecrire dans un fichier au milieu d'un texte

[BobiwaneKilobits]

Bonjour à toutes et à tous,

Voici mon problème : j'ai un fichier texte(*txt) qui contient quelques mots.
J'aimerai avec VBA écrire au "milieu de ce texte", à un emplacement précis.
Pour l'instant j'ai le code suivant :

Sub EcrireDansFichier()

Dim intFic As Integer

intFic = FreeFile
Open "monCheminAvecFichier" For Append As intFic
Print #intFic, "Une ligne " 'Print #intFic, "Une ligne "
Close intFic

End Sub

Ce code me permet d'écrire seulement à la première ligne vide à la fin du fichier. Or si j'ai été clair :, je dois écrire à l'avant dernière ligne du fichier.

 

[tototiti2008]

Re : Ecrire dans un fichier au milieu d'un texte

Bonjour Bobiwane,

Il me semble que l'écriture dans les fichier texte ne peut-être que séquentielle
Par conséquent, je pense qu'il faut :
Ouvrir le fichier, le lire en entier et stocker chaque ligne dans une variable tableau, par exemple
Fermer le fichier
Créer un nouveau fichier qui écrase l'original où on réécrit tout en ajoutant la contenu voulu à 2 ligne de la fin

Mais je peux me tromper...

Visiblement, ce n'est pas un "problème" spécifique VB :

ecrire au milieu d'un fichier texte - Forum des professionnels en informatique

Edit : Maintenant, un autre solution pourrait consister à ouvrir le fichier texte dans Excel (Avec OpenText), d'insérer des lignes et de le réenregistrer en format texte, mais attention aux "conversions" intempestives lors de l'ouverture dans Excel...

 

[BobiwaneKilobits]

Re : Ecrire dans un fichier au milieu d'un texte

Tout d'abord merci pour la réponse rapide, tototiti.

J'ai fait une toute petite erreur dans mon premier post : il faut que je puisse écrire à la fin d'une ligne, bien que ça n'a pas l'air de changer le problème.
En gros je créer moi-même mon programme pour faire ce que je veux. Dommage
Et encore merci pour cette réponse rapide