Pour l'instant j'ai ça:
1 2
| Set fso=CreateObject("Scripting.FileSystemObject")
Set feuille=fso.OpenTextFile("c:\temp\DataBase.txt", ForReading, True) |
ensuite ma boucle infinie:
1 2 3 4 5 6 7 8
| While True
Set feuille = fso.OpenTextFile("c:\temp\DataBase.txt",ForWriting,False)
feuille.Write(MaVariable)
Wend
feuille.Close |
Je vous épargne les déclarations de variables.![:mrgreen:](https://www.developpez.net/forums/images/smilies/icon_mrgreen.gif)
Lorsque je l'utilise ensuite, le programme écrit bien mais à la boucle suivante, il y a une erreur et le debuggeur windows me dit que c'est là que 4a plante:
Set feuille = fso.OpenTextFile("c:\temp\DataBase.txt",ForWriting,False)
Si ça peut vous aider à m'aider ![:roll:](https://www.developpez.net/forums/images/smilies/icon_rolleyes.gif)
Merci à tous
Partager