Bonjour,
J'ai un truc bizarre, que je n'arrive pas à
cerner, ma routine d'erreur semble ne pas
fonctionner, car, quand je tente d'ouvrir un
fichier inexistant, au lieu de débrancher à
l'adresse indiquée en cas d'erreur, il me sort une
erreur système "Fichier inexistant", et pourtant
je fais toujours ainsi, et ça marche ? Voici:
p01k = FreeFile
On Error GoTo erreur1
Open "mpprix.txt" For Input As p01k '
<<<---ERREUR ???
Line Input #p01k, trans
Close p01k
' ...
GoTo fin1
'
erreur1:
On Error Resume Next
Close p01k
p01k = FreeFile
Open "mpprix.txt" For Output As p01k
'...
Bonjour,
J'ai un truc bizarre, que je n'arrive pas à
cerner, ma routine d'erreur semble ne pas
fonctionner, car, quand je tente d'ouvrir un
fichier inexistant, au lieu de débrancher à
l'adresse indiquée en cas d'erreur, il me sort une
erreur système "Fichier inexistant", et pourtant
je fais toujours ainsi, et ça marche ? Voici:
p01k = FreeFile
On Error GoTo erreur1
Open "mpprix.txt" For Input As p01k '
<<<---ERREUR ???
Line Input #p01k, trans
Close p01k
' ...
GoTo fin1
'
erreur1:
On Error Resume Next
Close p01k
p01k = FreeFile
Open "mpprix.txt" For Output As p01k
'...
Bonjour,
J'ai un truc bizarre, que je n'arrive pas à
cerner, ma routine d'erreur semble ne pas
fonctionner, car, quand je tente d'ouvrir un
fichier inexistant, au lieu de débrancher à
l'adresse indiquée en cas d'erreur, il me sort une
erreur système "Fichier inexistant", et pourtant
je fais toujours ainsi, et ça marche ? Voici:
p01k = FreeFile
On Error GoTo erreur1
Open "mpprix.txt" For Input As p01k '
<<<---ERREUR ???
Line Input #p01k, trans
Close p01k
' ...
GoTo fin1
'
erreur1:
On Error Resume Next
Close p01k
p01k = FreeFile
Open "mpprix.txt" For Output As p01k
'...
Open "mpprix.txt" For Input As #p01k '
Bonjour,
J'ai un truc bizarre, que je n'arrive pas à
cerner, ma routine d'erreur semble ne pas
fonctionner, car, quand je tente d'ouvrir un
fichier inexistant, au lieu de débrancher à
l'adresse indiquée en cas d'erreur, il me sort une
erreur système "Fichier inexistant", et pourtant
je fais toujours ainsi, et ça marche ? Voici:
p01k = FreeFile
On Error GoTo erreur1
Open "mpprix.txt" For Input As p01k '
<<<---ERREUR ???
Line Input #p01k, trans
Close p01k
' ...
GoTo fin1
'
erreur1:
On Error Resume Next
Close p01k
p01k = FreeFile
Open "mpprix.txt" For Output As p01k
'...
--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
Open "mpprix.txt" For Input As #p01k '
Bonjour,
J'ai un truc bizarre, que je n'arrive pas à
cerner, ma routine d'erreur semble ne pas
fonctionner, car, quand je tente d'ouvrir un
fichier inexistant, au lieu de débrancher à
l'adresse indiquée en cas d'erreur, il me sort une
erreur système "Fichier inexistant", et pourtant
je fais toujours ainsi, et ça marche ? Voici:
p01k = FreeFile
On Error GoTo erreur1
Open "mpprix.txt" For Input As p01k '
<<<---ERREUR ???
Line Input #p01k, trans
Close p01k
' ...
GoTo fin1
'
erreur1:
On Error Resume Next
Close p01k
p01k = FreeFile
Open "mpprix.txt" For Output As p01k
'...
--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
Open "mpprix.txt" For Input As #p01k '
Bonjour,
J'ai un truc bizarre, que je n'arrive pas à
cerner, ma routine d'erreur semble ne pas
fonctionner, car, quand je tente d'ouvrir un
fichier inexistant, au lieu de débrancher à
l'adresse indiquée en cas d'erreur, il me sort une
erreur système "Fichier inexistant", et pourtant
je fais toujours ainsi, et ça marche ? Voici:
p01k = FreeFile
On Error GoTo erreur1
Open "mpprix.txt" For Input As p01k '
<<<---ERREUR ???
Line Input #p01k, trans
Close p01k
' ...
GoTo fin1
'
erreur1:
On Error Resume Next
Close p01k
p01k = FreeFile
Open "mpprix.txt" For Output As p01k
'...
--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
Bonjour,
suis pas ceratin à 100% mais n'aurait tu pas oublier : #Open "mpprix.txt" For Input As #p01k '
moi c'est ainsi que j'ouvre
Pascal
"LE TROLL" <le a écrit dans le message de news:Bonjour,
J'ai un truc bizarre, que je n'arrive pas à
cerner, ma routine d'erreur semble ne pas
fonctionner, car, quand je tente d'ouvrir un
fichier inexistant, au lieu de débrancher à
l'adresse indiquée en cas d'erreur, il me sort une
erreur système "Fichier inexistant", et pourtant
je fais toujours ainsi, et ça marche ? Voici:
p01k = FreeFile
On Error GoTo erreur1
Open "mpprix.txt" For Input As p01k '
<<<---ERREUR ???
Line Input #p01k, trans
Close p01k
' ...
GoTo fin1
'
erreur1:
On Error Resume Next
Close p01k
p01k = FreeFile
Open "mpprix.txt" For Output As p01k
'...
--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
Bonjour,
suis pas ceratin à 100% mais n'aurait tu pas oublier : #
Open "mpprix.txt" For Input As #p01k '
moi c'est ainsi que j'ouvre
Pascal
"LE TROLL" <le troll@enfer.fr> a écrit dans le message de news:
udVzJlaMIHA.4480@TK2MSFTNGP06.phx.gbl...
Bonjour,
J'ai un truc bizarre, que je n'arrive pas à
cerner, ma routine d'erreur semble ne pas
fonctionner, car, quand je tente d'ouvrir un
fichier inexistant, au lieu de débrancher à
l'adresse indiquée en cas d'erreur, il me sort une
erreur système "Fichier inexistant", et pourtant
je fais toujours ainsi, et ça marche ? Voici:
p01k = FreeFile
On Error GoTo erreur1
Open "mpprix.txt" For Input As p01k '
<<<---ERREUR ???
Line Input #p01k, trans
Close p01k
' ...
GoTo fin1
'
erreur1:
On Error Resume Next
Close p01k
p01k = FreeFile
Open "mpprix.txt" For Output As p01k
'...
--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
Bonjour,
suis pas ceratin à 100% mais n'aurait tu pas oublier : #Open "mpprix.txt" For Input As #p01k '
moi c'est ainsi que j'ouvre
Pascal
"LE TROLL" <le a écrit dans le message de news:Bonjour,
J'ai un truc bizarre, que je n'arrive pas à
cerner, ma routine d'erreur semble ne pas
fonctionner, car, quand je tente d'ouvrir un
fichier inexistant, au lieu de débrancher à
l'adresse indiquée en cas d'erreur, il me sort une
erreur système "Fichier inexistant", et pourtant
je fais toujours ainsi, et ça marche ? Voici:
p01k = FreeFile
On Error GoTo erreur1
Open "mpprix.txt" For Input As p01k '
<<<---ERREUR ???
Line Input #p01k, trans
Close p01k
' ...
GoTo fin1
'
erreur1:
On Error Resume Next
Close p01k
p01k = FreeFile
Open "mpprix.txt" For Output As p01k
'...
--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
Bonjour,
suis pas ceratin à 100% mais n'aurait tu pas oublier : #Open "mpprix.txt" For Input As #p01k '
moi c'est ainsi que j'ouvre
Pascal
"LE TROLL" <le a écrit dans le message de news:Bonjour,
J'ai un truc bizarre, que je n'arrive pas à
cerner, ma routine d'erreur semble ne pas
fonctionner, car, quand je tente d'ouvrir un
fichier inexistant, au lieu de débrancher à
l'adresse indiquée en cas d'erreur, il me sort une
erreur système "Fichier inexistant", et pourtant
je fais toujours ainsi, et ça marche ? Voici:
p01k = FreeFile
On Error GoTo erreur1
Open "mpprix.txt" For Input As p01k '
<<<---ERREUR ???
Line Input #p01k, trans
Close p01k
' ...
GoTo fin1
'
erreur1:
On Error Resume Next
Close p01k
p01k = FreeFile
Open "mpprix.txt" For Output As p01k
'...
--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
Bonjour,
suis pas ceratin à 100% mais n'aurait tu pas oublier : #
Open "mpprix.txt" For Input As #p01k '
moi c'est ainsi que j'ouvre
Pascal
"LE TROLL" <le troll@enfer.fr> a écrit dans le message de news:
udVzJlaMIHA.4480@TK2MSFTNGP06.phx.gbl...
Bonjour,
J'ai un truc bizarre, que je n'arrive pas à
cerner, ma routine d'erreur semble ne pas
fonctionner, car, quand je tente d'ouvrir un
fichier inexistant, au lieu de débrancher à
l'adresse indiquée en cas d'erreur, il me sort une
erreur système "Fichier inexistant", et pourtant
je fais toujours ainsi, et ça marche ? Voici:
p01k = FreeFile
On Error GoTo erreur1
Open "mpprix.txt" For Input As p01k '
<<<---ERREUR ???
Line Input #p01k, trans
Close p01k
' ...
GoTo fin1
'
erreur1:
On Error Resume Next
Close p01k
p01k = FreeFile
Open "mpprix.txt" For Output As p01k
'...
--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
Bonjour,
suis pas ceratin à 100% mais n'aurait tu pas oublier : #Open "mpprix.txt" For Input As #p01k '
moi c'est ainsi que j'ouvre
Pascal
"LE TROLL" <le a écrit dans le message de news:Bonjour,
J'ai un truc bizarre, que je n'arrive pas à
cerner, ma routine d'erreur semble ne pas
fonctionner, car, quand je tente d'ouvrir un
fichier inexistant, au lieu de débrancher à
l'adresse indiquée en cas d'erreur, il me sort une
erreur système "Fichier inexistant", et pourtant
je fais toujours ainsi, et ça marche ? Voici:
p01k = FreeFile
On Error GoTo erreur1
Open "mpprix.txt" For Input As p01k '
<<<---ERREUR ???
Line Input #p01k, trans
Close p01k
' ...
GoTo fin1
'
erreur1:
On Error Resume Next
Close p01k
p01k = FreeFile
Open "mpprix.txt" For Output As p01k
'...
--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
Bonjour,
J'ai un truc bizarre, que je n'arrive pas à
cerner, ma routine d'erreur semble ne pas
fonctionner, car, quand je tente d'ouvrir un
fichier inexistant, au lieu de débrancher à
l'adresse indiquée en cas d'erreur, il me sort
une
erreur système "Fichier inexistant", et pourtant
je fais toujours ainsi, et ça marche ? Voici:
p01k = FreeFile
On Error GoTo erreur1
Open "mpprix.txt" For Input As p01k '
<<<---ERREUR ???
Line Input #p01k, trans
Close p01k
' ...
GoTo fin1
'
erreur1:
On Error Resume Next
Close p01k
p01k = FreeFile
Open "mpprix.txt" For Output As p01k
'...
Bonjour,
J'ai un truc bizarre, que je n'arrive pas à
cerner, ma routine d'erreur semble ne pas
fonctionner, car, quand je tente d'ouvrir un
fichier inexistant, au lieu de débrancher à
l'adresse indiquée en cas d'erreur, il me sort
une
erreur système "Fichier inexistant", et pourtant
je fais toujours ainsi, et ça marche ? Voici:
p01k = FreeFile
On Error GoTo erreur1
Open "mpprix.txt" For Input As p01k '
<<<---ERREUR ???
Line Input #p01k, trans
Close p01k
' ...
GoTo fin1
'
erreur1:
On Error Resume Next
Close p01k
p01k = FreeFile
Open "mpprix.txt" For Output As p01k
'...
Bonjour,
J'ai un truc bizarre, que je n'arrive pas à
cerner, ma routine d'erreur semble ne pas
fonctionner, car, quand je tente d'ouvrir un
fichier inexistant, au lieu de débrancher à
l'adresse indiquée en cas d'erreur, il me sort
une
erreur système "Fichier inexistant", et pourtant
je fais toujours ainsi, et ça marche ? Voici:
p01k = FreeFile
On Error GoTo erreur1
Open "mpprix.txt" For Input As p01k '
<<<---ERREUR ???
Line Input #p01k, trans
Close p01k
' ...
GoTo fin1
'
erreur1:
On Error Resume Next
Close p01k
p01k = FreeFile
Open "mpprix.txt" For Output As p01k
'...
Bonjour,
J'ai un truc bizarre, que je n'arrive pas à
cerner, ma routine d'erreur semble ne pas
fonctionner, car, quand je tente d'ouvrir un
fichier inexistant, au lieu de débrancher à
l'adresse indiquée en cas d'erreur, il me sort une
erreur système "Fichier inexistant", et pourtant
je fais toujours ainsi, et ça marche ? Voici:
p01k = FreeFile
On Error GoTo erreur1
Open "mpprix.txt" For Input As p01k '
<<<---ERREUR ???
Line Input #p01k, trans
Close p01k
' ...
GoTo fin1
'
erreur1:
On Error Resume Next
Close p01k
p01k = FreeFile
Open "mpprix.txt" For Output As p01k
'...
Bonjour,
J'ai un truc bizarre, que je n'arrive pas à
cerner, ma routine d'erreur semble ne pas
fonctionner, car, quand je tente d'ouvrir un
fichier inexistant, au lieu de débrancher à
l'adresse indiquée en cas d'erreur, il me sort une
erreur système "Fichier inexistant", et pourtant
je fais toujours ainsi, et ça marche ? Voici:
p01k = FreeFile
On Error GoTo erreur1
Open "mpprix.txt" For Input As p01k '
<<<---ERREUR ???
Line Input #p01k, trans
Close p01k
' ...
GoTo fin1
'
erreur1:
On Error Resume Next
Close p01k
p01k = FreeFile
Open "mpprix.txt" For Output As p01k
'...
Bonjour,
J'ai un truc bizarre, que je n'arrive pas à
cerner, ma routine d'erreur semble ne pas
fonctionner, car, quand je tente d'ouvrir un
fichier inexistant, au lieu de débrancher à
l'adresse indiquée en cas d'erreur, il me sort une
erreur système "Fichier inexistant", et pourtant
je fais toujours ainsi, et ça marche ? Voici:
p01k = FreeFile
On Error GoTo erreur1
Open "mpprix.txt" For Input As p01k '
<<<---ERREUR ???
Line Input #p01k, trans
Close p01k
' ...
GoTo fin1
'
erreur1:
On Error Resume Next
Close p01k
p01k = FreeFile
Open "mpprix.txt" For Output As p01k
'...
Ah bon ??? Tu as fait un test ???
Ah bon ??? Tu as fait un test ???
Ah bon ??? Tu as fait un test ???