mise a jour code vba

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
 

Discussions similaires

Réponses
2
Affichages
252

Statistiques des forums

Discussions
311 718
Messages
2 081 866
Membres
101 827
dernier inscrit
kubinou