VBA pour ouvrir dernier fichier dans le dossier
Comment ouvrir le fichier le plus récent dans un dossier dans Microsoft Excel
Dans le cas où vous souhaitez un code VBA qui vous permettra d’ouvrir le fichier récemment enregistré dans le dossier en un seul clic sur le bouton macro.
Question): J’ai une équipe de 10 personnes et je recherche de toute urgence une macro qui m’aidera à ouvrir le dernier fichier enregistré par un membre de l’équipe afin de ne pas avoir à suivre le chemin dans lequel le fichier est enregistré.
Nous devons suivre les étapes ci-dessous:
Cliquez sur l’onglet Développeur Dans le groupe Code, sélectionnez Visual Basic
-
Entrez le code suivant dans le module de feuille de calcul
Option Explicite
Sous-fichier le plus récent ()
Dim MyPath As String
Dim MyFile As String
Dim LatestFile As String
Dim LatestDate As Date
Dim LMD comme date
MyPath = « C: \ Utilisateurs \ Documents \ »
If Right (MyPath, 1) <> « \ » Then MyPath = MyPath & « \ »
MyFile = Dir (MyPath & « * .xls », vbNormal)
Si Len (MyFile) = 0 Alors
MsgBox « Aucun fichier n’a été trouvé … », vbExclamation
Quitter le sous-marin
Fin si
Do While Len (MyFile)> 0
LMD = FileDateTime (MyPath & MyFile)
Si LMD> LatestDate Then
LatestFile = MyFile
LatestDate = LMD
Fin si
MyFile = Dir
Boucle
Workbooks.Open MyPath & LatestFile
End Sub
De cette façon, en utilisant le code macro, nous pourrons ouvrir le dernier fichier enregistré par le membre de l’équipe.