Kouik Kouik jr
XLDnaute Occasionnel
Bonsoir le forum,
J'ai besoin de votre aide....j'y arrive vraiment pas
J'essaie de rechercher dans un dossier le dernier fichier créé
J'ai un code mais qui ne marche que pour le dernier fichier modifié (et même il n'est pas si correct que cela)
Merci d'avance pour toute aide et informations
J'ai besoin de votre aide....j'y arrive vraiment pas
J'essaie de rechercher dans un dossier le dernier fichier créé
J'ai un code mais qui ne marche que pour le dernier fichier modifié (et même il n'est pas si correct que cela)
Merci d'avance pour toute aide et informations
HTML:
Sub essai1()
Findes
End Sub
Function Findes()
Dim blah As FileSearch
Dim directory As String
Dim i As Integer, iNewest As Integer
directory = "V:\3B OP\RCHF\VBA Reconcil\Reconciliation ptf\Prix HSBC"
Set blah = Application.FileSearch
With Application.FileSearch
.NewSearch
.Filename = "*.*"
.LookIn = directory
.LastModified = msoLastModifiedAnyTime
.Execute msoSortByLastModified, msoSortOrderDescending
End With
If blah.FoundFiles.Count > 0 Then MsgBox blah.FoundFiles(1)
End Function