VB Ouvrir le fichier le plus recent d un repe
lolo35000
-
Le Pingou Messages postés 12720 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12720 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- VB Ouvrir le fichier le plus recent d un repe
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier bin ? - Guide
- Ouvrir un fichier .dat - Guide
- Comment ouvrir un fichier docx ? - Guide
- Comment réduire la taille d'un fichier - Guide
1 réponse
Bonjour,
Essayez comme suit :
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
