A voir également:
- [Macro] Ouvrir le dernier fichier créé
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir fichier .bin - Guide
- Ouvrir fichier .dat - Guide
- Comment ouvrir un fichier docx ? - Guide
- Comment ouvrir un fichier 7z - Guide
3 réponses
Bonjour Kona,
voilà une fonction qui détermine le fichier le plus récent d'un répertoire donné.
en dessous, une procédure qui ouvre le fichier le plus récent (en faisant appel à la fonction).
Après, à toi d'intégrer ça dans ta macro d'enregistrement.
A suivre...
voilà une fonction qui détermine le fichier le plus récent d'un répertoire donné.
en dessous, une procédure qui ouvre le fichier le plus récent (en faisant appel à la fonction).
Après, à toi d'intégrer ça dans ta macro d'enregistrement.
A suivre...
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 = "C:\...\...\FichiersRecus\" ' saisir ici le chemin d'accès de ton répertoire
ChangeFileOpenDirectory Chemin
Documents.Open FileName:=DernierFichier(Chemin)
End Sub
bonjour,
petite erreur dans la déclaration de la variable
la ligne
doit être en tête du module (tout au dessus)
A+
petite erreur dans la déclaration de la variable
la ligne
Dim Chemin As String
doit être en tête du module (tout au dessus)
A+
Bonne journée
Kona78