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

Messages postés
25
Date d'inscription
jeudi 2 février 2012
Statut
Membre
Dernière intervention
3 avril 2012
- - Dernière réponse : Renfield
Messages postés
17283
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
- 15 mars 2012 à 15:03
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
Afficher la suite 

6 réponses

Meilleure réponse
Messages postés
17283
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
56
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 137 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Renfield
Messages postés
17283
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
56
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 137 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Renfield
Messages postés
25
Date d'inscription
jeudi 2 février 2012
Statut
Membre
Dernière intervention
3 avril 2012
0
Merci
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!
Commenter la réponse de lycos9
Messages postés
25
Date d'inscription
jeudi 2 février 2012
Statut
Membre
Dernière intervention
3 avril 2012
0
Merci
Ok, je viens de le faire ca marche nikel!

Merci beaucoup
Commenter la réponse de lycos9
Messages postés
25
Date d'inscription
jeudi 2 février 2012
Statut
Membre
Dernière intervention
3 avril 2012
0
Merci
Et quel sera le code pour le fermer par la suite??
Commenter la réponse de lycos9
Messages postés
17283
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
56
0
Merci
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
Commenter la réponse de Renfield