Sujet Précédent Sujet Suivant

Re Problème pour sous/sous/répertoires en VBA

Résolu/Fermé
philwil008 Messages postés 5 Date d'inscription vendredi 13 février 2009 Statut Membre Dernière intervention 15 février 2009 - 15 févr. 2009 à 14:39
neogenesis Messages postés 4748 Date d'inscription dimanche 19 octobre 2008 Statut Contributeur Dernière intervention 24 janvier 2010 - 15 févr. 2009 à 15:03
Bonjour,

Sub creat_rep2()
Dim chem_base As String
chem_base = "C:\Documents and Settings\Xp\Bureau"
On Error Resume Next
MkDir chem_base & "\" & Range("A10").Value
MkDir chem_base & "\" & Range("A10").Value & "\001 SW"
MkDir chem_base & "\" & Range("A10").Value & "\002 ACAD"
MkDir chem_base & "\" & Range("A10").Value & "\003 PDF"
MkDir chem_base & "\" & Range("A10").Value & "\004 DOC IN"
'etc...............
On Error GoTo 0
End Sub



Le code ci-dessus que vous m’avez communiqué sur ce forum est super et fonctionne parfaitement mais !

J’ai crié un peu vite hourrah,… et je sèche un peu pour créer des sous/sous/répertoires voir ci-dessous.

Avec votre code VBA j’ai ceci :

C:\Documents and Settings\Xp\Bureau\001 SW
C:\Documents and Settings\Xp\Bureau\002 ACAD
C:\Documents and Settings\Xp\Bureau\003 PDF
C:\Documents and Settings\Xp\Bureau\004 DOC IN

Et je souhaite des sous/sous rep :

C:\Documents and Settings\Xp\Bureau\001 SW\001 PLAN 2D
C:\Documents and Settings\Xp\Bureau\001 SW\002 PLAN 3D
C:\Documents and Settings\Xp\Bureau\002 ACAD\TEMPLATES
C:\Documents and Settings\Xp\Bureau\002 ACAD\ TEMPLATES\2D
C:\Documents and Settings\Xp\Bureau\002 ACAD\ TEMPLATES\3D

Un grand merci, sans trop abuser !!!

A+

EXCEL 2003 SP3

3 réponses

Réponse 1 / 3
neogenesis Messages postés 4748 Date d'inscription dimanche 19 octobre 2008 Statut Contributeur Dernière intervention 24 janvier 2010 512
15 févr. 2009 à 14:41
Salut,

Tu rajoutes simplement "\nomdusousrepertoire\" à ton chemin !

Par exemple : 
MkDir chem_base & "\" & Range("A10").Value & "\001 SW\Sous repertoire 1\"


Et donc pour un sous-sous-sous-sous répertoire c'est la même procédure :-)
0
Réponse 2 / 3
gigaga Messages postés 2346 Date d'inscription vendredi 20 juin 2008 Statut Membre Dernière intervention 22 août 2014 301
15 févr. 2009 à 14:42
Sub creat_rep2()
Dim chem_base As String
chem_base = "C:\Documents and Settings\Xp\Bureau"
On Error Resume Next
MkDir chem_base & "\" & Range("A10").Value
MkDir chem_base & "\" & Range("A10").Value & "\001 SW"
MkDir chem_base & "\" & Range("A10").Value & "\001 SW\001 PLAN 2D"
MkDir chem_base & "\" & Range("A10").Value & "\001 SW\002 PLAN 3D"
MkDir chem_base & "\" & Range("A10").Value & "\002 ACAD"
MkDir chem_base & "\" & Range("A10").Value & "\002 ACAD\TEMPLATES"
MkDir chem_base & "\" & Range("A10").Value & "\002 ACAD\TEMPLATES\2D"
MkDir chem_base & "\" & Range("A10").Value & "\002 ACAD\TEMPLATES\3D"
MkDir chem_base & "\" & Range("A10").Value & "\003 PDF"
MkDir chem_base & "\" & Range("A10").Value & "\004 DOC IN"
'etc...............
On Error GoTo 0
End Sub
0
Réponse 3 / 3
philwil008 Messages postés 5 Date d'inscription vendredi 13 février 2009 Statut Membre Dernière intervention 15 février 2009
15 févr. 2009 à 14:58
UN GRAND MERCI TOUT EST OK....

BRAVO LES GARS !
0
neogenesis Messages postés 4748 Date d'inscription dimanche 19 octobre 2008 Statut Contributeur Dernière intervention 24 janvier 2010 512
15 févr. 2009 à 15:03
C'était pas compliqué :-)

@+
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Signification des abréviations RE: et TR:
La Salamandre -
Iolose -

19 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse
VBA pour Excel pour les nuls
Hachimoto2891 -
Hachimoto2891 -

2 réponses