Faire une liste des fichiers d'un rep dans fic excel

Soyez le premier à donner votre avis sur cette source.

Vue 10 563 fois - Téléchargée 1 349 fois

Description

liste les rep d'un dossier sous forme de lien directement dans excel
on récupère un onglet qui contient un lien par fichier
cf onglet params pour selection repertoire et lancement.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
mardi 10 février 2009
Statut
Membre
Dernière intervention
12 février 2009

Bonjour,

Merci tout d'abord pour cet outil qui correspond à un détail près a ce que j'ai besoin aujourd'hui,

en fait je voudrais avoir le moins d'aller chercher dans le repertoire selectionné mais aussi dans les sous repertoires.

comment faire ?

Merci
Messages postés
2
Date d'inscription
lundi 22 octobre 2007
Statut
Membre
Dernière intervention
18 décembre 2007

Salut,

J'avais un petit bug dans le chemin du répertoire. Je l'ai résolu en rajoutant : & "".(Voir code joint).
Merci pour ton fichier, il est trop génial.

Function GetFolderName(Msg As String) As String
Dim bInfo As BROWSEINFO, path As String, r As Long, x As Long, pos As Integer
bInfo.pidlRoot = 0&
If IsMissing(Msg) Then
bInfo.lpszTitle = "Selectionner un répertoire où extraire les fichiers CSV créés" ' the dialog title
Else
bInfo.lpszTitle = Msg
End If
bInfo.ulFlags = &H1
x = SHBrowseForFolder(bInfo)
path = Space$(512)
r = SHGetPathFromIDList(ByVal x, ByVal path)
If r Then
pos = InStr(path, Chr$(0))
Ligne modifiée......... GetFolderName = Left(path, pos - 1) & ""
Else
GetFolderName = ""
End If
End Function

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.