OVH Cloud OVH Cloud

Fichiers déjà ouverts

4 réponses
Avatar
omv
J'ai un probl=E8me de fichier d=E9j=E0 ouvert, et je n'ai eu=20
que des r=E9ponses
=E9tranges, genre "utilise FreeFile", =E9videmment que je=20
l'utilise!
Une autre r=E9ponse fut plus forte "En utilisant=20
correctement FreeFile, on ne
peut pas avoir (fichier d=E9j=E0 ouvert)", =E7a c'est fort comme=20
r=E9ponse, intense
et vibrant...

Il suffit de prendre un petit exemple pour d=E9montrer=20
labsurdit=E9 de ces
r=E9ponses (erreur =E0 adresse "1:"):
Sub Form_Load()
Dim pf1 As Long: Dim pf2 As Long
ChDrive App.Path: ChDir App.Path
pf1 =3D FreeFile
Open "test1.txt" For Append As pf1
pf2 =3D FreeFile
1: Open "test1.txt" For Binary As pf2 ' FICHIER DEJA=20
OUVERT ICI !!!
Reset
End Sub

Bon, =E0 part =E7a, j'ai toujours mon probl=E8me, moi, =E0=20
savoir que j'ai des
erreurs "fichier d=E9j=E0 ouvert", mais que je n'arrive pas =E0=20
localiser le
fichier concern=E9 ni le pointeur qui le g=E8re dans trois=20
m=E8tres de code, plein
de fichiers et proc=E9dures, alors la question est: Y a -t-
il une m=E9thode pour
savoir quels sont les pointeurs qui g=E8rent encore des=20
fichier au moment de
l'erreur, a fin de localisation?
Merci.

4 réponses

Avatar
François Picalausa
Bonjour/soir,

Est-il vraiment nécessaire de recréer un nouveau thread à chaque fois?
Diverses réponses avaient été apportées précédemment:
http://groups.google.be/groups?threadm=eXyf5Uh1DHA.1336%40TK2MSFTNGP12.phx.gbl
Si elles ne conviennent pas, peut-être indiquer pourquoi, pour qu'une
meilleure puisse être donnée?

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"omv" a écrit dans le message de
news:06b301c3d798$4da47450$
J'ai un problème de fichier déjà ouvert, et je n'ai eu
que des réponses
étranges, genre "utilise FreeFile", évidemment que je
l'utilise!
Une autre réponse fut plus forte "En utilisant
correctement FreeFile, on ne
peut pas avoir (fichier déjà ouvert)", ça c'est fort comme
réponse, intense
et vibrant...

Il suffit de prendre un petit exemple pour démontrer
labsurdité de ces
réponses (erreur à adresse "1:"):
Sub Form_Load()
Dim pf1 As Long: Dim pf2 As Long
ChDrive App.Path: ChDir App.Path
pf1 = FreeFile
Open "test1.txt" For Append As pf1
pf2 = FreeFile
1: Open "test1.txt" For Binary As pf2 ' FICHIER DEJA
OUVERT ICI !!!
Reset
End Sub

Bon, à part ça, j'ai toujours mon problème, moi, à
savoir que j'ai des
erreurs "fichier déjà ouvert", mais que je n'arrive pas à
localiser le
fichier concerné ni le pointeur qui le gère dans trois
mètres de code, plein
de fichiers et procédures, alors la question est: Y a -t-
il une méthode pour
savoir quels sont les pointeurs qui gèrent encore des
fichier au moment de
l'erreur, a fin de localisation?
Merci.


Avatar
Pierre-yves Girault
Je ne crois pas qu'il soit nécessaire de continuer à poser la même
question sans en changer une ligne...

D'ailleurs, en passant, je trouve que c'est aussi une mauvaise idée de
se moquer des réponses que des âmes charitables ont eu la bonté de formuler.

Peut-être utilisez vous freeFile correctement, mais étant donné les
erreurs avec lesquelles vous êtes en train de vous débattre, ça n'a rien
d' "évident" .

Je ne trouve vos remarques ni intenses, ni vibrantes, mais tout
simplement déplacées.

Personnellement j'ai bien une idée pour résoudre votre problème, mais
comme je suis un peu timide et susceptible, je ne prendrai pas le risque
de m'exposer à la « pertinence » de votre jugement.

C'est vrai quoi.
Franchement, ça donne pas envie de se creuser la tête.

Voila.
et toc.




omv wrote:

J'ai un problème de fichier déjà ouvert, et je n'ai eu
que des réponses
étranges, genre "utilise FreeFile", évidemment que je
l'utilise!
Une autre réponse fut plus forte "En utilisant
correctement FreeFile, on ne
peut pas avoir (fichier déjà ouvert)", ça c'est fort comme
réponse, intense
et vibrant...

