Ouverture du fichier le + récent

Question

Dans un dossier donn&#233;, quelle instruction permet d'ouvrir sous Excel le fichier le plus r&#233;cent en date de cr&#233;ation ??

Merci d'avance

cs_JMO · Answer

Bonsoir,

1) Boucle sur le répertoire pour récupérer DateLastModified
2) Algo du tableau issu de la boucle

Tout simple à réaliser.

jean-marc
si pas de solution proposée par d'autres lecteurs de ce post,
 je rajouterai l'exemple en vbs (donc pas dur à translater en vb6)

michelxld · Answer

bonjour

j'espere que cet exemple pourra t'ider

Option Explicit
Option Base 1


Sub triDecroissant_classeursRepertoire_dateDreation()
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
   
'---lister les fichiers du r&#233;pertoire ---
Chemin = "C:\Documents and Settings\michel\dossier\general\compte"
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.DateCreated, 10)
               
Fichier = Dir
Loop Until Fichier = ""


'---trier les fichiers par ordre d&#233;croissant de cr&#233;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
     
'--- affichage du plus r&#233;cent ---
MsgBox Tableau(1, 1) & vbLf & "cr&#233;&#233; le : " & Tableau(2, 1)
End Sub

bon week end
michel

Ouverture du fichier le + récent

2 réponses

Discussions similaires