VB Ouvrir le fichier le plus recent d un repe

Question

Bonjour, 
Je souhaiterai realiser une macro qui ouvre le fichier le plus revent dans un repertoirr.
Ce classeur est une table matrice pour une recherchev.

Quelqu'un a-t-il un code permettamt l ouverture du fichier le plus recenyt dans un repertoire?!

Voici le code inscrit que j ai trouvé sur le net:

Function DernierFichier(Chemin As String) 
As String Dim fichier As String, DerniereDate As Date 
fichier = Dir(Chemin) 
Do While fichier <> ""
 If FileDateTime(Chemin & fichier) > DerniereDate Then 
DerniereDate = FileDateTime(Chemin & fichier) 
DernierFichier = fichier 
End if
fichier=Dir ()

Loop

End function

Sub OuvrirDernierDoc()
 Dim Chemin As String 
Chemin = "G:\chemin\CP A RELANCER\" ChangeFileOpenDirectory = Chemin Workbooks.Open FileName:=DernierFichier(Chemin)
 End Sub


J ai un message d erreur me disant que le fichier nommé "cp..." qui est bien le plus recent edt introuvable alors qu'il est bien dans ce repertoire....


Merci d'avance pour votre aide
Lolo
Configuration: iPhone / Safari 530.17

Le Pingou · Accepted Answer

Bonjour,
Essayez comme suit :
Function DernierFichier(Chemin As String)
Dim fichier As String, DerniereDate As Date
fichier = Dir(Chemin)
Do While fichier <> ""
    If FileDateTime(Chemin & fichier) > DerniereDate Then
        DerniereDate = FileDateTime(Chemin & fichier)
        DernierFichier = fichier
    End If
    fichier = Dir()
Loop
End Function
Sub OuvrirDernierDoc()
Dim Chemin As String
Chemin = "G:\chemin\CP A RELANCER\"
ChangeFileOpenDirectory = Chemin
Workbooks.Open (Chemin & DernierFichier(Chemin))
End Sub

VB Ouvrir le fichier le plus recent d un repe

1 réponse

Discussions similaires

Newsletters