Discussion :

[maverick91]

Bonjour à tous,

j'ai un fichier texte et j'aimerais par un bouton ajouter une ligne de texte dans ce fichier. J'utilise la syntaxe suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Set fs = CreateObject("Scripting.FileSystemObject")
    Set A = fs.getfile("\\Frbofp01\shared\logistic support\Campagne UPV\IMPORTATION_PLANOUV1.txt", True)
    A.Writeline ("ligne1")

le problème est que cela m'écrase le fichier et je ne connais pas la syntaxe pour ajouter une ligne seulement..

Merci

[6ril25]

Salut,

j'suis sympa... même si t'as pas du chercher bcp...

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
 
'<<<<<<< ECRITURE dans un fichier >>>>>>>>>>>>
 
'déclaration file system object
Dim fso
 
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
 
'on instance le fichier texte dans lequel on veut ecrire
Set Ftxt =  FSO.createTextFile("Monchemin",true) 'true=ecrase
 
'On ecrit ce que l'on veut dans le fichier 
Ftxt.writeline ("Mon texte à écrire ou ma Variable texte")
 
Ftxt.Close

[Jean-Philippe André]

salut,
je te recommande la lecture de ceci, issu de la
http://access.developpez.com/faq/?page=Fichier#FicTxt