Est-il possible d'effectuer des tests conditionnels sur l'existence d'un
chemin ?
Ex :
IF "cette destination existe" :
ChDir "C:\Documents and Settings\toto\Bureau" THEN
"cette destination"
ELSE
IF "cette autre destination existe" :
ChDir "C:\Documents and Settings\zaza\Bureau" THEN
"cette autre destination"
ETC.
C'est très mal exprimé, j'en conviens, mais peut-être m'aurez-vous compris
...
Avec un très grand retard, je te remercie ! (Je suis un peu obnubilé en ce moment par un "Bug" chronique ...)
A bientôt,
JP
"jps" a écrit dans le message de news:
eh ben, si c 'est cela, j-pascal, tu écris tous tes paths comme je te l'ai suggéré et tu fais précéder ces lignes du On Error Resume Next ainsi, ta proc trouvera toujours le bon chemin tu n'oublies pas, par contre, de remettre la gestion d'erreur à plat en ajoutant tout de suite après tes chemins On Error GoTo 0 voili voilou jps
"j-pascal" a écrit dans le message de news: %
Mal à comprendre ? Alors là, ça serait bien la première fois sur ce forum (lol). Demande à LSteph, il lit dans mes pensées ;-)
Cette appli doit fonctionner sur 5 PC différents quant à leurs "paths".
Pour ne pas avoir à "configurer" chaque chemin, je pensais à un test conditionnel qui balaye les 5 chemins et qui va là où le chemin existe ! J'accepte volontiers un ExitSub si le chemin n'existe pas ...
Est-ce plus clair ?
JP ;-)
"jps" a écrit dans le message de news:
bonsoir j-pascal si tu veux te donner le choix entre l'un et l'autre de ces chemins, tu peux écrire
On Error Resume Next ChDir "C:Documents and SettingstotoBureau" ChDir "C:Documents and SettingszazaBureau"
mais j'ai dû mal comprendre jps
"j-pascal" a écrit dans le message de news: %
Bonsoir,
Est-il possible d'effectuer des tests conditionnels sur l'existence d'un chemin ?
Ex :
IF "cette destination existe" : ChDir "C:Documents and SettingstotoBureau" THEN "cette destination" ELSE IF "cette autre destination existe" : ChDir "C:Documents and SettingszazaBureau" THEN "cette autre destination" ETC.
C'est très mal exprimé, j'en conviens, mais peut-être m'aurez-vous compris ...
Merci d'avance pour vos lumières,
Cordialement,
JP
Bonsoir Jean-Paul,
Avec un très grand retard, je te remercie ! (Je suis un peu obnubilé en ce
moment par un "Bug" chronique ...)
A bientôt,
JP
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
uIyHxvZAIHA.5312@TK2MSFTNGP02.phx.gbl...
eh ben, si c 'est cela, j-pascal, tu écris tous tes paths comme je te l'ai
suggéré et tu fais précéder ces lignes du On Error Resume Next
ainsi, ta proc trouvera toujours le bon chemin
tu n'oublies pas, par contre, de remettre la gestion d'erreur à plat en
ajoutant tout de suite après tes chemins On Error GoTo 0
voili voilou
jps
"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
%23c91KFVAIHA.1204@TK2MSFTNGP03.phx.gbl...
Mal à comprendre ? Alors là, ça serait bien la première fois sur ce forum
(lol). Demande à LSteph, il lit dans mes pensées ;-)
Cette appli doit fonctionner sur 5 PC différents quant à leurs "paths".
Pour ne pas avoir à "configurer" chaque chemin, je pensais à un test
conditionnel qui balaye les 5 chemins et qui va là où le chemin existe !
J'accepte volontiers un ExitSub si le chemin n'existe pas ...
Est-ce plus clair ?
JP ;-)
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
uUprhYUAIHA.748@TK2MSFTNGP04.phx.gbl...
bonsoir j-pascal
si tu veux te donner le choix entre l'un et l'autre de ces chemins, tu
peux écrire
On Error Resume Next
ChDir "C:Documents and SettingstotoBureau"
ChDir "C:Documents and SettingszazaBureau"
mais j'ai dû mal comprendre
jps
"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
%23HA6LFUAIHA.3508@TK2MSFTNGP06.phx.gbl...
Bonsoir,
Est-il possible d'effectuer des tests conditionnels sur l'existence
d'un chemin ?
Ex :
IF "cette destination existe" :
ChDir "C:Documents and SettingstotoBureau" THEN
"cette destination"
ELSE
IF "cette autre destination existe" :
ChDir "C:Documents and SettingszazaBureau" THEN
"cette autre destination"
ETC.
C'est très mal exprimé, j'en conviens, mais peut-être m'aurez-vous
compris ...
Avec un très grand retard, je te remercie ! (Je suis un peu obnubilé en ce moment par un "Bug" chronique ...)
A bientôt,
JP
"jps" a écrit dans le message de news:
eh ben, si c 'est cela, j-pascal, tu écris tous tes paths comme je te l'ai suggéré et tu fais précéder ces lignes du On Error Resume Next ainsi, ta proc trouvera toujours le bon chemin tu n'oublies pas, par contre, de remettre la gestion d'erreur à plat en ajoutant tout de suite après tes chemins On Error GoTo 0 voili voilou jps
"j-pascal" a écrit dans le message de news: %
Mal à comprendre ? Alors là, ça serait bien la première fois sur ce forum (lol). Demande à LSteph, il lit dans mes pensées ;-)
Cette appli doit fonctionner sur 5 PC différents quant à leurs "paths".
Pour ne pas avoir à "configurer" chaque chemin, je pensais à un test conditionnel qui balaye les 5 chemins et qui va là où le chemin existe ! J'accepte volontiers un ExitSub si le chemin n'existe pas ...
Est-ce plus clair ?
JP ;-)
"jps" a écrit dans le message de news:
bonsoir j-pascal si tu veux te donner le choix entre l'un et l'autre de ces chemins, tu peux écrire
On Error Resume Next ChDir "C:Documents and SettingstotoBureau" ChDir "C:Documents and SettingszazaBureau"
mais j'ai dû mal comprendre jps
"j-pascal" a écrit dans le message de news: %
Bonsoir,
Est-il possible d'effectuer des tests conditionnels sur l'existence d'un chemin ?
Ex :
IF "cette destination existe" : ChDir "C:Documents and SettingstotoBureau" THEN "cette destination" ELSE IF "cette autre destination existe" : ChDir "C:Documents and SettingszazaBureau" THEN "cette autre destination" ETC.
C'est très mal exprimé, j'en conviens, mais peut-être m'aurez-vous compris ...
Merci d'avance pour vos lumières,
Cordialement,
JP
j-pascal
Merci Stéphane !
J'aime l'idée de pouvoir inscrire les "paths" dans un coin de la feuille ...
@+
JP
"lSteph" a écrit dans le message de news:
Re,
un message de Dj te proposait de trouver à coup sûr un chemin (c'est peut-être in fine une façon de traiter plus directement ton objectif le cas échéant), c'est bizarre mais cela arrive je ne le vois plus ni le mien de ce matin ...
je résume donc mon bout de code se voulait expliquer méthodiquement comment mettre dans une variable tst booléeenne le résultat de cette vérification cela peut s'utiliser dans une sub ou dans une fonction. On error resume next saute l'erreur passe au suivant à chaque erreur ce qui fait que même si tous les chemins sont valides si on en met plusieurs le seul dernier sera executé donc exit le subterfuge pourtant plus rapide de Jps sauf qu'en parlant d'exit c'est ce qu'on pourrait utiliser, donc on suppose la liste des chemins en a1:a10
Option Explicit
Sub cecheminsinonlautre() Dim c As Range, tst As Boolean
For Each c In [a1:a10] On Error Resume Next ChDir c tst = CurDir = c If tst Then Exit For Next If Not tst Then ChDir "c:" End Sub
'lSteph
On 28 sep, 00:02, "j-pascal" wrote:
Re,
Puis-je t'inviter à jeter un oeil sur les précisions que j'ai apportées à jps ? Merci pour ta présente proposition, je testerai demain (zut, c'est déjà demain ;-( Chouette, je vais pouvoir tester mes MdP dynamiques [hs] )
Bonne nuit,
JP
"LSteph" a écrit dans le message de news:
Sub testchemin() Dim tst As Boolean On Error Resume Next ChDir "c:nimportequoi" tst = CurDir = "c:nimportequoi" On Error GoTo 0 If Not tst Then ChDir "c:" End Sub
Bonsoir,
Est-il possible d'effectuer des tests conditionnels sur l'existence d'un chemin ?
Ex :
IF "cette destination existe" : ChDir "C:Documents and SettingstotoBureau" THEN "cette destination" ELSE IF "cette autre destination existe" : ChDir "C:Documents and SettingszazaBureau" THEN "cette autre destination" ETC.
C'est très mal exprimé, j'en conviens, mais peut-être m'aurez-vous compris ...
Merci d'avance pour vos lumières,
Cordialement,
JP
Merci Stéphane !
J'aime l'idée de pouvoir inscrire les "paths" dans un coin de la feuille ...
@+
JP
"lSteph" <gmLSteph@gmail.com> a écrit dans le message de news:
1190969737.126927.326950@r29g2000hsg.googlegroups.com...
Re,
un message de Dj te proposait de trouver à coup sûr un chemin
(c'est peut-être in fine une façon de traiter plus directement ton
objectif le cas échéant),
c'est bizarre mais cela arrive je ne le vois plus
ni le mien de ce matin ...
je résume donc mon bout de code se voulait expliquer méthodiquement
comment mettre
dans une variable tst booléeenne le résultat de cette vérification
cela peut s'utiliser dans une sub ou dans une fonction.
On error resume next saute l'erreur passe au suivant à chaque erreur
ce qui fait que même si tous les chemins sont valides si on en met
plusieurs le seul dernier sera executé donc exit le subterfuge
pourtant plus rapide de Jps sauf qu'en parlant d'exit
c'est ce qu'on pourrait utiliser, donc on suppose la liste des
chemins en a1:a10
Option Explicit
Sub cecheminsinonlautre()
Dim c As Range, tst As Boolean
For Each c In [a1:a10]
On Error Resume Next
ChDir c
tst = CurDir = c
If tst Then Exit For
Next
If Not tst Then ChDir "c:"
End Sub
'lSteph
On 28 sep, 00:02, "j-pascal" <nospam-j-pas...@free.fr> wrote:
Re,
Puis-je t'inviter à jeter un oeil sur les précisions que j'ai apportées à
jps ?
Merci pour ta présente proposition, je testerai demain (zut, c'est déjà
demain ;-( Chouette, je vais pouvoir tester mes MdP dynamiques [hs] )
Bonne nuit,
JP
"LSteph" <lecocost...@frite.fr> a écrit dans le message de news:
uwb1JcUAIHA.4...@TK2MSFTNGP04.phx.gbl...
Sub testchemin()
Dim tst As Boolean
On Error Resume Next
ChDir "c:nimportequoi"
tst = CurDir = "c:nimportequoi"
On Error GoTo 0
If Not tst Then ChDir "c:"
End Sub
Bonsoir,
Est-il possible d'effectuer des tests conditionnels sur l'existence
d'un
chemin ?
Ex :
IF "cette destination existe" :
ChDir "C:Documents and SettingstotoBureau" THEN
"cette destination"
ELSE
IF "cette autre destination existe" :
ChDir "C:Documents and SettingszazaBureau" THEN
"cette autre destination"
ETC.
C'est très mal exprimé, j'en conviens, mais peut-être m'aurez-vous
compris ...
J'aime l'idée de pouvoir inscrire les "paths" dans un coin de la feuille ...
@+
JP
"lSteph" a écrit dans le message de news:
Re,
un message de Dj te proposait de trouver à coup sûr un chemin (c'est peut-être in fine une façon de traiter plus directement ton objectif le cas échéant), c'est bizarre mais cela arrive je ne le vois plus ni le mien de ce matin ...
je résume donc mon bout de code se voulait expliquer méthodiquement comment mettre dans une variable tst booléeenne le résultat de cette vérification cela peut s'utiliser dans une sub ou dans une fonction. On error resume next saute l'erreur passe au suivant à chaque erreur ce qui fait que même si tous les chemins sont valides si on en met plusieurs le seul dernier sera executé donc exit le subterfuge pourtant plus rapide de Jps sauf qu'en parlant d'exit c'est ce qu'on pourrait utiliser, donc on suppose la liste des chemins en a1:a10
Option Explicit
Sub cecheminsinonlautre() Dim c As Range, tst As Boolean
For Each c In [a1:a10] On Error Resume Next ChDir c tst = CurDir = c If tst Then Exit For Next If Not tst Then ChDir "c:" End Sub
'lSteph
On 28 sep, 00:02, "j-pascal" wrote:
Re,
Puis-je t'inviter à jeter un oeil sur les précisions que j'ai apportées à jps ? Merci pour ta présente proposition, je testerai demain (zut, c'est déjà demain ;-( Chouette, je vais pouvoir tester mes MdP dynamiques [hs] )
Bonne nuit,
JP
"LSteph" a écrit dans le message de news:
Sub testchemin() Dim tst As Boolean On Error Resume Next ChDir "c:nimportequoi" tst = CurDir = "c:nimportequoi" On Error GoTo 0 If Not tst Then ChDir "c:" End Sub
Bonsoir,
Est-il possible d'effectuer des tests conditionnels sur l'existence d'un chemin ?
Ex :
IF "cette destination existe" : ChDir "C:Documents and SettingstotoBureau" THEN "cette destination" ELSE IF "cette autre destination existe" : ChDir "C:Documents and SettingszazaBureau" THEN "cette autre destination" ETC.
C'est très mal exprimé, j'en conviens, mais peut-être m'aurez-vous compris ...
Merci d'avance pour vos lumières,
Cordialement,
JP
j-pascal
Re,
Bcp trop compliqué pour un néophyte; par ailleurs, si je clique sur le bouton, j'obtiens : C:DocumentAndSettingsJean-PascalBureau .. Alors, à quoi servent toutes ces lignes de codes ?
JP
"Daniel.j" a écrit dans le message de news:
http://www.cijoint.fr/cij68083683227016.xls
Daniel
"lSteph" a écrit dans le message de news:
Re,
un message de Dj te proposait de trouver à coup sûr un chemin (c'est peut-être in fine une façon de traiter plus directement ton objectif le cas échéant), c'est bizarre mais cela arrive je ne le vois plus ni le mien de ce matin ...
je résume donc mon bout de code se voulait expliquer méthodiquement comment mettre dans une variable tst booléeenne le résultat de cette vérification cela peut s'utiliser dans une sub ou dans une fonction. On error resume next saute l'erreur passe au suivant à chaque erreur ce qui fait que même si tous les chemins sont valides si on en met plusieurs le seul dernier sera executé donc exit le subterfuge pourtant plus rapide de Jps sauf qu'en parlant d'exit c'est ce qu'on pourrait utiliser, donc on suppose la liste des chemins en a1:a10
Option Explicit
Sub cecheminsinonlautre() Dim c As Range, tst As Boolean
For Each c In [a1:a10] On Error Resume Next ChDir c tst = CurDir = c If tst Then Exit For Next If Not tst Then ChDir "c:" End Sub
'lSteph
On 28 sep, 00:02, "j-pascal" wrote:
Re,
Puis-je t'inviter à jeter un oeil sur les précisions que j'ai apportées à jps ? Merci pour ta présente proposition, je testerai demain (zut, c'est déjà demain ;-( Chouette, je vais pouvoir tester mes MdP dynamiques [hs] )
Bonne nuit,
JP
"LSteph" a écrit dans le message de news:
Sub testchemin() Dim tst As Boolean On Error Resume Next ChDir "c:nimportequoi" tst = CurDir = "c:nimportequoi" On Error GoTo 0 If Not tst Then ChDir "c:" End Sub
Bonsoir,
Est-il possible d'effectuer des tests conditionnels sur l'existence d'un chemin ?
Ex :
IF "cette destination existe" : ChDir "C:Documents and SettingstotoBureau" THEN "cette destination" ELSE IF "cette autre destination existe" : ChDir "C:Documents and SettingszazaBureau" THEN "cette autre destination" ETC.
C'est très mal exprimé, j'en conviens, mais peut-être m'aurez-vous compris ...
Merci d'avance pour vos lumières,
Cordialement,
JP
Re,
Bcp trop compliqué pour un néophyte; par ailleurs, si je clique sur le
bouton, j'obtiens :
C:DocumentAndSettingsJean-PascalBureau ..
Alors, à quoi servent toutes ces lignes de codes ?
JP
"Daniel.j" <dj@free.fr> a écrit dans le message de news:
eSJE38aAIHA.5652@TK2MSFTNGP05.phx.gbl...
http://www.cijoint.fr/cij68083683227016.xls
Daniel
"lSteph" <gmLSteph@gmail.com> a écrit dans le message de news:
1190969737.126927.326950@r29g2000hsg.googlegroups.com...
Re,
un message de Dj te proposait de trouver à coup sûr un chemin
(c'est peut-être in fine une façon de traiter plus directement ton
objectif le cas échéant),
c'est bizarre mais cela arrive je ne le vois plus
ni le mien de ce matin ...
je résume donc mon bout de code se voulait expliquer méthodiquement
comment mettre
dans une variable tst booléeenne le résultat de cette vérification
cela peut s'utiliser dans une sub ou dans une fonction.
On error resume next saute l'erreur passe au suivant à chaque erreur
ce qui fait que même si tous les chemins sont valides si on en met
plusieurs le seul dernier sera executé donc exit le subterfuge
pourtant plus rapide de Jps sauf qu'en parlant d'exit
c'est ce qu'on pourrait utiliser, donc on suppose la liste des
chemins en a1:a10
Option Explicit
Sub cecheminsinonlautre()
Dim c As Range, tst As Boolean
For Each c In [a1:a10]
On Error Resume Next
ChDir c
tst = CurDir = c
If tst Then Exit For
Next
If Not tst Then ChDir "c:"
End Sub
'lSteph
On 28 sep, 00:02, "j-pascal" <nospam-j-pas...@free.fr> wrote:
Re,
Puis-je t'inviter à jeter un oeil sur les précisions que j'ai apportées à
jps ?
Merci pour ta présente proposition, je testerai demain (zut, c'est déjà
demain ;-( Chouette, je vais pouvoir tester mes MdP dynamiques [hs] )
Bonne nuit,
JP
"LSteph" <lecocost...@frite.fr> a écrit dans le message de news:
uwb1JcUAIHA.4...@TK2MSFTNGP04.phx.gbl...
Sub testchemin()
Dim tst As Boolean
On Error Resume Next
ChDir "c:nimportequoi"
tst = CurDir = "c:nimportequoi"
On Error GoTo 0
If Not tst Then ChDir "c:"
End Sub
Bonsoir,
Est-il possible d'effectuer des tests conditionnels sur l'existence
d'un
chemin ?
Ex :
IF "cette destination existe" :
ChDir "C:Documents and SettingstotoBureau" THEN
"cette destination"
ELSE
IF "cette autre destination existe" :
ChDir "C:Documents and SettingszazaBureau" THEN
"cette autre destination"
ETC.
C'est très mal exprimé, j'en conviens, mais peut-être m'aurez-vous
compris ...
Bcp trop compliqué pour un néophyte; par ailleurs, si je clique sur le bouton, j'obtiens : C:DocumentAndSettingsJean-PascalBureau .. Alors, à quoi servent toutes ces lignes de codes ?
JP
"Daniel.j" a écrit dans le message de news:
http://www.cijoint.fr/cij68083683227016.xls
Daniel
"lSteph" a écrit dans le message de news:
Re,
un message de Dj te proposait de trouver à coup sûr un chemin (c'est peut-être in fine une façon de traiter plus directement ton objectif le cas échéant), c'est bizarre mais cela arrive je ne le vois plus ni le mien de ce matin ...
je résume donc mon bout de code se voulait expliquer méthodiquement comment mettre dans une variable tst booléeenne le résultat de cette vérification cela peut s'utiliser dans une sub ou dans une fonction. On error resume next saute l'erreur passe au suivant à chaque erreur ce qui fait que même si tous les chemins sont valides si on en met plusieurs le seul dernier sera executé donc exit le subterfuge pourtant plus rapide de Jps sauf qu'en parlant d'exit c'est ce qu'on pourrait utiliser, donc on suppose la liste des chemins en a1:a10
Option Explicit
Sub cecheminsinonlautre() Dim c As Range, tst As Boolean
For Each c In [a1:a10] On Error Resume Next ChDir c tst = CurDir = c If tst Then Exit For Next If Not tst Then ChDir "c:" End Sub
'lSteph
On 28 sep, 00:02, "j-pascal" wrote:
Re,
Puis-je t'inviter à jeter un oeil sur les précisions que j'ai apportées à jps ? Merci pour ta présente proposition, je testerai demain (zut, c'est déjà demain ;-( Chouette, je vais pouvoir tester mes MdP dynamiques [hs] )
Bonne nuit,
JP
"LSteph" a écrit dans le message de news:
Sub testchemin() Dim tst As Boolean On Error Resume Next ChDir "c:nimportequoi" tst = CurDir = "c:nimportequoi" On Error GoTo 0 If Not tst Then ChDir "c:" End Sub
Bonsoir,
Est-il possible d'effectuer des tests conditionnels sur l'existence d'un chemin ?
Ex :
IF "cette destination existe" : ChDir "C:Documents and SettingstotoBureau" THEN "cette destination" ELSE IF "cette autre destination existe" : ChDir "C:Documents and SettingszazaBureau" THEN "cette autre destination" ETC.
C'est très mal exprimé, j'en conviens, mais peut-être m'aurez-vous compris ...