Ecriture inversée dans fichier.txt

[JMV]

Bonjour,

Avec le code ci-dessous :

Open 'C:\\Journal.txt' For Append As #1
Print #1, Toto ' Écrit le texte dans le fichier.
Close #1
...
Open 'C:\\Journal.txt' For Append As #1
Print #1, coucou ' Écrit le texte dans le fichier.
Close #1

Jounal.txt sera :

Toto
coucou

Est-il possible d'écrire au début du fichier la dernière entrée, soit dans mon exemple :

coucou
Toto

Si oui, comment ?
Merci d'avance.
JMV

 

[Jean charles henry]

Bonjour jmv
bonjour jmps

un code qui inverse un txt :

Sub inversetxt()
Dim tableautxt()
Dim nom As String
Dim i As Integer

i = 1
Open ('c:\\journal.txt') For Input As #1
Do While Not EOF(1)
Line Input #1, nom
ReDim Preserve tableautxt(i)
tableautxt(i) = nom: i = i + 1
Loop
Close

Open ('c:\\journal.txt') For Output As 1
For i = UBound(tableautxt) To 1 Step -1
Print #1, tableautxt(i)
Next i
Close

End Sub

Au revoir

 

[JMV]

Merci pour vos réponses.

En fait, je souhaite vraiment écrire au début de mon fichier. Vos solutions sont correctes, mais je ne veux pas retoucher au fichier.
Ma question est plutôt :

Existe-il une commande 'insert au début du fichier' ?

Bonne soirée
JMV