[fr-users] Re: [Macro-Basic] génération de cours eleve à partir de fichier cours enseignant

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 à users+unsubscribe@fr.libreoffice.org 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