Discussion :

[ptinavir]

Bonjour à tous
Je crée un fichier texte, mais à l'ouverture j'ai "Permission refusée"
Mon fichier n'est pas en lecture seule

Code :

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

1
2
3
4
5
6
        Set FSys = CreateObject("Scripting.FileSystemObject")
        Set Unfich = FSys.CreateTextFile(App.Path & "\mon_fichier.txt")
 
        f = FreeFile
 
        Open App.Path & "\mon_fichier.txt" For Output As #f

Merci pour vos réponses

[SfJ5Rpw8]

Bonjour,

il vas falloir que tu fasse un choix soit tu utilise FileSystemObject, pour agir sur ton fichier, soit tu utilise une méthode plus traditionnelle avec freefile, open...
mais pas un mix des deux.

[ptinavir]

J'ai oublié de fermer

Code :

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

Unfich.close

Merci