Chercher le dernier fichier dans une liste de fichier

bonjour a tous

J'aimerais aller chercher le dernier fichier d'une série qui porte le même nom dans un même dossier juste le chiffre qui change

nom des fichiers:

gren 1

gren 2

gren 3

gren 4 j'aimerais trouver le dernier a chaque fois que j'appuie sur un bouton

j'aimerais le faire en VBA mais je suis un peu perdu

quelqu'un peut il m'aider

merci d'avance

Bonjour,

rebonjour

j'ai du mal m'exprimer excuse moi mais je connais le chemin pour aller chercher le dossier seulement rendu sur les fichiers j'aimerais récuperer le fichier avec la plus grande date dans le titre

exemple

nom du fichier:F:\goulin\greno

totfrez_240811

totfrez_250811

totfrez_260811

totfrez_270811

la je voudrait qu'il m'ouvre le fichier totfrez_270811

merci pour vos reponse

D'abord, est-ce que la macro a bien trouvé le fichier totfrez_270811 ?

non elle me trouve juste le repertoire C:

Bonjour,

Est-ce-que la date insérée dans le nom du fichier correpond à la dernière date de modification du fichier ...???

non cela correspond a la création du fichier

merci de vous interessé a mon sujet

Re,

Pour obtenir la date de création ...

Sub DateCreation()
    Dim oFS As Object
    Dim strFichier As String

    'Ajuster avec le nom di fichier
    strFichier = "C:\lenomddufichier.xls"

    Set oFS = CreateObject("Scripting.FileSystemObject")
    MsgBox strFichier & " a été créé le " & oFS.GetFile(strFilename).DateCreated

    Set oFS = Nothing

End Sub

Par ailleurs as-tu déjà utilisé FSO (FileSystemObject) ... pour obtenir tous les attributs ...

Bonjour, Salut Steelson, James !

A essayer :

Sub RechercheFichierPlusGrand()
    Dim fich, fsse$, fr$, frsse$
    fich = Dir("E:\Documents\*.*") 'mettre le bon...
    Do While fich <> ""
        fich = Split(fich, "\")
        fich = fich(UBound(fich))
        fsse = Left(fich, InStrRev(fich, ".") - 1)
        If StrComp(fsse, frsse, vbTextCompare) = 1 Then
            frsse = fsse: fr = fich
        End If
        fich = Dir()
    Loop
    MsgBox "Le fichier cherché est : " & fr
End Sub

Cordialement.

Hello Maréchal, Hello Bond,

caje17 a écrit :

non elle me trouve juste le repertoire C:

caje17 a écrit :

la je voudrait qu'il m'ouvre le fichier totfrez_270811

Après avoir choisi le répertoire, tu laisses tourner ... le fichier s'ouvre !