[VBA]: ouverture du répertoire le + récent pour ouvrir fichier le + récent

[surfeuse]

Bonsoir,

je cherche à ouvrir le fichier le plus récent du répertoire le plus récent parmi un ensemble de répertoires.
Une alternative pourrait consister en un tri par ordre alphabétique des répertoires pour ouvrir le dernier dossier de la liste triée. Une fois ce répertoire ouvert, il me faudrait alors sélectionner le fichier le plus récent.
Comment faire?
avez vous des pistes? pouvez vous maider?

Merci bcp

[bbil]

tu cherche le répertoire le plus récent et pour cela tu utilise un tri alphanumérique ?

..

cherche du coté de FileSearch.. puis parcours la liste de fihier choisi en mémorisant le nom et la date du plus récent .. ( celui dont la date est la + grande..)

[surfeuse]

en fait la fonction FileSearch permet de rechercher un fichier. Or ce que je cherche avant tout cest rechercher un répertoire parmi un ensemble de répertoires d'un dossier donné et connu.

Cette recherche je cherche soit à la faire par date et donc ouvrir le dossier le plus récent, soit à la faire par ordre alphabétique et prendre le dernier dossier de la liste triée.

(Après une fois ce dossier ouvert, il me faut ouvrir le fichier le plus récent; mais ca a priori cest OK jai trouvé comment faire ca)

donc mon big pb la cest louverture du bon répertoire.. et jy arrive pas du tout; cest pour le boulot et la je suis completement coincee..
aidez moi svp

[SilkyRoad]

bonsoir


Tu peux tester cette procedure pour rechercher le dernier dossier modifié , puis le dernier fichier modifié dans ce répertoire
Attention , le temps de calcul peut etre tres long si le dossier racine contient beaucoup de sous dossiers
Cet exemple ne gère pas un dossier récent qui ne contiendrait aucun fichier

Il te restera à adapter une fonction de tri alphabetique

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
Option Base 1
 
Dim h As Integer
Dim Tableau2()
 
 
Sub listeDossiersEtSousDossiers()
Dim Racine As String, recentDir As String
 
Racine = "C:\Documents and Settings\michel\dossier"
ListeSousRepertoires Racine, True 'recherche le repertoire le + récent
 
    recentDir = triDecroissant(Tableau2())
    Erase Tableau2
    h = 0
 
    listeFichiers_dateModification recentDir
    MsgBox triDecroissant(Tableau2())
 
Erase Tableau2
h = 0
End Sub

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub ListeSousRepertoires(SourceFolderName As String, _
IncludeSubfolders As Boolean) ' adapté de Ole P Erlandsen
Dim Fso As Object, SourceFolder As Object, SubFolder As Object
Dim RepItem As Object
 
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder(SourceFolderName)
 
    h = h + 1
    ReDim Preserve Tableau2(2, h)
    Tableau2(1, h) = SourceFolder
    Tableau2(2, h) = SourceFolder.DateLastModified
 
    If IncludeSubfolders Then
        For Each SubFolder In SourceFolder.subFolders
        ListeSousRepertoires SubFolder.Path, IncludeSubfolders
        Next SubFolder
    End If
 
End Sub

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub listeFichiers_dateModification(Chemin As String)
Dim Fichier As String
Dim Fso As Object, FileItem As Object
 
Fichier = Dir(Chemin & "\*.*")
 
Do
    h = h + 1
    ReDim Preserve Tableau2(2, h)
 
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set FileItem = Fso.GetFile(Chemin & "\" & Fichier)
 
    Tableau2(1, h) = FileItem
    Tableau2(2, h) = FileItem.DateLastModified 'lastmodified
 
    Fichier = Dir
Loop Until Fichier = ""
 
End Sub

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function triDecroissant(Tableau()) As String
Dim i As Integer
Dim z As Byte, Valeur As Byte
Dim Cible As Variant
 
Do
    Valeur = 0
    For i = 1 To h - 1
        If CDate(Tableau(2, i)) < CDate(Tableau(2, i + 1)) Then
            For z = 1 To 2
                Cible = Tableau(z, i)
                Tableau(z, i) = Tableau(z, i + 1)
                Tableau(z, i + 1) = Cible
            Next z
        Valeur = 1
        End If
    Next i
Loop While Valeur = 1
 
 
'--- le plus récent ---
triDecroissant = Tableau(1, 1)
End Function

bonne soiree
michel

[surfeuse]

Merci pour ta réponse!!

Bonne journee!