Enregistrer csv lecture seule

Bonjour,

J'avais lors d'une une précédente discussion, concernant la création d'un fichier txt pour suivre les modifications d'une base de données, poser cette question. je salue en passant "Rdurupt" qui m'a donné un coup de main pour la création d'un fichier csv en vba, code ci-dessous.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub ecriture() If Dir("c:\Modif-BD.CSV") = "" Then Open "c:\Modif-BD.CSV" For Append As 1 Print #1, " Feuille;Cellule;Ancienne valeur;Nouvelle valeur;Changée par;Modifiée le" ' & vbCrLf Close 1   End If Open "c:\Modif-BD.CSV" For Append As 1 Print #1, feuille & ";" & reference & ";" & av & ";" & nv & ";" & utilisateur & ";" & datemodif ' & vbCrLf Close 1 End Sub

---

Donc est-il possible de l'enregistrer de façon qu'à son ouverture il soit en lecture seule? Tout en sachant que ceci ne pas bloquer l'enregistrement des modifications.

Je vous remercie beaucoup.

Cordialement,

Code:

---

SetAttr "c:\Modif-BD.CSV", vbReadOnly

---

Bonjour EngueEngue,

Je te remercie pour ta réponse, j'ai mis ta ligne de code à la fin du module. Le fichier est bien en lecture seule.
Le problème comme je m'en doutais, est qu'aux modifications suivantes, j'ai une erreur 75: Erreur d'accès Chemin/Fichier. Comment contourner ce problème?

Merci beaucoup.

Cordialement,

Tu ne peux pas modifier un fichier en lecture seule. (Normal)

Remets le en Normal...

Code:

---

Setatrr path, vbNormal

---

Re,

je te remercie mais où dois-je mettre cette instruction, j'ai une erreur de compilation:Sub ou Fonction non définie.

Merci beaucoup.
Cordialement,

Faute d'orthographe...

Code:

---

Setattr path, vbNormal

---

Merci beaucoup, j'aurai dû faire attention il s'agissait de la même fonction. ça fonctionne bien :ccool:.

Cordialement,