Discussion :

[max2245]

Bonjour,

dans ma macro excel, j'ai besoin d'une fonctionnalité qui
va me chercher le dernier fichier crée dans le répertoire courant.
Le nom du fichier généréré par un autre systeme
est de la forme
Excel20061512100647.xls

2006 15 decembre 10h06mn 47s.

Merci pour vos reponses

[dadavyvy]

Tu n'as plus qu'à exploiter soit la variable "dt" (réelle date de création du fichier) ou la variable "fname" (nom du fichier complet)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Sub GetFileProp()
    Dim fs, fd, f, dt, fname
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set fd = fs.GetFolder(ThisWorkbook.Path)
    For Each f In fd.Files
        If UCase(fs.GetExtensionName(f)) = "XLS" Then
            dt = f.DateCreated
            fname = f.Name
        End If
    Next f
    Set f = Nothing
    Set fd = Nothing
    Set fs = Nothing
End Sub

[SfJ5Rpw8]

tiens par utilisation de Dir ... ..

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
31
 
 
Function ExtraitDate(st As String) As Date
 'Excel20061512100647.xls
'Debug.Print "Annee     : " & Mid(st, 6, 4)
' Debug.Print "Jour      : " & Mid(st, 10, 2)
' Debug.Print "Mois      : " & Mid(st, 12, 2)
' Debug.Print "Heure     : " & Mid(st, 14, 2)
' Debug.Print "Minute    : " & Mid(st, 16, 2)
' Debug.Print "Secondes  : " & Mid(st, 18, 2)
 ExtraitDate = DateSerial(Mid(st, 6, 4), Mid(st, 12, 2), Mid(st, 10, 2)) + TimeSerial(Mid(st, 14, 2), Mid(st, 16, 2), Mid(st, 18, 2))
 End Function
 
 
Sub ChercheFichier()
 Dim st As String
 Dim MemoNomFic As String
 Dim MemoDateFic As Date
 Dim d As Date
 
 st = Dir("c:\tmp\*.xls")
 While st <> ""
    d = ExtraitDate(st)
    If d > MemoDateFic Then
      MemoNomFic = st
      MemoDateFic = d
    End If
   st = Dir
 Wend
MsgBox MemoNomFic & ".. du " & MemoDateFic
End Sub

PS : Merci de vérifier l'énoncé..(position mois/jour)