Ecrire dans un fichier TXT

[Fab57330]

Bonjour.
En cas d'erreur dans ma MACRO, je souhaiterai inscrire dans un fichier texte l'erreur.

J'ai donc créé un fichier TXT (dans le même répertoire que mon excel, sous le nom "LOG") comme suit :

Date;Heure;Qui ?;Code;Erreur

Je souhaiterai donc, en cas d'erreur (ca je sais comment faire lol) :
1. Ouvrir le fichier texte
2. Écrire a la suite des données précédentes des informations (1;2;3;4;5;6)
3. Fermer le fichier txt (aprés enregistrement bien entendu)

Merci de votre aide,
Fab.

 

[Fab57330]

Re : Ecrire dans un fichier TXT

PS: j'ai oublié, j'avais fait le code suivant, mais ca me met une erreur disant qu'il ne trouve pas le fichier, bien qu'existant

Open ThisWorkbook.Path & "\LOG\log_error.txt" For Append As #1
Print #1, "OK" & i
Close #1

 

[Staple1600]

Re : Ecrire dans un fichier TXT

Bonjour à tous

Fab57330
Tout ce que tu souhaites faire ici se trouve déjà dans les archives du forum.
Pour y accéder: faire un clic sur la loupe en haut à droite de l'écran.

PS: tu trouveras aussi un exemple tout fait dans l'aide VBA d'Excel (touches ALT+F11 puis F1)

 

[Fab57330]

Re : Ecrire dans un fichier TXT

Ben j'ai trouvé, la preuve, j'ai le code, mais bizarement le VBA me donne une erreur disant qu'il ne trouve pas le fichier, alors que si je fais ca :

msgbox ThisWorkbook.Path & "\LOG\log_error.txt"

Il me donne bien le lien pointant vers mon fichier txt

 

[Staple1600]

Re : Ecrire dans un fichier TXT

Re,


Fab57330
Peux-tu poster, stp, un fichier exemple (anonymisé) avec le code VBA entier que tu utilises présentement.

 

[Fab57330]

Re : Ecrire dans un fichier TXT

Donner un fichier EXCEL ne servirait pas, vu que dedans il n'y a que ce qui est ecrit au dessus.
J'ai trouvé l'erreur... En fait les macros étaient pas activées, et la maintenant ca fonctionne.

Merci quand même pour l'aide

Fab.