Discussion :

[mrclean06]

Bonjour,

J'aimerai savoir comment je pourrais faire une fonction compterep(chemin) pour qu'il me retourne dans la cellule le nombre de dossier que contient un repertoire. Je m'explique j'ai un dossier articles qui des sous-dossiers pc portable\avec dfférents sous dossiers portant nom du modeles qui contient les fiches articles. Je voudrais calculer du coup dynmiquement par le compte de dossier par catégorie.

Merci de vos lumieres

[Amélie Ladoque]

https://openoffice-libreoffice.devel...es-repertoires

[mach1974]

Bonjour,
Il faut insérer une macro vba

Sub BoucleÀTraversLesFichiers()

Dim oFSO As Object
Dim oDossier As Object
Dim oFichier As Object
Dim i As Integer

Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oDossier = oFSO.GetFolder("dossier")

For Each oFichier In oDossier.Files

Cells(i + 1, 1) = oFichier.Name
'mettre un compteut

i = i + 1

Next oFichier
cells(?) = I

End Sub

[jurassic pork]

Hello,
pourquoi mettre du code VBA ici (qui ne fonctionne d'ailleurs que sous windows) alors que dans le lien d 'Amélie Ladoque la procédure ListerRepertoire_V02 fait le travail.
Voici la procédure modifiée pour compter le nombre de dossiers et afficher tous les dossiers en une seule fois :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub listerRepertoires_JP
Dim Chemin As String , NomObj As String 
Dim oSimpleFileAccess As Object 
Dim i As Integer  
Dim Tableau() , ListeRep As String, nbRep As Integer 
Chemin ="D:\tmp"
oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )  
Tableau = oSimpleFileAccess.getFolderContents(ConvertToURL( Chemin ), True )  
 ListeRep = ""
 nbRep = 0
For i = 1 To UBound(Tableau) + 1 
    NomObj = Tableau( i-1 )    
    If oSimpleFileAccess.isFolder( NomObj ) Then 
        ListeRep =  ListeRep + ConvertFromURL( NomObj ) + Chr(13) + Chr(10)  
        nbRep = nbRep + 1
    End If
Next i 
MsgBox  "nbRep: " + nbRep  + Chr(13) + chr(10) + ListeRep
oSimpleFileAccess = Nothing
End Sub

En fonction personnalisée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function CompteRep(Chemin As String) As Integer
Dim NomObj As String, oSimpleFileAccess As Object 
Dim i As Integer, Tableau()   
oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )  
Tableau = oSimpleFileAccess.getFolderContents(ConvertToURL( Chemin ), True )  
CompteRep = 0
For i = 1 To UBound(Tableau) + 1 
    NomObj = Tableau( i-1 )    
    If oSimpleFileAccess.isFolder( NomObj ) Then
        CompteRep = CompteRep + 1
    End If
Next i 
oSimpleFileAccess = Nothing
End Function

Ami calmant, J.P

[mrclean06]

Merci pour ces propositions