Re Problème pour sous/sous/répertoires en VBA
Résolu
philwil008
Messages postés
6
Statut
Membre
-
neogenesis Messages postés 5303 Statut Contributeur -
neogenesis Messages postés 5303 Statut Contributeur -
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
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
Configuration: Windows XP Internet Explorer 7.0
3 réponses
-
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 :-) -
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 -
