VBA touver dernier fichier créé

[Kouik Kouik jr]

Coucou le forum,

Me voici avec un nouveau problème

Je cherche a trouver le dernier fichier créé dans le fichier HS mais cela ne me rend rien (même pas dans la MsgBox !) alors qu'il y' facilemetn 10 fichiers excel au moins

Avez vous une idée ? MErci d'avance

Sub chargedata()


    Application.DisplayAlerts = False
    Application.ScreenUpdating = False

Dim nb_file As Long
Dim file_name As Variant
Dim dossier As Variant
Dim file_date As Long
Dim Sheet_name As String
Dim nb_li As Long
Dim last_li As Long
Dim i As Long
Dim filestr As String
Dim datelng As Long
 
 
 Windows("VBA_RECONCIL.xls").Activate
    Sheets("HSBC").Select
    Cells.Select
    Selection.ClearContents
    
    dossier = "V:\3B ......\ HS"
    
With Application.FileSearch
.LookIn = dossier
.Filename = "*.*"
nb_file = .FoundFiles.Count
MsgBox "Nb Files: " & nb_file

End With



    Application.DisplayAlerts = True
    Application.ScreenUpdating = True


End Sub

 

[Minick]

Re : VBA touver dernier fichier créé

Heu oui,
Tout simplement parce que tu n'as pas lance la recherche.
Ajoute

 .Execute

Apres .Filename....


++
Minick