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

Question

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

neogenesis · Answer

Salut,

Tu rajoutes simplement "
omdusousrepertoire\" à 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 :-)

gigaga · Answer

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

philwil008 · Answer

UN GRAND MERCI TOUT EST OK....

BRAVO LES GARS !

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

3 réponses

Votre réponse

Discussions similaires