AArgg: Erreur 55 'Fichier déja ouvert!' [Résolu]

jimy neutron 491 Messages postés mercredi 1 février 2006Date d'inscription 18 novembre 2016 Dernière intervention - 2 mai 2008 à 23:46 - Dernière réponse : Kristof_Koder 920 Messages postés vendredi 3 août 2007Date d'inscription 27 octobre 2008 Dernière intervention
- 3 mai 2008 à 15:24
Bonsoir à tous,

Je fais appel à vous, parce que je pense ne pas tarder à m'arracher les cheuveux, et je ne pense pas que ça en a le merite. (même si j'ai découvert, ce matin, mon premier cheuveux blanc)

Tout est dans le titre, cette erreur intervient à l'execution de cette simple fonction.
Private Function Ecriture_AffLI()



Dim NameFile As String
Dim AdressFile As String
Dim Affect As String
Dim Index As Integer
Dim FileNumber As Integer



    NameFile = ""
    NameFile = Dir(App.path & "\Files" & "AffLI.txt", vbNormal)
   
    If NameFile = "" Then
        AdressFile = App.path & "\Files" & "AffLI.txt"
        NameFile = AdressFile
    End If

    'OUVRIR LE FICHIER
    FileNumber = FreeFile
    Open App.path & "\Files" & "AffLI.txt" For Output As #FileNumber



    For Index = 4 To 10
            Affect = TxtLabLI(Index).Text
            Print #FileNumber, Affect
    Next Index
   
    Close #FileNumber
End Function


J'utilise strictement cette même structure sur d'autre fonction d'écritute de fichier text, et ces la seule qui plante!
Si quelqu'un à une idée avant d'aller au dodo!

Jimy

Pensez: Réponse acceptée
'**********************************************
Afficher la suite 

Votre réponse

4 réponses

Meilleure réponse
jmfmarques 7668 Messages postés samedi 5 novembre 2005Date d'inscription 22 août 2014 Dernière intervention - 3 mai 2008 à 08:07
3
Merci
Bonjour,


"Depuis que j'ai placé cette fonction à un autre endroit, elle fonctionnent trés bien, quelqu'un saurait me dire pourquoi?"


Je pense que, par "autre endroit", tu veux dire "autre évènement" !

Il est bien clair que, dans l'évènement Change, qui intervient à chaque frappe d'une touche, ta procédure est appelée à une fréquence trop grande pour qu'elle ait le temps de se terminer avant son appel suivant (pendant, donc, que le fichier est encore ouvert) !

Merci jmfmarques 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 125 internautes ce mois-ci

Commenter la réponse de jmfmarques
jimy neutron 491 Messages postés mercredi 1 février 2006Date d'inscription 18 novembre 2016 Dernière intervention - 2 mai 2008 à 23:59
0
Merci
J'ai trouvé d'où venait le problème, mais ne me l'explique pas...

Dans un groupes de textBox, j'avais placé la fonction dans l'évenement Change

Private Sub TxtLabLI_Change(Index As Integer)
Call Ecriture_AffLI
End Sub

Depuis que j'ai placé cette fonction à un autre endroit, elle fonctionnent trés bien, quelqu'un saurait me dire pourquoi?
Jimy

Pensez: Réponse acceptée
'**********************************************
Commenter la réponse de jimy neutron
jimy neutron 491 Messages postés mercredi 1 février 2006Date d'inscription 18 novembre 2016 Dernière intervention - 3 mai 2008 à 10:40
0
Merci
Bonjour jmfmarques,

'Je pense que, par "autre endroit", tu veux dire "autre évènement" !', oui en effet c'est bien cela.
Je vous remercie de vote réponse, j'ai manqué de logique sur ce coup, dit comme cela il est vrai que ça parait évident.
Encore merci,

Jimy

Pensez: Réponse acceptée
'**********************************************
Commenter la réponse de jimy neutron
Kristof_Koder 920 Messages postés vendredi 3 août 2007Date d'inscription 27 octobre 2008 Dernière intervention - 3 mai 2008 à 15:24
0
Merci
Pour résoudre et déceler ce genre de souci, il est parfois bon de mettre des Debug.Print "Début de la Sub foo()" et Debug.Print "Fin de la Sub foo()" pour voir les appels qui sont fait par le code VB, VB6 ne proposant pas de pile d'appels
Commenter la réponse de Kristof_Koder

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.