Excuse-moi de t'embèter mais ça par ex, ça marche.

<% Don_A_Ecrire = "BLABLA" %>
<% Set FSO = Server.CreateObject("Scripting.FileSystemObject") %>
<% Fich_TEST= Server.MapPath("Fich_TEST.txt") %>
<% set inF = FSO.OpenTextFile(Fich_TEST,2,true) %>
<% inF.writeLine Don_A_Ecrire %>
<% inF.close %>

OK, mais c'est cette ligne qui génère l'erreur.

    Return = MyShell.Run(szExec, 0, True)

Ce code m'interesse mais lors de l'execution j'ai le message :
Erreur d'exécution Microsoft VBScript error '800a0046'

Permission refusée

/Lect_BDD.asp, line 23

Pouvez-vous me dire comment faire ?