Il suffit de prendre un petit exemple pour démontrer
labsurdité de ces
réponses (erreur à adresse "1:"):
Sub Form_Load()
Dim pf1 As Long: Dim pf2 As Long
ChDrive App.Path: ChDir App.Path
pf1 = FreeFile
Open "test1.txt" For Append As pf1
pf2 = FreeFile
1: Open "test1.txt" For Binary As pf2 ' FICHIER DEJA
OUVERT ICI !!!
Reset
End Sub

Bon, à part ça, j'ai toujours mon problème, moi, à
savoir que j'ai des
erreurs "fichier déjà ouvert", mais que je n'arrive pas à
localiser le
fichier concerné ni le pointeur qui le gère dans trois
mètres de code, plein
de fichiers et procédures, alors la question est: Y a -t-
il une méthode pour
savoir quels sont les pointeurs qui gèrent encore des
fichier au moment de
l'erreur, a fin de localisation?
Merci.



Avatar
ng
Tu le fais expres ou quoi ?!

--
Nicolas.
http://www.ngsoft-fr.com
"omv" a écrit dans le message de news:
06b301c3d798$4da47450$
J'ai un problème de fichier déjà ouvert, et je n'ai eu
que des réponses
étranges, genre "utilise FreeFile", évidemment que je
l'utilise!
Une autre réponse fut plus forte "En utilisant
correctement FreeFile, on ne
peut pas avoir (fichier déjà ouvert)", ça c'est fort comme
réponse, intense
et vibrant...

Il suffit de prendre un petit exemple pour démontrer
labsurdité de ces
réponses (erreur à adresse "1:"):
Sub Form_Load()
Dim pf1 As Long: Dim pf2 As Long
ChDrive App.Path: ChDir App.Path
pf1 = FreeFile
Open "test1.txt" For Append As pf1
pf2 = FreeFile
1: Open "test1.txt" For Binary As pf2 ' FICHIER DEJA
OUVERT ICI !!!
Reset
End Sub

Bon, à part ça, j'ai toujours mon problème, moi, à
savoir que j'ai des
erreurs "fichier déjà ouvert", mais que je n'arrive pas à
localiser le
fichier concerné ni le pointeur qui le gère dans trois
mètres de code, plein
de fichiers et procédures, alors la question est: Y a -t-
il une méthode pour
savoir quels sont les pointeurs qui gèrent encore des
fichier au moment de
l'erreur, a fin de localisation?
Merci.
Avatar
Patrice Henrio
D'accord, voir ma réponse dans le thread précédent.
Quand on est demandeur, on y met les formes.
On est toujours le débutant de quelqu'un.
"Pierre-yves Girault" a écrit dans le message de
news:
Je ne crois pas qu'il soit nécessaire de continuer à poser la même
question sans en changer une ligne...

D'ailleurs, en passant, je trouve que c'est aussi une mauvaise idée de
se moquer des réponses que des âmes charitables ont eu la bonté de


formuler.

Peut-être utilisez vous freeFile correctement, mais étant donné les
erreurs avec lesquelles vous êtes en train de vous débattre, ça n'a rien
d' "évident" .

Je ne trouve vos remarques ni intenses, ni vibrantes, mais tout
simplement déplacées.

Personnellement j'ai bien une idée pour résoudre votre problème, mais
comme je suis un peu timide et susceptible, je ne prendrai pas le risque
de m'exposer à la « pertinence » de votre jugement.

C'est vrai quoi.
Franchement, ça donne pas envie de se creuser la tête.

Voila.
et toc.




omv wrote:

> J'ai un problème de fichier déjà ouvert, et je n'ai eu
> que des réponses
> étranges, genre "utilise FreeFile", évidemment que je
> l'utilise!
> Une autre réponse fut plus forte "En utilisant
> correctement FreeFile, on ne
> peut pas avoir (fichier déjà ouvert)", ça c'est fort comme
> réponse, intense
> et vibrant...
>
> Il suffit de prendre un petit exemple pour démontrer
> labsurdité de ces
> réponses (erreur à adresse "1:"):
> Sub Form_Load()
> Dim pf1 As Long: Dim pf2 As Long
> ChDrive App.Path: ChDir App.Path
> pf1 = FreeFile
> Open "test1.txt" For Append As pf1
> pf2 = FreeFile
> 1: Open "test1.txt" For Binary As pf2 ' FICHIER DEJA
> OUVERT ICI !!!
> Reset
> End Sub
>
> Bon, à part ça, j'ai toujours mon problème, moi, à
> savoir que j'ai des
> erreurs "fichier déjà ouvert", mais que je n'arrive pas à
> localiser le
> fichier concerné ni le pointeur qui le gère dans trois
> mètres de code, plein
> de fichiers et procédures, alors la question est: Y a -t-
> il une méthode pour
> savoir quels sont les pointeurs qui gèrent encore des
> fichier au moment de
> l'erreur, a fin de localisation?
> Merci.
>