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 |
Partager