OVH Cloud OVH Cloud

chemin d'accès à un fichier

13 réponses
Avatar
velekinca
Bonjour tous le monde,
j'aimerais savoir s'il est possible de faire dans vba d'accéder à un fichier
par différents chemins...

je m'explique, j'ai un fichier excel qui est liée avec des fichiers textes
dont je fais les mises à jour, ce même fichier est utilisé par d'autres
collègues, et nous n'avons pas tous le même chemin d'accès, les uns peuvent
aller sous L:\.... et d'autres sous K:\....

est-ce que je peux dire à ma macro que si je ne trouve pas les fichiers dans
L:\.... je ne sort pas mais je continue dans K:\... et ainsi de suite???

merci pour votre réponse et à bientôt.

velekinca

3 réponses

1 2
Avatar
jps
merci, denis
mais maintenant, ce sera plutôt On Error Goto (apér)0 et tu auras ainsi
compris pourquoi j'adore me tromper si souvent...
jps

"MichDenis" a écrit dans le message de news:

Et bien, tu as compris,

Si tu insères après une "première erreur" On error goto 0 goto 0 si dans
le
reste de la procédure, tu as une autre erreur, la procédure
va s'arrêter et afficher un message d'erreur.

Si tu inscris "On error goto 0" à la dernière ligne de la procédure,
certes
toute la procédure va s'exécuter mais je doute alors de la pertinence
la ligne de code On error goto 0

Ceci étant dit, il ne faut surtout pas employer On error Resume next
pour camoufler toute sorte d'erreur... le résultat serait catastrophique.




"jps" a écrit dans le message de news:

comprends pas trop, denis, ce que tu veux me démontrer (qui a dit "ça ne
m'étonne pas"?)
si je déplace le On Error Goto 0 après le second Set Wk =, no problemo :
j'apprends que 4+5 font bien 9, même au québec!!!
si tu peux être un peu plus esqueplicite.....
jps

"MichDenis" a écrit dans le message de news:

Fais une petite expérience M. JPS,

Met ceci dans un module standard et selon le comportement de chacune,
tu décideras quelle procédure a le cheminement qui te convient :

'---------------------------
Sub Plaisir()

Dim Wk As Worksheet

On Error Resume Next
'La feuille toto n'existe pas dans ton classeur
Set Wk = Sheets("toto")
On Error GoTo 0
'La feuille tota n'existe pas dans ton classeur
Set Wk = Sheets("tota")

MsgBox 4 + 5

End Sub

'---------------------------
Sub Plaisir1()

Dim Wk As Worksheet

On Error Resume Next
'La feuille toto n'existe pas dans ton classeur
Set Wk = Sheets("toto")
Err = 0
'La feuille tota n'existe pas dans ton classeur
Set Wk = Sheets("tota")
Err = 0
MsgBox 4 + 5

End Sub
'---------------------------




"jps" a écrit dans le message de news:

ach!!!! exact, JB ; dans mon cas, le On Error Goto 0 n'était pas utile
car
il s'agissait de la fin de la macro
mais c'était à préciser en effet sinon bobo les erreurs susceptibles de
se
situer au-delà
jps

"JB" a écrit dans le message de news:

En n'oubliant pas On Error Goto 0 après -pour velekinca si elle ne
sait pas-

JB

bonjour velekinca
j'ai eu ce pb une fois (je ne suis pas belge pour autant) que j'ai réglé
par
un magnifique On Error Resume Next juste avant les 2 lignes
correspondant
aux 2 chemins
c'est sûrement moins sophistiqué que ce que propose JB mais on fait ça
qu'on
peut avec ça qu'on a....
jps

"velekinca" a écrit dans le
message
de
news:
Hello,

oui oui je sait ce qu'est un lecteur, et aussi connecter, mais
seulement,
ça
dépend de chaque poste comment il a été configuré, c'est pourquoi ma
question
est, que chaque utilisateur puisse aller et mettre à jour le fichier
excel...
donc les un ont le chemin K:..... et d'autres ont L:.... et ce n'est
jamais
pareil pour tout le monde...

donc pour ma macro il faut que j'insert deux lignes, l'une au cas où
l'utilisateur à accès à ce dossier par le lecteur K et l'autre ligne
au
cas
où l'utilisateur à accès à ce dossier par le lecteur L...

je ne sais pas trop si je suis clair...

merci à toi et à bientôt j'espère.

velekinca


Le L ou K est specifique à chaque poste
Dons outil > connecter un lecteur reseau tu voie ce que désigne L ou
K
réellement
Et dans la macro tu change le L ou K par son nom complet (chemin)
exemple seveurxxxxgroupesdata1
En esperant etre claire
A+




Bonjour tous le monde,
j'aimerais savoir s'il est possible de faire dans vba d'accéder à
un
fichier
par différents chemins...

je m'explique, j'ai un fichier excel qui est liée avec des fichiers
textes
dont je fais les mises à jour, ce même fichier est utilisé par
d'autres
collègues, et nous n'avons pas tous le même chemin d'accès, les uns
peuvent
aller sous L:.... et d'autres sous K:....

est-ce que je peux dire à ma macro que si je ne trouve pas les
fichiers
dans
L:.... je ne sort pas mais je continue dans K:... et ainsi de
suite???

merci pour votre réponse et à bientôt.

velekinca




















Avatar
MichDenis
;-))


"jps" a écrit dans le message de news:
merci, denis
mais maintenant, ce sera plutôt On Error Goto (apér)0 et tu auras ainsi
compris pourquoi j'adore me tromper si souvent...
jps

