trouver et ouvrir le dernier fichier enregistré dans un dossier

[saadmechiche]

Bonjour a tous
Comme je l'ai cité dans le titre , j'aimerai en appuyant dans un bouton ouvrir le dossier "point quo" et ouvrir le dernier fichier enregsitré
Merci

 

[MichelXld]

Re : trouver et ouvrir le dernier fichier enregistré dans un dossier

bonsoir


Tu peux tester cette macro pour retrouver le dernier classeur modifié dans un répertoire:

Option Explicit
Option Base 1
Sub Tri_FichiersRepertoire_DerniereModification()
    Dim Fichier As String, Chemin As String
    Dim Fso As Object, FileItem As Object
    Dim Tableau()
    Dim m As Integer, i As Integer
    Dim z As Byte, Valeur As Byte
    Dim Cible As Variant
       
    '---liste les fichiers du répertoire ---
    Chemin = "C:\Documents and Settings\mimi\dossier"
    Fichier = Dir(Chemin & "\*.xls")
            
    Do
        m = m + 1
        ReDim Preserve Tableau(2, m)
        Tableau(1, m) = Fichier
                       
        Set Fso = CreateObject("Scripting.FileSystemObject")
        Set FileItem = Fso.GetFile(Chemin & "\" & Fichier)
                    
        Tableau(2, m) = Left(FileItem.DateLastModified, 10)
                       
        Fichier = Dir
    Loop Until Fichier = ""
    
    '---trier les fichiers par ordre décroissant de création ---
    Do
        Valeur = 0
        For i = 1 To m - 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
         
    MsgBox Tableau(1, m) & vbCrLf & Tableau(2, m)
    
    '--- transfert des données dans la feuille ---
    'For i = 1 To m
        'Cells(i, 1) = Tableau(1, i)
        'Cells(i, 2) = Tableau(2, i)
    'Next i
End Sub

Bonne soirée
MichelXld