mise a jour code vba

[titooooo]

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

 

[RONIBO]

Re : mise a jour code vba

Bonsoir,

A essayer
Chemin = Sheets("NomFeuille").range("K42")

Et mettre le chemin dans la cellule, faire attention à la "\" à la fin du chemin

 

[titooooo]

Re : mise a jour code vba

merci bien
c'est ce que je cherche