Discussion :

[lejack]

Bonsoir,

J'aimerais ouvrir le fichier le plus récent dans un dossier qui ne contient que des documents "*.txt". J'ai trouvé un code qui me permet de le faire mais pour un fichier de type excel. J'ai cherché, sans succès pour l'instant la commande équivalente pour un fichier txt, pouvez-vous m'aider? Voici le code:

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
Sub GetMostRecentFile()
 
    Dim FileSys As FileSystemObject
    Dim objFile As File
    Dim myFolder
    Dim strFilename As String
    Dim dteFile As Date
 
    'set path for files - change for your folder
    Const myDir As String = "C:\test"
 
    'set up filesys objects
    Set FileSys = New FileSystemObject
    Set myFolder = FileSys.GetFolder(myDir)
 
 
    'loop through each file and get date last modified. If largest date then store Filename
    dteFile = DateSerial(1900, 1, 1)
    For Each objFile In myFolder.Files
        If objFile.DateLastModified > dteFile Then
            dteFile = objFile.DateLastModified
            strFilename = objFile.Name
        End If
    Next objFile
    Workbooks.Open strFilename
 
    Set FileSys = Nothing
    Set myFolder = Nothing
End Sub

Merci et bon dimanche.

[kiki29]

Salut, en t'inspirant de la FAQ
ou en ajoutant à l'endroit idoine qqch comme If UCase$(FSO.GetExtensionName(objFile)) = "TXT" Then ..... End If
ou en adaptant Liste des Propriétés de fichiers (2), qqs explications ici sur la façon de procéder.