Discussion :

[jeanlouisn]

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

[Access Newbie]

Bonjour,

Peut-être devriez-vous aller faire un tour sur la FAQ ...

http://excel.developpez.com/faq/?page=ChapFichiersTxt

[Godzestla]

Bonjour,

non ce n'est pas difficiel mais en ouvrant ton fichier en Append, tu ne peux qu'avoir ton CRLF à la fin et pas au début.

ce que tu veux faire nécessite de passer par un fichier texte intermédiaire dans lequel tu écriras d'abord ton CRLF puis le contenu du fichier 1.

Après tu fermes les 2, zigouille le 1 et renomme le temp en 1 et c'est gagné.

ici un post que j'avais ouvert sur la problématique de modifier un fichier texte existant. C'est plus compliqué que ce que tu cherches mais tu devrais y trouver ton bonheur (voir solution en fin d epage 2).

Bonne chance.

(Désolé pour les fautes de frappe. Je ne prends pa le temps de me relire).