Discussion :

[maximilien59]

Bonjour à tous,

Je vous contact du fait que j'ai besoin de votre aide pour une création de macro concernant des comparaison de nom de repertoires

Je sais pas si ce sujet a déjà été evoqué sur ce forum, si besoin n'hesitez pas à me dirigé vers la bonne discution

Pour mon travail, je voudrais mettre en place une programmation qui compare des noms de répertoire (mais pas de fichiers)en vba excel.

J'ai un fichier qui contient une liste de répertoire différente en colonne B (100 référcence)

Mon besoin est de lire l'adresse du repertoire se trouvant en colonne B et m'indiquer en colonne C le nom du dernier " sous repertoire" créé avec la date de création en colonne D.

Cela à pour but, de mettre à jour un autre fichier avec des référence plus facilement.

Est-ce que quelqu'un pourrais m'aider?

Je vous remercie

[Raccourcix]

Bonjour

en VBA je ne sais pas faire mais avec Power Query c'est très facile avec la fonction Folder.Contents

A partir d'un paramètre nommé "Dossier" le code suivant vous donne la liste des sous-dossiers

Code :

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

Table.SelectRows(Folder.Contents(Dossier),each _[Attributes][Directory])

Folder.Contents renvoie la liste des dossiers et des fichiers, le Table.SelectRows (... each _[Attributes][Directory]) filtre alors uniquement sur les dossiers

il faut ensuite sélectionner "le plus récent" (choix dans la liste des filtres qui va générer automatiquement le code let latest = List.Max(Source[Date created]) in each [Date created] = latest)

clic droit sur la requête pour transformer la requête en fonction

Code :

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

1
2
3
4
5
6
7
8
9
let
    Source = (Dossier as text) => let
        Source = Table.SelectRows(Folder.Contents(Dossier),each _[Attributes][Directory]),
        #"Lignes filtrées1" = Table.SelectRows(Source, let latest = List.Max(Source[Date created]) in each [Date created] = latest),
        #"Autres colonnes supprimées" = Table.SelectColumns(#"Lignes filtrées1",{"Name", "Date created"})
    in
        #"Autres colonnes supprimées"
in
    Source

Il ne reste plus qu'à appliquer cette fonction à la liste de dossiers pour obtenir le résultat souhaité

A dispo pour plus de précision au besoin.

Stéphane

[maximilien59]

Merci Stephane pour ton retour.

Le mieux pour moi serait en VBA, quelqu'un peut m'aider?

[laurent_ott]

Le mieux pour moi serait en VBA, quelqu'un peut m'aider?

Bonjour.
Je n'ai pas mon PC sur moi pour vous donner un code, mais vous trouverez au chapitre 21 du tome 1 (voir ma signature : mémento sur la pragrammation en VBA pour Excel) un exemple de procédure récursive pour analyser les répertoires et sous répertoires.
Ça peut donner des idées.
Cordialement