Discussion :

[jeo13]

Bonjour a tous,

Je cherche a retrouver le nom du dernier fichier excel sauvegarde dans un dossier specifique.

J'arrive a retrouver les fichiers excel enregistres aujourd'hui (voir fichier attache en piece jointe). Mais je n'arrive pas a limiter la recherche au fichier le plus recent i.e au dernier fichier enregistrer.

J'ai essaye d'avoir la date de modification et le nom dans un tableau a deux dimensions et de ne garder que le nom de fichier avec la date maximale mais sans succes...

est-ce que quelqu'un pourrait jeter un cup d'oeil a mon souci?

merci d'avance a tous!

[Maxence HUBICHE]

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
24
25
26
27
28
29
30
Sub ListFiles()
    Sheet1.Range("A11:E10000").ClearContents
    Call ListMyFiles(Range("C7"))
End Sub
Sub ListMyFiles(mySourcePath)
    Dim myObject As Scripting.FileSystemObject
    Dim mySource As Scripting.Folder
    Dim myFile As Scripting.File
    Dim myFoundedFile As Scripting.File
 
 
    Set myObject = New Scripting.FileSystemObject
    Set mySource = myObject.GetFolder(mySourcePath)
    On Error Resume Next
    For Each myFile In mySource.Files
        'If VBA.Left(myFile.Name, 12) = "desktopagent" And VBA.Right(myFile, 4) = Sheet1.Range("File_Extension").Value Then
             If myFoundedFile Is Nothing Then
                Set myFoundedFile = myFile
            Else
                If myFoundedFile.DateCreated < myFile.DateCreated Then
                    Set myFoundedFile = myFile
                Else
                    'rien à faire
                End If
            End If
        'End If
    Next
    Cells(11, 2).Value = myFoundedFile.Name
    Cells(11, 3).Value = myFoundedFile.DateCreated
End Sub

[jeo13]

Merci beaucoup Maxence!

On approche du resultat voulu.
En fait votre code retourne le dernier fichier enregistre.

J'aimerais limiter ma recherche au dernier fichier excel enregistre (c'est pourquoi je specifie l'extension) dont le nom commence par desktopagent

En gros retourne le dernier fichier desktopagentxx.xls enregistre dans le dossier.

Une idee sur comment integrer ces criteres dans la boucle?

[Maxence HUBICHE]

oui, pour mes tests, j'avais mis des parties du code en commentaire.
Retires donc les commentaires

[jeo13]

C'est chose faite!
Merci beaucoup!