Creation dossier sous dossier annee et mois

Bonjour,

après plusieur recherche et des centaines de sujets lu, je n'arrive pas à faire fonctionner un code vba pour crée des dossiers en fontion de la date (Année & Mois ) d'une cellule.

Je dirais que j'ai un niveau moyen en vba donc vous pouvez y aller

Je vous expose donc mon souhait pour la création des dossiers.

Je rentre une date dans la cellule J9 qui est formaté comme ceci:

DRsrv = Format(Sheets("Feuille1").Range("J9").Value, "YYYY-MM-DD")

Ensuite j'ai un bouton "enregistrer" qui fonctionne trés bien pour l'enregistrement de ma feuille.

Mais j'aimerai que avant l'enregistrement de mon fichier .xls Excel

1 - Vérification de l'existance du dossier (ex: C:\Dossier\2016\Janvier\

2 - Si le dossier existe, OK j'enregistre mon fichier dans le dossier.

Si le dossier n'existe pas, la création du dossier.

3 - Crée un dossier suivant l'année de ma cellulle J9 "YYYY" Ex: 2016

4 - Crée un sous-dossier suivant le mois de ma cellule J9 Ex: Janvier

J'espère avoir été claire.

Dans l'attente de vous lire.

Bonne journée.

Bonjour,

A adapter ...

Bonjour,

merci pour vore fichier.

1er problème, la date que j'utilise est formté de cette maniere.

01/05/2017 devient Lundi 1 Mai 2017.

et j'obtiens donc une erreur à la création de mon dossier.

Erreur d'execution 76 chemin d'accès introuvable.

On s'est croisé en version de fichier

La zone est aussi nommée

Génial ! C'est simple au finale j'me suis vraiment compliqué la vie dans mes tests ...

Je modifie pour qu'il s'adapte à mon fichier et je reviens vers vous !

Merci encore !

Re bonjour,

j'ai donc réussi à l'adapter à mon fichier.

Il me crée bien répertoire, aucun soucis.

J'ai une dernière question, surement toute simple.

Comment enregistrer mon classeur dans le dossier qu'il vient de me crée?

Merci d'avance.

Rechercher des sujets similaires à "creation dossier annee mois"