Discussion :

[Invité]

Bonjour,

Afin de corriger rapidement une BD, j'ai trouvé sur le net un exemple de création d'un fichier texte sur l'utilisation d'un fichier Excel grâce au VBA, que j'ai adapté à mon fichier. Au premier enregistrement un fichier texte est créé (C:\Modif-BD.txt), toutes les modifications de la feuille BD y sont reportées. Mon souci est sa présentation (assez lourde), je voudrai qu'elle soit comme un tableau (entête + lignes). vu mon niveau en VBA, je suis bloqué. je vous remercie pour votre coup de main.

NB: faites au moins une modification et enregistrer pour que le fichier texte se crée en C:\

Autre question, est-il possible que ce fichier soit enregistré en lecture seule?

Merci encore.

Cordialement,

[Invité]

tu pourras l’ouvrir avex Excel comme un tableau en CSV

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

[Invité]

Bonjour,

Je te remercie pour ton code, même un fichier csv fait l'affaire. sauf qu'à l’exécution, il y a une ligne vide entre chaque enregistrement pourquoi?

Peut-on enregistrer le fichier créer en lecture seule?

Je te remercie beaucoup.

Cordialement,

[Invité]

pour le saut de ligne, j'ai trouvé il faut retirer l'instruction "vbCrLf" en fin de la ligne Print#1

Code :

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

1
2
Print #1, " Feuille;Cellule;Ancienne valeur;Nouvelle valeur;Changée par;Modifiée le" ' & vbCrLf
Print #1, feuille & ";" & reference & ";" & av & ";" & nv & ";"  & utilisateur & ";" & datemodif          '& vbCrLf

Comment l'enregistrer en lecture seule? ou dois-je ouvrir une nouvelle discussion?

Merci.
Cordialement,