[Catégorie modifiée .Net - VBA] Ouvrir le fichier le plus récent d'un repertoirRésolu

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

Renfield · Accepted Answer

faudrait te placer dans le repertoire, puisque tu ne donne que le nom du fichier à la méthode Open

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

lycos9 · Answer

Peux-tu me dire comment il faut le faire?

(désolé je débute dans VB et pour le moment je bidouille plus qu'autre chose...!!)

Merci d'avance!

Renfield · Answer

faire : 

Workbooks.Open FileName:=Chemin & DernierFichier(Chemin) 

valider les messages sur le forum marque ton post comme résolu...
ne le faire que sur les réponses qui t'on aidé a solutionner...

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

lycos9 · Answer

Ok, je viens de le faire ca marche nikel!

Merci beaucoup

lycos9 · Answer

Et quel sera le code pour le fermer par la suite??

Renfield · Answer

stocker une reference a ton classeur :

Dim LastXLS As WorkBook

Set LastXLS = Workbooks.Open(FileName:=Chemin & DernierFichier(Chemin))

et en fin :

LastXLS.Close

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

[Catégorie modifiée .Net -> VBA] Ouvrir le fichier le plus récent d'un repertoir

6 réponses

Votre réponse

Discussions similaires