Ecriture ds Fichier .txt en VBA
Bonsoir le forum,
En parcourant le forum j'ai déniché un code me permettant, à partir d'un document excel, d'ouvrir un fichier texte (.txt) et d'y ajouter un caractère dont j'ai besoin pour structurer mon fichier texte, en l'occurrence le chr(12).
Mon problème est que ce caractère s'ajoute à la fin de mon fichier texte, or je souhaiterais qu'il vienne se placer au tout début de celui-ci.
voici le code tel qu'il est actuellement (ma version d'excel est 2003):
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Sub tstc()
Dim oFSO As Scripting.FileSystemObject
Set oFSO = New Scripting.FileSystemObject
Dim intFic As Integer
Dim strChr As String
intFic = FreeFile
strChr = Chr(12)
Open "C:\Documents and Settings\Me\My Documents\Text.txt" For Append As intFic
Print #intFic, vbCrLf; strChr; vbCrLf
Close intFic
End Sub |
L'un d'entre vous pourrait-il me venir en aide pour parvenir à faire la meme chose mais en début de fichier?
D'avance merci
JL
