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

img1

  • 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

img2

De cette façon, en utilisant le code macro, nous pourrons ouvrir le dernier fichier enregistré par le membre de l’équipe.

image 4