Bonjour Désolé, je n'ai pas le temps de développer tout ton sujet mais si c'est uniquement sur le parcours de ton arborescence tu peux faire comme ci-dessous (le code affiche à l'écran le nom de tous les docs comprenant "cours" dans le nom).
Il utilise le service SimpleFileAccess que je présentais ici: https://wiki.documentfoundation.org/Macros/General/005/fr et où tu verras comment ajouter la gestion des dates. Le reste, si j'ai bien compris (remplacer par des _) tu n'as pas de problème. Option Explicit Sub Main Dim sUrl As String sUrl = ConvertToURL("C:\Tests\") Parcourir(sUrl) MsgBox "Terminé" End Sub Sub Parcourir(sUrl) Dim sNomFic As String Dim oSFA as Object Dim ListeFichiers As Variant oSFA = createUnoService("com.sun.star.ucb.SimpleFileAccess") ListeFichiers = oSFA.getFolderContents(sUrl, True) for each sNomFic in ListeFichiers if oSFA.IsFolder(sNomFic) then Parcourir(sNomFic) else if instr(sNomFic, "cours") > 0 then print sNomFic end if end if next sNomFic End Sub Cordialement Pierre-Yves -- View this message in context: http://nabble.documentfoundation.org/Macro-Basic-generation-de-cours-eleve-a-partir-de-fichier-cours-enseignant-tp4149242p4149925.html Sent from the Users mailing list archive at Nabble.com. -- Envoyez un mail à [email protected] pour savoir comment vous désinscrire Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/ Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être supprimés
