Question : If fichier texte existe then ????

Question

bonjour, dans mon programme je crée un fichier dans le quel j'écris

par exemple

Valider CLick = Création fichier texte + ouverture
Reset Click = Fermeture fichier texte

Jusque là tout marche

Mais si l'utilisateur  click 2 fois de suite sur Reset, j'ai une erreur la seconde fois car le fichier n'existe pas.

Est ce que dans Rest Click, je peux faire quelque chose du style :

If fichier texte ouvert ou existe Then
   Ecris dans fichier et ferme le fichier
EndIf

Merci de votre aide

cs_frop01 · Answer

première méthode :

Dim MyFile, MyPath, MyName
' Renvoie "WIN.INI"  si ce fichier existe.
MyFile = Dir("C:\WINDOWS\WIN.INI")   

deuxième méthode

Dans la procedure ouverture :

FichierOuvert = 1
ouvrir fichier

et dans la procedure de fermeture :

tester si fichierOuvert =1 alors fermer
ensuite tu mets fichierOuvert =0

MSN : cyberscorp2004@msn.com
Qui s'y frotte, s'y pique .

crenaud76 · Answer

Je te conseille plutot de désactiver ton bouton Reset à la fin du code de son evt Click.

CmdReset.Enabled = False

Et de le réactiver dans l'EVT Click de ton bouton Valider

CmdReset.Enabled = True

Comme cela ton utilisateur voit sur l'interface que tu lui offres qu'il ne peux pas resetter ... cela fait plus propre je trouve, et c'est super facile à coder, comme tu le vois

Christophe R.

Minikisscool · Answer

Alors la solution de crenaud76 fonctionne très bien pour le boutton reset.

Maintenant je réfléchis car j'ai un boutton quitter (en gros fermer la fenêtre d'acquisition)
et lorsque je clique sur quitter, j'écris dans le fichier texte puis je le ferme.

Le problème, si je fais valider puis reset, mon fichier est ouvert puis fermé et si ensuite je clique quitter, j'ai une erreur car le fichier est fermé.

On en reviens au problème initial  : 
si Fichier ouverè alors.....

Voilà comment je crée mon fichier

Dim nom As String
Dim fichier As String
Dim heure As String

heure = Replace(Time$, ":", "-")
nom = Date$ & " " & heure & ".log"

fichier = "c:	emp" & nom
Open fichier For Append As #1

Au final le nom du fichier est la date + heure de création.
J'aimerais bien tester la méthode de frop01 mais je ne vois pas comment la mettre ici.

Et lorsque j'écris dans un fichier, ça donne ça : Print #1, Time$
Pour le fermer  :         Close #1 

Merci de votre aide

cs_rene38 · Answer

Au début de la procédure "Quitter", tu ajoutes :
On Error Resume Next

Minikisscool · Answer

Actuellement pour le boutton Quitter j'ai mis 'On Error Resume Next'

Car je ne sais pas si dans la version finale, ce boutton existera toujours.

Merci de votre aide