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 : Sélectionner tout - Visualiser dans une fenêtre à part
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