Discussion :

[candyneige]

Bonjour à vous,

Je viens vers vous pour vous demander si vous avez une idée de comment atteindre le dernier sous dossier d'un dossier avec VBA.

J'ai essayé de chercher sur tous les forums mais je ne trouve rien.

Je recherche ce code afin que chaque fois qu'un sous dossier est créé, il soit utilisé par la macro que je suis en train de faire.

Je ne sais vraiment pas comment faire. si vous pouvez m'aider ca sera vaiment cool.

Merci d'avance

[Menhir]

Je viens vers vous pour vous demander si vous avez une idée de comment atteindre le dernier sous dossier d'un dossier avec VBA.
Je recherche ce code afin que chaque fois qu'un sous dossier est créé, il soit utilisé par la macro que je suis en train de faire.

Le "dernier" dossier, ça n'a pas de sens.
Je pense que tu veux dire "le dossier dont la date de création est la plus récente".

Si c'est le cas, je te conseille de consulter les articles suivants :
Pour lister tous les fichiers : https://excel.developpez.com/sources...ersDecroissant
Pour traiter spécifiquement les répertoires : https://excel.developpez.com/sources...scenceDossiers
Pour récupérer la date de création : https://docs.microsoft.com/fr-fr/off...eated-property

Avec ça, il faudra faire une boucle sur l'ensemble des répertoires.
Pour chacun, tu compares la date de création au contenu d'une variable de type Double.
Si la date de création est supérieure au contenu de la variable, tu mets cette nouvelle date dans cette variable et le nom du dossier dans une seconde variable de type String.
A la fin de la boucle, tu auras dans la variable String le nom du répertoire créé le plus récemment.

[candyneige]

Bonjour Menhir,

Merci pour ta réponse rapide. Je vais voir tous les liens que tu m'as envoyé.

Mon petit soucis est que dans l'arborescence du dossier se présente comme suit (c'est un exemple):

Societe LVMH 
                    2013
                    2014
                    2015
                    2016
                    2017
                    2018
                    2019

il y des fichiers pdf dans chaque sous-dossier qu'on doit récupérer et attacher a un mail outlook. l'an prochain, un sous-dossier nommé 2020 sera ajouté. du coup la macro devra donc récupérer les pièces jointes qui se trouveront dans ce nouveau sous-dossier. comment faire pour dire à la macro de récupérer le nouveau sous dossier créé, sachant que chaque fois des modifications pourront être apportés aux sous dossiers précédents et cela changera leur date de modification.

J'espere que tu comprendras ce que je veux dire.

[Menhir]

Ne serait-il pas possible de sélectionner simplement le dossier dont le nom correspond à l'année en cours ?

Parce que si ça suffit, c'est BEAUCOUP plus simple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim NomDossier As String
NomDossier = Format(Now(), "yyyy")

[candyneige]

Merci Menhir,

Oui ca serait plus facile, mais on peut envoyer parfois 100 mails à la fois du coup, ca prendrait beaucoup plus de temps de selectionner chaque, si j'ai bien compris ce que tu veux dire. Mais je suis sur une piste.

J'essaierai et si ca marche je poste kle resultat ici.

Je reste cependant toujours ouverte aux propositions.

Merci encore.