Discussion :

[dev_php51]

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

[pgz]

Bonjour.

Tu peux parcourir les fichiers contenus dans le répertoire avec une boucle For each ...
Par exemple, si tu veux faire la liste des fichiers dans une chaîne de caratères

Code :

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

1
2
3
4
For each ff in f.Files
    sListe = sListe & vbCrLf & ff.name
Next ff
sListe = Mid$(sListe,3)

Cordialement,

PGZ

[pijaku]

Bonjour,
Je n'ai pas pu tester ton code, mon excel n'en voulant pas, mais il me semble qu'il suffit d'ajouter à la fin de ton code quelque chose comme :

Code :

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

1
2
3
4
5
6
Dim Fichier As String
'blablabla ton code ici
For Each ff In f.files
    Fichier = ff.Name
    MsgBox Fichier
Next ff

EDIT : trop tard...

[dev_php51]

merci de vos réponses,

j'ai reussi a recuperer la listes des fichier sur les index, je souhaite savoir si je souhaite tester un fichier et passer au suivent.?

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
 
For Each ofiles In f.Files
 
                'Validation fichier DWG
                If ofiles.Type = "Fichier DWG" And IsNumber(Left(CStr(ofiles.Name)), 2) = True Then
                    StNomFichier = CStr(ofiles.Name)
                    LPosition = InStr(1, StNomFichier, StTypeSg)
 
                    'numero d'ordre de 3 Unité ,exemple 154
                        If LPosition = 4 Then
                            StNumOrdre = Left(CStr(ofiles.Name), 3)
                            InNumOrdre = Val(StNumOrdre)
                        End If
 
                     'numero d'ordre de 2 Unité ,exemple 28
                        If LPosition = 3 Then
                            StNumOrdre = Left(CStr(ofiles.Name), 2)
                            InNumOrdre = Val(StNumOrdre)
                            InNumligne = (InNumOrdre * 4) + 6
                        End If
                Else
                    IsNumber(Left(CStr(ofiles.Name)), 2)
                End If