OVH Cloud OVH Cloud

répertoire en vba

4 réponses
Avatar
denis le breton
Hello, ici il fait gris et l'orage menace.
Mais que cela ne freine pas les coeurs vaillants.

Voici une nouvelle enigme
mon fichier est sous l'arborescence
G:\rep_princip\sousrep_un\toto.xls
après un traitement par vba je veux placer le fichier modifier sous
G:\rep_princip\sousrep_deux\
refaire un autre traitement et placer le résulat sous
G:\rep_sauv\

Mis à part nommer à la mano les répertoires et l'arborescence, est il
possible de récupérer le lecteur réseau G:\
récupérer le répertoire parent \sousrep_un\
le répertoire parent du répertoire parent \rep_princip\

activeworbook.name me donne toto.xls
activeworbook.path me donne G:\rep_princip\sousrep_un\

Merci de vos réponses
Denis

4 réponses

Avatar
Oliv'
*denis le breton que je salut a
écrit *:
Hello, ici il fait gris et l'orage menace.
Mais que cela ne freine pas les coeurs vaillants.

Voici une nouvelle enigme
mon fichier est sous l'arborescence
G:rep_principsousrep_untoto.xls
après un traitement par vba je veux placer le fichier modifier sous
G:rep_principsousrep_deux
refaire un autre traitement et placer le résulat sous
G:rep_sauv

Mis à part nommer à la mano les répertoires et l'arborescence, est il
possible de récupérer le lecteur réseau G:


lecteur = left(activeworbook.path,3)

récupérer le répertoire parent sousrep_un
le répertoire parent du répertoire parent rep_princip
tu peux utiliser une boucle qui va tester dans path la présence du caractère

""
utilises les fonctions InStr, LEFT, mid etc...

activeworbook.name me donne toto.xls
activeworbook.path me donne G:rep_principsousrep_un
tu as aussi fullname.



--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Avatar
Michel Rotteleur [MS]
Alternativement, Microsoft a développé une bibliothèque permettant d'accéder
aux propriétés d'un fichier ou d'un dossier, comme par exemple dans votre cas
son ParentFolder.

L'objet à utiliser est le FileSystemObject de la Scripting Runtime Library.

Pour utiliser la Scripting Runtime Library directement en VBA avec
l'intellisense (en "early binding"): dans le menu Outils / Références...,
cocher "Microsoft Scripting Runtime"

Pour connaître les fonctionnalités du FileSystemObject, consulter le site
msdn, en commençant par exemple par
http://windowssdk.msdn.microsoft.com/en-gb/library/d6dw7aeh(en-us,vs.80).aspx

Cordialement,


Michel Rotteleur
Microsoft France



*denis le breton que je salut a
écrit *:
Hello, ici il fait gris et l'orage menace.
Mais que cela ne freine pas les coeurs vaillants.

Voici une nouvelle enigme
mon fichier est sous l'arborescence
G:rep_principsousrep_untoto.xls
après un traitement par vba je veux placer le fichier modifier sous
G:rep_principsousrep_deux
refaire un autre traitement et placer le résulat sous
G:rep_sauv

Mis à part nommer à la mano les répertoires et l'arborescence, est il
possible de récupérer le lecteur réseau G:


lecteur = left(activeworbook.path,3)

récupérer le répertoire parent sousrep_un
le répertoire parent du répertoire parent rep_princip
tu peux utiliser une boucle qui va tester dans path la présence du caractère

""
utilises les fonctions InStr, LEFT, mid etc...

activeworbook.name me donne toto.xls
activeworbook.path me donne G:rep_principsousrep_un
tu as aussi fullname.



--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~






Avatar
FxM
Bonsoir,

Pour chemin_complet = G:rep_principsousrep_untoto.xls

tablo = split(chemin_complet,"")
te donne :
tablo(0) = "G:"
tablo(1) = "rep_princip"
tablo(2) = "sousrep_un"
tablo(3) = "toto.xls"

sub test
chemin_complet = actveworkbook.fullname
tablo = split(chemin_complet,"")
chemin = ""
for a = 0 to ubound(tablo)-2
chemin = chemin & tablo(a) & ""
next a
call traitement1
deux = chemin & "sousrep_deuxnom_fichier.xls"
activeworkbook.saveas deux
call traitement2
trois = chemin & "nom_fichier.xls"
activeworkbook.saveas trois
end sub

@+
FxM


Hello, ici il fait gris et l'orage menace.
Mais que cela ne freine pas les coeurs vaillants.

Voici une nouvelle enigme
mon fichier est sous l'arborescence
G:rep_principsousrep_untoto.xls
après un traitement par vba je veux placer le fichier modifier sous
G:rep_principsousrep_deux
refaire un autre traitement et placer le résulat sous
G:rep_sauv

Mis à part nommer à la mano les répertoires et l'arborescence, est il
possible de récupérer le lecteur réseau G:
récupérer le répertoire parent sousrep_un
le répertoire parent du répertoire parent rep_princip

activeworbook.name me donne toto.xls
activeworbook.path me donne G:rep_principsousrep_un

Merci de vos réponses
Denis


Avatar
Michel Rotteleur [MS]
Un article en français sur la Bibliothèque d'objets Microsoft Scripting
Runtime :
http://msdn.microsoft.com/library/fre/default.asp?url=/library/FRE/modcore/html/deconthemicrosoftscriptingruntimeobjectlibrary.asp


"Michel Rotteleur [MS]" <Michel Rotteleur [MS]@discussions.microsoft.com> a
écrit dans le message de news:

Alternativement, Microsoft a développé une bibliothèque permettant
d'accéder
aux propriétés d'un fichier ou d'un dossier, comme par exemple dans votre
cas
son ParentFolder.

L'objet à utiliser est le FileSystemObject de la Scripting Runtime
Library.

Pour utiliser la Scripting Runtime Library directement en VBA avec
l'intellisense (en "early binding"): dans le menu Outils / Références...,
cocher "Microsoft Scripting Runtime"

Pour connaître les fonctionnalités du FileSystemObject, consulter le site
msdn, en commençant par exemple par
http://windowssdk.msdn.microsoft.com/en-gb/library/d6dw7aeh(en-us,vs.80).aspx

Cordialement,


Michel Rotteleur
Microsoft France



*denis le breton que je salut a
écrit *:
Hello, ici il fait gris et l'orage menace.
Mais que cela ne freine pas les coeurs vaillants.

Voici une nouvelle enigme
mon fichier est sous l'arborescence
G:rep_principsousrep_untoto.xls
après un traitement par vba je veux placer le fichier modifier sous
G:rep_principsousrep_deux
refaire un autre traitement et placer le résulat sous
G:rep_sauv

Mis à part nommer à la mano les répertoires et l'arborescence, est il
possible de récupérer le lecteur réseau G:


lecteur = left(activeworbook.path,3)

récupérer le répertoire parent sousrep_un
le répertoire parent du répertoire parent rep_princip
tu peux utiliser une boucle qui va tester dans path la présence du

caractère
""
utilises les fonctions InStr, LEFT, mid etc...

activeworbook.name me donne toto.xls
activeworbook.path me donne G:rep_principsousrep_un
tu as aussi fullname.



--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~