Discussion :

[Invité]

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 :

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

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,

[EngueEngue]

Code :

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

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

[Invité]

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,

[EngueEngue]

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

Remets le en Normal...

Code :

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

Setatrr path, vbNormal

[Invité]

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,

[EngueEngue]

Faute d'orthographe...

Code :

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

Setattr path, vbNormal