titooooo
XLDnaute Occasionnel
bonjour
j''ai un code cba pour créer des dossier
je cherche dans mon cas a pouvoir modifier le chemin directement dans une feuille du classeur
je m'explique si je veut changer le repertoite C:\Dossiers\" je doit mettre le nouveau chemin dans feuille 1 cellule k12 et ca se met automatiquement a jour dans vba
Code VBA:
Option Explicit
Sub Création()
Dim i As Date, Mini&, Maxi&, Chemin As String
Mini = Cells(2, 1)
Maxi = Application.WorksheetFunction.Max(Columns(1))
Chemin = "C:\Dossiers\"
For i = Mini To Maxi
On Error Resume Next
MkDir Chemin & Year(i)
MkDir Chemin & Year(i) & "\" & MonthName(Month(i))
MkDir Chemin & Year(i) & "\" & MonthName(Month(i)) & "\Journée du " & Format(CDate(i), "dd.mm.yyyy")
Next
End Sub
j''ai un code cba pour créer des dossier
je cherche dans mon cas a pouvoir modifier le chemin directement dans une feuille du classeur
je m'explique si je veut changer le repertoite C:\Dossiers\" je doit mettre le nouveau chemin dans feuille 1 cellule k12 et ca se met automatiquement a jour dans vba
Code VBA:
Option Explicit
Sub Création()
Dim i As Date, Mini&, Maxi&, Chemin As String
Mini = Cells(2, 1)
Maxi = Application.WorksheetFunction.Max(Columns(1))
Chemin = "C:\Dossiers\"
For i = Mini To Maxi
On Error Resume Next
MkDir Chemin & Year(i)
MkDir Chemin & Year(i) & "\" & MonthName(Month(i))
MkDir Chemin & Year(i) & "\" & MonthName(Month(i)) & "\Journée du " & Format(CDate(i), "dd.mm.yyyy")
Next
End Sub