[VBA] Impossible d'écrire dans un fichier

Bonjourà tous,

depuis quelque temps il m'est impossible d'écrire dans un fichier en VBA dans Excel sur un poste avec Windows XP familial. J'ai un message : "fichier introuvable". Je ne comprends vraiment pas ce qui peut se passer, d'autant plus que c'est le genre de code qu'on écrit fréquemment et qui passe partout sauf sur le poste en question.

Voici le code :

Sub zzzzzz()
 Dim nbFic As Integer
 nbFic = FreeFile()
 Open "c:\fichier.txt" For Output As #nbFic
 Print #nbFic, "essai"
 Close #nbFic
End Sub

Si quelqu'un a la moindre piste merci de me contacter... J'ai essayé la commande 'détecter et réparer' mais sans résultat.