"MichDenis" a écrit dans le message de news:

Et bien, tu as compris,

Si tu insères après une "première erreur" On error goto 0 goto 0 si dans
le
reste de la procédure, tu as une autre erreur, la procédure
va s'arrêter et afficher un message d'erreur.

Si tu inscris "On error goto 0" à la dernière ligne de la procédure,
certes
toute la procédure va s'exécuter mais je doute alors de la pertinence
la ligne de code On error goto 0

Ceci étant dit, il ne faut surtout pas employer On error Resume next
pour camoufler toute sorte d'erreur... le résultat serait catastrophique.




"jps" a écrit dans le message de news:

comprends pas trop, denis, ce que tu veux me démontrer (qui a dit "ça ne
m'étonne pas"?)
si je déplace le On Error Goto 0 après le second Set Wk =, no problemo :
j'apprends que 4+5 font bien 9, même au québec!!!
si tu peux être un peu plus esqueplicite.....
jps

"MichDenis" a écrit dans le message de news:

Fais une petite expérience M. JPS,

Met ceci dans un module standard et selon le comportement de chacune,
tu décideras quelle procédure a le cheminement qui te convient :

'---------------------------
Sub Plaisir()

Dim Wk As Worksheet

On Error Resume Next
'La feuille toto n'existe pas dans ton classeur
Set Wk = Sheets("toto")
On Error GoTo 0
'La feuille tota n'existe pas dans ton classeur
Set Wk = Sheets("tota")

MsgBox 4 + 5

End Sub

'---------------------------
Sub Plaisir1()

Dim Wk As Worksheet

On Error Resume Next
'La feuille toto n'existe pas dans ton classeur
Set Wk = Sheets("toto")
Err = 0
'La feuille tota n'existe pas dans ton classeur
Set Wk = Sheets("tota")
Err = 0
MsgBox 4 + 5

End Sub
'---------------------------




"jps" a écrit dans le message de news:

ach!!!! exact, JB ; dans mon cas, le On Error Goto 0 n'était pas utile
car
il s'agissait de la fin de la macro
mais c'était à préciser en effet sinon bobo les erreurs susceptibles de
se
situer au-delà
jps

"JB" a écrit dans le message de news:

En n'oubliant pas On Error Goto 0 après -pour velekinca si elle ne
sait pas-

JB

bonjour velekinca
j'ai eu ce pb une fois (je ne suis pas belge pour autant) que j'ai réglé
par
un magnifique On Error Resume Next juste avant les 2 lignes
correspondant
aux 2 chemins
c'est sûrement moins sophistiqué que ce que propose JB mais on fait ça
qu'on
peut avec ça qu'on a....
jps

"velekinca" a écrit dans le
message
de
news:
Hello,

oui oui je sait ce qu'est un lecteur, et aussi connecter, mais
seulement,
ça
dépend de chaque poste comment il a été configuré, c'est pourquoi ma
question
est, que chaque utilisateur puisse aller et mettre à jour le fichier
excel...
donc les un ont le chemin K:..... et d'autres ont L:.... et ce n'est
jamais
pareil pour tout le monde...

donc pour ma macro il faut que j'insert deux lignes, l'une au cas où
l'utilisateur à accès à ce dossier par le lecteur K et l'autre ligne
au
cas
où l'utilisateur à accès à ce dossier par le lecteur L...

je ne sais pas trop si je suis clair...

merci à toi et à bientôt j'espère.

velekinca


Le L ou K est specifique à chaque poste
Dons outil > connecter un lecteur reseau tu voie ce que désigne L ou
K
réellement
Et dans la macro tu change le L ou K par son nom complet (chemin)
exemple seveurxxxxgroupesdata1
En esperant etre claire
A+




Bonjour tous le monde,
j'aimerais savoir s'il est possible de faire dans vba d'accéder à
un
fichier
par différents chemins...

je m'explique, j'ai un fichier excel qui est liée avec des fichiers
textes
dont je fais les mises à jour, ce même fichier est utilisé par
d'autres
collègues, et nous n'avons pas tous le même chemin d'accès, les uns
peuvent
aller sous L:.... et d'autres sous K:....

est-ce que je peux dire à ma macro que si je ne trouve pas les
fichiers
dans
L:.... je ne sort pas mais je continue dans K:... et ainsi de
suite???

merci pour votre réponse et à bientôt.

velekinca




















Avatar
Patrick Penet
Une autre méthode serait d'utiliser le File Scripting Object
qui permet de manipuler les disques, les répertoires et les
fichiers installés sur une machine.

Faire une recherche sur ce nom dans Google.

Si intéressé je poste un exemple.

Cordialement.
PP


"JB" a écrit dans le message de news:
Bonjour,

Si les les fichiers traités sont dans le même répertoire que le
classeur Excel (ou un sous-répertoire), on peut paramétrer les
chemins en utilisant - rep¬tiveWorkBook.Path - qui donne le
répertoire où est installé le classeur Excel.

Cordialement JB


Bonjour tous le monde,
j'aimerais savoir s'il est possible de faire dans vba d'accéder à un fichier
par différents chemins...

je m'explique, j'ai un fichier excel qui est liée avec des fichiers textes
dont je fais les mises à jour, ce même fichier est utilisé par d'autres
collègues, et nous n'avons pas tous le même chemin d'accès, les uns peuvent
aller sous L:.... et d'autres sous K:....

est-ce que je peux dire à ma macro que si je ne trouve pas les fichiers dans
L:.... je ne sort pas mais je continue dans K:... et ainsi de suite???

merci pour votre réponse et à bientôt.

velekinca


1 2