Création de sous-dossiers au format YYYY en fonction d'une plage de dates

Bonjour à tous,

Je patauge pour trouver le code à ceci :

Je souhaite créer des sous-dossiers par année dans le répertoire "C:\Exercices" en fonction des dates d'une colonne A.

Ce qui donnera dans mon fichier actuel C:\Exercices\2019 puis C:\Exercices\2020 et enfin C:\Exercices\2021

Cette colonne évolue au fil du temps et je souhaite également que dès lors que si je renseignerai une date en 2022, la macro créera automatiquement le dossier C:\Exercices\2022

J'ai essayé YEAR(date) et MKDIR mais sans grand succès...

Merci d'avance.

Bonjour Alanitor,

Sub Test()
    Dim ws As Worksheet
    Dim c As range
    Dim annee As String, Chemin As String
    Dim DerLig As Integer
    Dim fso As Object

    Set ws = Sheets("Principal")
    DerLig = ws.ListObjects("Tableau1").range.Columns(1).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

 Const Dossier As String = "C:\Exercices\"

    For Each c In ws.range("A2:A" & DerLig)

        annee = Year(c.Value)
        Chemin = Dossier & annee

        Set fso = CreateObject("Scripting.FileSystemObject")

        If Not fso.FolderExists(Chemin) Then
            fso.CreateFolder Chemin
        End If

    Next c

End Sub

Cordialement

Merci beaucoup Sequoyah,

Grâce à toi, je finis le week-end sans perdre trop de cheveux. Surtout qu'avec ce qu'il me reste... ce serait pas génial.

Ca fonctionne parfaitement bien et mon niveau ne me permettait pas de trouver donc vraiment un grand merci.

Au fait, ce site est vraiment très bien pour les débutants comme moi. J'apprend beaucoup.