Discussion :

[chris069]

Bonjour,

dans mon application, j'ai créé un fichier ".xml" de la façon suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
'declaration of FSO
Dim oFSO As Scripting.FileSystemObject
Dim MyXmlFile As Scripting.TextStream
 
'Instanciation of FSO
Set oFSO = New Scripting.FileSystemObject
 
Set MyXmlFile = oFSO.OpenTextFile(ThisWorkbook.Path & "\__TEST__.xml", ForWriting, True, TristateTrue)
MyXmlFile.Close

Dedans je n'écris rien.
Mon fichier se créer bien par contre il fait 1kb, je m'attendais à ce qu'il fasse 0kb.
Comment cela se fait-il ?

Si je prends par exemple le fichier file1.xml en pièce jointe il fait 4kb et que je le copie dans mon fichier ___TEST___.xml il fait 8kb !?!
-> comment cela se fait-il ?


Merci pour vos réponses.

[chris069]

J'ai trouvé la solution :

Dans la méthode OpenTestFile, je créais un fichier au format "unicode" (=TristateTrue).

En le remplaçant par le format "system défaut" (=TristateUseDefault), je n'ai plus ce problème.