High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

Création de sous-répertoires VBA EXCEL

Dernière réponse le 14 fév 2009 à 13:36:11 philwil008, le 13 fév 2009 à 23:33:30 
 Signaler ce message aux modérateurs

Bonjour,

HELP création de sous-répertoires ?

Cette macro fonctionne parfaitement mais je souhaite la compléter. (....elle n'est pas de moi !).

MkDir "C:\Documents and Settings\philippe\Bureau\" & Range("A10").Value

Une fois le répertoire créé avec la macro ci-dessus, je souhaite créer une série de sous répertoire dans le répertoire que la macro vient de créer.

Avec la macro j’ai donc ce répertoire qui a été créé :

C:\Documents and Settings\philippe\Bureau\------------ (valeur de la celluleA10)

Avec la suite de la macro, je souhaite créer les sous répertoires suivants mais dans la suite du répertoire créé ci-dessus.

C:\Documents and Settings\philippe\Bureau\--------------\001 SW
C:\Documents and Settings\philippe\Bureau\--------------\002 DOC
C:\Documents and Settings\philippe\Bureau\--------------\003 CALCUL
C:\Documents and Settings\philippe\Bureau\--------------\004 ARCHIVE


Et ensuite des sous/sous/répertoires.


C:\Documents and Settings\philippe\Bureau\--------------\001 SW\001 RD
C:\Documents and Settings\philippe\Bureau\--------------\001 SW\001 VERSION
C:\Documents and Settings\philippe\Bureau\--------------\002 DOC\001 ACAD


Un grand merci pour votre aide.


Philwil

Configuration: Windows XP
Internet Explorer 7.0

Posez votre question Répondre

1

gbinforme, le 13 fév 2009 à 23:36:40

Bonjour

Sans doute ceci :

MkDir "C:\Documents and Settings\philippe\Bureau\" & Range("A10").Value & "\001 SW "
etc
Toujours zen

   
Répondre à gbinforme

2

philwil008, le 13 fév 2009 à 23:59:42

Merci pour ton code,

mais j'ai testé celui-ci et j'ai une Erreur d'exécution '76'
chemin d'accès introuvable !

J'ai l'impression qu'avec cette commade on demande à VBA de créer en même temps une racine de répertoire tout en y incluant déjà un sous-répertoire ?

   
Répondre à philwil008

3

lermite222, le 14 fév 2009 à 12:04:32

Bonjour,
J'ai testé et... 

    MkDir ("c:\") & Range("C1").Text & "\Stop"

Ca fonctionne
A+ L'expérience instruit plus sûrement que le conseil. (André Gide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

   
Répondre à lermite222

4

wilfried_42, le 14 fév 2009 à 12:12:02

Bonjour à tous

le probleme est qu'on ne peut créer un sous-sous- repertoire que si l'arborescence existe
de plus, mais la c'est personnel), je prefère controler les erreurs permetant de ne pas planter en cas d'existance du repertoire en question 

sub creat_rep()
     dim chem_base as string
     chem_base = "C:\Documents and Settings\philippe\Bureau\"
     on error resume next
     mkdir chem_base & "\" & range("A10").value
     mkdir chem_base & "\" & range("A10").value & "\001 SW"
'etc...............
     on error goto 0
end sub
Cordialement
Wilfried

ps: n'oubliez pas de mettre votre fil sur résolu quand vous obtenez ce que vous cherchez. Merci

   
Répondre à wilfried_42

5

lermite222, le 14 fév 2009 à 12:15:46

Salut Wilfried,
Tu a tester ce que tu à écrit ? \\
A+ L'expérience instruit plus sûrement que le conseil. (André G­ide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas for­cément le pot qui est vide. ;-)(Confucius)

   
Répondre à lermite222

6

wilfried_42, le 14 fév 2009 à 12:21:19

Bonjour lermite

oui je viens de voir et avec le on error resume next ca devient invisible 

chem_base = "C:\Documents and Settings\philippe\Bureau" ' Enlever le \ à la fin

les copier coller ...........

merci à toi lermite Cordialement
Wilfried

ps: n'oubliez pas de mettre votre fil sur résolu quand vous obtenez ce que vous cherchez. Merci

   
Répondre à wilfried_42

7

 philwil008, le 14 fév 2009 à 13:36:11

Un super grand merci à toute l'équipe.....

A+

   
Répondre à philwil008
Posez votre question Répondre
Ils ont besoin de votre aide