Discussion :

[pilounet54]

bonjour je cherche à utiliser ce code est-ce que quelqu'un peut m'en dire plus

Code Python :

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

1
2
3
4
5
6
7
8
9
10
11
12
import os
 
extension = 'text'
folder = os.path.abspath(os.path.dirname(__file__))
files = []
 
for f in os.listdir(folder):
    if os.path.isfile(folder + '/' + f) and '.' in f and f.split('.')[-1] == extension:
        files.append(f)
 
 
print(sorted(files))

cela m’intéresse mais où vous mettez ce code ? Est-ce que vous pouvez me donner plus de détails sur ce langage qu’est-ce que c’est ? merci très cordialement

[clementmarcotte]

Bonjour,

Ce que je peux dire c'est que ce n'est pas du VBA, ni du .net. Je ne pense même que cela soit du Microsoft. Et ce n'est probablement pas utilisable directement dans un programme VBA.

Cela me semble être un langage de programmation objet où "OS" est une branche du langage qui regroupe les fonctionnalités d'accès au disque. En .net c'est "System.IO" qui semble correspondre au "OS" de ce langage.

En VBA, on peut utiliser les dossiers spéciaux en passant par la bibliothèque Scripting.Runtime (FileSystemObject)

[Invité]

Pour compléter la réponse de Clément, le code ci-dessous récupère dans une matrice, les fichiers d'un répertoire correspondant à une extension donnée. Les sous répertoires ne sont pas explorés. Ce code est à placer dans un module d'un fichier .docm ou .xlsm.

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Option Explicit
 
Public MatriceFichiers() As Variant
Public IndexMatrice As Long
 
Sub LancerIdentifierLesFichiers()
 
    Erase MatriceFichiers
    IndexMatrice = 0
 
    IdentifierLesFichiers "C:\Users\.....", "text" ' Répertoire à adapter
 
    If IndexMatrice > 0 Then
       For IndexMatrice = LBound(MatriceFichiers, 2) To UBound(MatriceFichiers, 2)
           Debug.Print MatriceFichiers(0, IndexMatrice) & ", " & MatriceFichiers(1, IndexMatrice)
       Next IndexMatrice
       MsgBox UBound(MatriceFichiers, 2) + 1 & " fichiers trouvés !", vbInformation
    Else
       MsgBox "Aucun fichier trouvé !", vbInformation
    End If
 
 
End Sub
 
Sub IdentifierLesFichiers(ByVal RepertoireTraite As String, ByVal ExtensionFichier As String)
 
Dim Fso As Object, Dossier_RepertoireTraite As Object, Fichier As Object, FichiersDuDossier As Object
 
    On Error GoTo Fin
 
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set Dossier_RepertoireTraite = Fso.getfolder(RepertoireTraite)
    Set FichiersDuDossier = Dossier_RepertoireTraite.Files
 
    For Each Fichier In FichiersDuDossier
        Select Case Fso.GetExtensionName(LCase(Fichier))
               Case LCase(ExtensionFichier)
                    ReDim Preserve MatriceFichiers(1, IndexMatrice)
                    MatriceFichiers(0, IndexMatrice) = Fichier.Name
                    MatriceFichiers(1, IndexMatrice) = CurDir
                    IndexMatrice = IndexMatrice + 1
        End Select
    Next Fichier
 
    GoTo Fin
 
Fin:
 
    Set FichiersDuDossier = Nothing
    Set Dossier_RepertoireTraite = Nothing
    Set Fso = Nothing
 
End Sub

[pilounet54]

merci à tous ceux qui m'ont éclairés sur ce code cordialement