Chris57 XLDnaute Occasionnel 7 Février 2012 #1 Bonjour à tous, Je cherche une macro qui puisse créer un dossier et ses sous dossiers : Par exemple j'ai un dossier C:\TEST Dans la cellule A1 j'ai ce texte : C:\TEST\DOS1\DOS2 Il me faudrai une commande pour créer à la fois le sous dossier DOS1 et le DOS2 La fonction MkDir n'est pas capable de créér \DOS1\DOS2 en une fois NB : il est possible que je doives créer plusieurs sous-sous dossiers genre C:\TEST\REP1\REP2\REP3\REP4
Bonjour à tous, Je cherche une macro qui puisse créer un dossier et ses sous dossiers : Par exemple j'ai un dossier C:\TEST Dans la cellule A1 j'ai ce texte : C:\TEST\DOS1\DOS2 Il me faudrai une commande pour créer à la fois le sous dossier DOS1 et le DOS2 La fonction MkDir n'est pas capable de créér \DOS1\DOS2 en une fois NB : il est possible que je doives créer plusieurs sous-sous dossiers genre C:\TEST\REP1\REP2\REP3\REP4
job75 XLDnaute Barbatruc 7 Février 2012 #2 Re : Créer dossier et sous dossier Bonsoir Chris57, Code: Sub CreerDossiers() Dim txt$, s, i% txt = [A1] 'txt = "C:\TEST\DOS1\DOS2" s = Split(txt, "\") On Error Resume Next txt = s(0) For i = 1 To UBound(s) txt = txt & "\" & s(i) MkDir txt Next End Sub A+ Dernière édition: 7 Février 2012 Vote positif 0 Vote négatif
Re : Créer dossier et sous dossier Bonsoir Chris57, Code: Sub CreerDossiers() Dim txt$, s, i% txt = [A1] 'txt = "C:\TEST\DOS1\DOS2" s = Split(txt, "\") On Error Resume Next txt = s(0) For i = 1 To UBound(s) txt = txt & "\" & s(i) MkDir txt Next End Sub A+
Chris57 XLDnaute Occasionnel 9 Février 2012 #3 Re : Créer dossier et sous dossier ça fonctionne à merveille !!! Vote positif 0 Vote négatif