Bonjour,

je develloppe une application afin de faire une gestion de fichier,

j'arrive a lister dans des item la liste des fichiers present dans le dossier , je ne sais comment naviguer dans les item du " Set ff = f.Files"

voici mon code

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
Dim StChemin As String
Dim StDossierSchema As String
Dim SrcBook As Workbook
Dim fso As Object, f As Object, ff As Object, f1 As Object
Dim SPath As String
Dim InIndex As Integer
 
Dim fld As Scripting.Folder
Dim fle As Scripting.File
 
StChemin = ActiveWorkbook.Path
Set fso = CreateObject("Scripting.FileSystemObject")
' Ouvrir la boite de dialogue pour choix du dossier
SPath = GetFolder(StChemin)
If SPath = "" Then Exit Sub
' Définir ce dossier par défaut dans FSO
Set f = fso.GetFolder(SPath)
'Recuperation de la listes des document
Set ff = f.Files
Merci d'avance
Crdlt
Franck