Et bien pas de pb .......
'Permet d'écrire dans un fichier soit en ajout soit en écrasant
'Fichier = chemin vers le fichier (ex "c:\temp\exemple.txt")
'Contenu = chaîne de caractère à insérer dans le fichier
'Ajouter = True si l'on veut ajouter à la fin du fichier
' False si l'on veut écraser le fichier
Sub EcrireDansFichier(ByVal Fichier,ByVal Contenu,ByVal Ajouter)
Dim LeMode
Dim FsError
Dim LeFichierTexte
If Ajouter = True Then
LeMode=8
Else
LeMode=2
End If
Set FsError = CreateObject("Scripting.FileSystemObject")
Set LeFichierTexte = FsError.OpenTextFile(Fichier,LeMode, True)
LeFichierTexte.Write Contenu
LeFichierTexte.Close
Set LeFichierTexte = Nothing
Set FsError = Nothing
End Sub
Call EcrireDansFichier("C:\Documents and Settings\All Users\Bureau\toto.txt","test",False)
-----------
Un optimiste, c'est un homme qui plante deux glands ......... et qui s'achète un hamac.