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

Résolu

philwil008 Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
neogenesis Messages postés 4748 Date d'inscription Statut Contributeur Dernière intervention - 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

A voir également:

Re Problème pour sous/sous/répertoires en VBA
Re ettre clavier azerty - Guide
Excel compter cellule couleur sans vba - Guide
Commande dos copy répertoire et sous répertoire ✓ - Forum Windows
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Find vba - Astuces et Solutions

3 réponses

Réponse 1 / 3

neogenesis Messages postés 4748 Date d'inscription Statut Contributeur Dernière intervention 521

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 :-)

Réponse 2 / 3

gigaga Messages postés 2347 Date d'inscription Statut Membre Dernière intervention 301

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

Réponse 3 / 3

philwil008 Messages postés 5 Date d'inscription Statut Membre Dernière intervention

UN GRAND MERCI TOUT EST OK....

BRAVO LES GARS !

neogenesis Messages postés 4748 Date d'inscription Statut Contributeur Dernière intervention 521

C'était pas compliqué :-)

@+

Discussions similaires

virus re-captha-version-2-13.top

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

Signification des abréviations RE: et TR:

appliquer une pause dans une macro vba excel

Votre réponse

Discussions similaires