Salut
Dans un dossier je voudrais lister ces sous-dossiers et les fichiers de ces sous-dossiers dans Calc. Est-il possible de faire ça ?
LibreOffice 7.3.2.2
Bonjour,
vous ne trouverez pas de fichier en PJ sans qu’il ne vous soit mis à disposition d’un ce ses auteurs Laurent Godard, Bernard Marcelly, Pierre-Yves Samin ou encore prog.amateur
Bonjour,
C’est évident que lorsque quelqu’un poste un fichier sur un site d’entraide, c’est pour qu’il soit utile.
Mais ce serait quand même bien de citer les sources.
Dans cette macro il y a beaucoup de Laurent Godard et Bernard Marcelly, une bonne dose de Pierre-Yves Samin et un petit peu de mon humble personne.
Bonne journée,
Claude
Ps : La colonne macro contient un “oui” si c’est un fichier ods ou odt et qu’il contient une ou plusieurs macros.
Ce n’était pas du tout mon propos. Chacun est libre de re-publier ce qui a été fait par d’autres. C’était juste pour que l’on n’oublie pas certains qui ne sont plus parmi nous et qui ont largement contribué à openoffice et libreoffice.
Je remets donc le fichier.
Claude
listage fichier avec détection macro.ods (17.2 KB)
1 Like
C’est parfait 
! merci pour ton aide.
Je fais des tutos sur les logiciels et services libres (sous licence CC By SA et LAL) et je voudrais partager cette macro sur mon site. Bien entendu je vais citer les sources (forum LibreOffice et noms que tu as cité). Est-ce qu’il y a une licence à mettre à la macro ?
Salut
Comment je peux faire pour ne rechercher que les fichiers audios ? J’ai regardé dans la macro mais comme je n’y connais rien je prefere pas y toucher.
le plus simple serait d’ajouter une colonne qui teste les extensions (audio donc), et d’y appliquer un autofiltre.
Ça serait l’idéal car je sais utiliser l’autofiltre. Par contre comment ajouter une colonne pour les extensions ? la macro j’y pige rien. J’ai bien regardé le code de la macro, j’ai vu cette ligne commenté :
' "Extension fichier : " & Cible.GetExtensionName(Valeur) & Chr(10) & Chr(10) & _
Mais bon est-ce que c’est ça et si oui je fais quoi avec ??
J’ai galement vu la partie pour la creation des colonnes :
LigneEnCours=0
FeuilleActive.getCellByPosition(0,LigneEnCours).string = "Nom répertoire"
FeuilleActive.getCellByPosition(1,LigneEnCours).string = "Nom fichier"
FeuilleActive.getCellByPosition(2,LigneEnCours).string = "Taille"
FeuilleActive.getCellByPosition(3,LigneEnCours).string = "Date création"
FeuilleActive.getCellByPosition(4,LigneEnCours).string = "Date modification"
FeuilleActive.getCellByPosition(5,LigneEnCours).string = "Macro ?"
Mais la pareil, je ne sais pas quoi faire avec. A part supprimer un ligne si je ne veux pas une colonne ou changer son nom.
juste une colone classique G, avec une formule REGEX(B, “.+.(suffix1|suffix2|etc)”)
mais vous pouvez l’inserer en A ou C … tout dépend de l’utilisation générale de la feuille ou du classeur …
Donc pour récup uniquement les mp3 et les wma : REGEX(B, “.+.(mp3|wma|)”)
Mais je met cette ligne a quel endroit 
?
Bonjour,
Voici une version épurée du premier fichier qui permet de ne retourner que certains types de fichiers
Il faut juste modifier la ligne qui me sert à ne traiter que les .epub par les extensions que tu veux
if right(fichier,5)=".epub" then
Bon courage
listage fichiers epub.ods (18.4 KB)
PS1 : la prochaine fois ouvres plutôt un nouveau sujet en faisant référence au premier car personnelement si je n’avais pas participé à la première discussion comme le sujet était marqué resolu, je ne l’aurais pas ouvert
PS2 : Cette routine peut servir à des tas de choses mais je pense qu’il vaut mieux quand même enlever les blocs de codes qui ne servent à rien.
@fpy : je devais pas être bien réveillé, mais il y avait les captures d’écran dans ton message ??
@prog.amateur : merci je vais voir ça.
Un pote m’a dit qu’avec Excel il est possible de faire ça depuis : Données > Nouvelle requête > À partir d’un fichier > À partir d’un dossier. Calc ne propose pas cette fonction nativement, je ne l’ai pas trouvé ?
Ok c’est noté 