Problème File already Open [Résolu]

Signaler
Messages postés
48
Date d'inscription
lundi 11 février 2008
Statut
Membre
Dernière intervention
22 mai 2010
-
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
-
Bonjour tout le monde ,

Je fait encore appel à votre savoir pour m'indiquer quelque petite modife ou autre. J'ai un problème sous VB6 une de mes formes doit ouvrir un fichier text pour mettre à jour les combobox jusque la sava . Mais une autre forme doit permettre la mise à jour de ces dernieres mais pas moyen car la forme d'avant à toujours le fichier ouvert. Je cherche quelle fonction ou mot clé pour soit fermé la forme qui l'ouvre pour ce mettre à jour  soit un moyen de fermer le fichier plutôt que la forme.

Sous VB 2005 je connais l'instruction [nomdelaform].close mais la je ne sais pas quoi utiliser.

Merci encore pour votre aide,

Bonne journé

4 réponses

Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
3
Open OFile For Input As # LFile
....

Loop Until EOF (LFile)

Close #LFile
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
50
Salut,
De quelle maniere ouvres tu le fichier?

OPen "C:\Test" For .... As #X

Close(#X)

@+: Ju£i€n
Pensez: Réponse acceptée
Messages postés
48
Date d'inscription
lundi 11 février 2008
Statut
Membre
Dernière intervention
22 mai 2010

je l'ouvre de cette façon :


 


Dim LFile As long
Dim OFile As string
Dim Ligne As string
OFile = " adresse du fichier "
LFile = FreeFile
Open OFile For Input As # LFile
Do
Input #LFile, Ligne
Form7.Text13.Text = Form7.text13.Text & vbNewLine & ligne
Form7.Fourn.AddItem (Ligne)
Form7.text13 = ""
Loop Until EOF (LFile)

Voila je pense que le fichier ne ce ferme pas si quelqu'un peut maider a plus merci encore.
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
50
Salut,
Ouais donc  à peu de chose près ce que je proposais....

@+: Ju£i€n
Pensez: Réponse acceptée